XProfan

DEF CreateProcessA(10)     ! "Kernel32","CreateProcessA"
DEF GetExitCodeProcess(2) ! "Kernel32","GetExitCodeProcess"
DEF TerminateProcess(2)   ! "Kernel32","TerminateProcess"
DEF ZeroMemory(2)         ! "Kernel32","RtlZeroMemory"
DEF CloseHandle(1)        ! "Kernel32","CloseHandle"
Declare lpCommandLine#
Declare lpStartupInfo#
Declare lpProcessInformation#
Declare ExitCode#

Proc CreateProcess

    Parameters CommandLine$
    Declare hProcess&
    Dim lpCommandLine#,Len(CommandLine$)+1
    Dim lpStartupInfo#,68
    ZeroMemory(lpStartupinfo#,68)
    Long lpStartupInfo#,0=68
    Dim lpProcessInformation#,16
    ZeroMemory(lpProcessInformation#,16)
    String lpCommandLine#,0=CommandLine$
    CreateProcessA(0,lpCommandLine#,0,0,0,0,0,0,lpStartupInfo#,lpProcessInformation#)
    hProcess&=Long(lpProcessInformation#,0)
    Dispose lpCommandLine#
    Dispose lpStartupInfo#
    Dispose lpProcessInformation#
    Return hProcess&

EndProc

Proc KillProcess

    Parameters hProcess&
    Dim exitcode#,4
    GetExitCodeProcess(hProcess&,Exitcode#)
    TerminateProcess(hProcess&,Long(exitcode#,0))
    Dispose Exitcode#

EndProc

Proc ProcessStatus

    parameters prozid&
    declare status&
    Dim exitcode#,4
    GetExitCodeProcess(prozid&,Exitcode#)
    status& = long(Exitcode#,0)
    Dispose Exitcode#
    return status&

endproc

----------Democode, später auskommentieren --------
Declare hProcess&
hProcess& = createprocess("NOTEPAD.EXE")
cls
settimer 400

while 1

    waitinput
    print ProcessStatus(hProcess&)   259 Prozess läuft

endwhile

WaitInput
KillProcess hProcess&Notepad wird mit dem Profan-Programm geschlossen
End