XProfan

Declarar Pid&, rc%
cls
pid& = @WinExec(maintest.exe,1)

Repeat

    rc% = @GetExitCode(pid&)
    imprimir Volver,rc%,($;@hex$(rc%);)
    sleep 100

Until rc% <> 259

waitinput
End

window 30,200
sleep 2000
End 16

Declarar Pid&,ende%
usermessages 1001
cls
Pid& = WinExec(maintest.exe +str$(%hwnd),1) Handle des eigenen Hauptfensters como
Parámetro übergeben

whilenot ende%

    waitinput

    if %Umessage = 1001     Message de maintest.exe, Rückgabewert 16 en &UwParam

        imprimir Rückgabewert de maintest.exe:  +str$(&UwParam)
        evtl. maintest.exe en Programmbeendigung testen
        sleep 100         maintest todavía una wenig Tiempo para Beenden dejar...
        caso GetExitCode(Pid&) <> 259 : imprimir maintest.exe es final...

    elseif %key = 2

        ende% = 1

    endif

endwhile

End

declarar startwin&
startwin& = val(par$(1))   Fensterhandle des aufrufenden Programms
window 30,200
sleep 2000
sendmessage(startwin&,1001,16,0)   Im aufrufenden Programa definierte Usermessage
wParameter es Rückgabewert 16...
end