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#
  
  Declare Comline$
  Declare handle hPrg
   
  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
  
   ComLine$ = "e:\\!GAME\\ARMA Cold War Assault\\ColdWarAssault.exe"
   hPrg = CreateProcess(Comline$)
   CLS
   Print hPrg
   WaitInput
 

 declare longint ec, ex, string progt, paramt
 
 window 1000,200
 cls
 
   progt = "C:\\Windows\\System32\\notepad.exe"
   paramt = "C:\\Users\\Arndt\\test.txt"
   ec = winexec(progt+" "+paramt,1)
   print progt,"mit ProzessID",ec,"und Parameter",paramt,"gestartet"
   waitinput
   ex = Process("Kill", ec, 1)
   print "Prozess mit ProzessID",ec,"beendet"
   waitkey
 end