XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fremdprogramm starten und beenden (2)
DEF CreateProcess(10)     ! Kernel32,CreateProcessA
DEF GetExitCodeProcess(2) ! Kernel32,GetExitCodeProcess
DEF TerminateProcess(2)   ! Kernel32,TerminateProcess
DEF ZeroMemory(2)         ! Kernel32,RtlZeroMemory
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$
    CreateProcess(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

Declare hProcess&
CreateProcess NOTEPAD.EXE Notepad starten
Let hProcess&=&(0)
Print Taste...
WaitInput
KillProcess hProcess&Notepad wird mit dem Profan-Programm geschlossen
End