Function Run2
  Parameters cmd, lWait
  #DEFINE NORMAL_PRIORITY_CLASS  32 
  Declare integer CreateProcess in win32api ;
    STRING lpApplicationName, ;
    STRING lpCommandLine, ;
    STRING @ lpProcessAttributes, ;
    STRING @ lpThreadAttributes, ;
    INTEGER bInheritHandles, ;
    INTEGER dwCreationFlags, ;
    STRING @ lpEnvironment, ;
    STRING lpCurrentDirectory, ;
    STRING @ lpStartupInfo, ;
    STRING @ lpProcessInformation
  Local SI,PInf,hProcess
  Declare Integer WaitForSingleObject in win32api Integer hHandle, Integer dwMilliseconds
  SI=PutInt(Replicate(Chr( 0 ), 17 * 4 ), 0 , 68 )
  PInf=Replicate(Chr( 0 ), 4 * 4 )
  CreateProcess( 0 ,cmd, 0 , 0 , 1 ,NORMAL_PRIORITY_CLASS,  0 , 0 ,@SI,@PInf)
  hProcess=ExtractInt(Pinf, 0 )
  dwProcessID=ExtractInt(Pinf, 8 )
  If lWait
    WaitForSingleObject(hProcess,- 1 )
  endIf
  Return hProcess
EndFun

Function ExtractInt
  Parameters s,d
  Return Asc(Substr(s,d+ 1 , 1 ))+ 256 *Asc(Substr(s,d+ 2 , 1 ))+ 65536 *Asc(Substr(s,d+ 3 , 1 ))+ 16777216 *Asc(Substr(s,d+ 4 , 1 ))
EndFunc

Function PutInt
  Parameters s,d,i
  Local s4
  s4=Chr(Bitand(i,0x000000ff))+Chr(Bitrshift(Bitand(i,0x0000ff00), 8 ))+Chr(Bitrshift(Bitand(i,0x00ff0000), 16 ))+Chr(Bitrshift(Bitand(i,0xff000000), 24 ))
  Return Left(s,d)+s4+Substr(s,d+ 5 )
EndFunc