XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Windows-Ende abfangen
#############################
Test-Programa para :
XProfan
#############################
Author : Andreas Miethe
August 2003
#############################
Thema : Windows-Ende abfangen
#############################
 $H windows.ph
 $H messages.ph
DEF HiWord(1) And(&(1)>>16,$FFFF)
DEF LoWord(1) And(&(1),$FFFF)
Declarar Ende&,Button&,OldWindowProc&

Proc Speicher_Routine

    Declarar X&
    Statt uno Speicher-Rutina se ejecuta hier sólo una Zähler por
    ~TextOut(%hDC,0,0,Speicher-Dummy :,16)

    Sinestar encargado X& > 20000

        Localizar 2,0
        Imprimir X&
        Inc X&

    EndWhile

    ~TextOut(%hDC,0,100,fertig con Guardar :,22)
    ~TextOut(%hDC,0,150,Taste.... :,11)
    Waitinput

ENDPROC

Proc Frage_Speichern

    If Messagebox(Erstmal todos Daten speichern ?,Windows_Ende?,36) = 7

        volver 1 Windows se inmediatamente final

    Más

        bevor 1 zurückgegeben se kann hier una Speicher-Rutina
        instalado se. Windows se sólo final si alles hecho es.
        Speicher_Routine
        volver 1 Windows se después de el Guardar final
        volver 0 Windows no final

    Endif

ENDPROC

Proc WindowProc

    Parámetros Wnd&, Msg&, wParam&, lParam&

    If Msg& = ~WM_COMMAND

        If lParam& = Button& Control abfragen

            If HiWord(wParam&) = ~BN_CLICKEDKlick en Button

                SendMessage(Wnd&,~WM_CLOSE,0,0)

            Endif

        Endif

    Endif

    If Msg& = ~WM_CLOSE

        Speicher_Routine
        ~PostQuitMessage(0)Programa-Ende

    Endif

    If Msg& = ~WM_QUERYENDSESSION

        Volver Frage_Speichern()

    Endif

    todos Messages el no behandelt fueron a el Original-Procedimiento weiterleiten
    volver ~CallWindowProc(OldWindowProc&,Wnd&, Msg&, WParam&, LParam&)

ENDPROC

set(FastMode,1)
SetTrueColor 1
Ventana de Estilo 31
Ventana 0,0-640,480
CLS ~GetSysColor(~COLOR_BTNFACE)
Button& = CreateButton(%hwnd,Ende,10,50,80,24)
SendMessage(Button&,~WM_SETFONT,~GetStockObject(~DEFAULT_GUI_FONT),1)
Ventana-Procedimiento austauschen y el Original-Procedimiento en
OldWindowproc sichern
OldWindowProc& = ~SetWindowLong(%hwnd,~GWL_WNDPROC, ProcAddr(windowProc,4))

Sinestar encargado Ende&

    WaitInput

EndWhile