XProfan

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

Repeat

    rc% = @GetExitCode(pid&)
    print Return,rc%,($;@hex$(rc%);)
    sleep 100

Until rc% <> 259

waitinput
End

window 30,200
sleep 2000
End 16

Declare Pid&,ende%
usermessages 1001
cls
Pid& = WinExec(maintest.exe +str$(%hwnd),1) Handle des eigenen Hauptfensters als
Parameter übergeben

whilenot ende%

    waitinput

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

        print Rückgabewert von maintest.exe:  +str$(&UwParam)
        evtl. maintest.exe auf Programmbeendigung testen
        sleep 100         maintest noch ein wenig Zeit zum Beenden lassen...
        case GetExitCode(Pid&) <> 259 : print maintest.exe ist beendet...

    elseif %key = 2

        ende% = 1

    endif

endwhile

End

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