hamadaさん、nariさん、こんにちは。

もしかしたら、もう解決したかも・・・。
でも何かの参考にでもなれば、と思ったのでコメントします。
CreateProcessA(), OpenProcess(), WaitForSingleObject(), CloseHandle()　を使用しました。

構造体 [ lws_si ]
unsignedlong cb
unsignedlong lpreserved
unsignedlong lpdesktop
unsignedlong lptitle
unsignedlong dwx
unsignedlong dwy
unsignedlong dwxsize
unsignedlong dwysize
unsignedlong dwxcountchars
unsignedlong dwycountchars
unsignedlong dwfillattribute
unsignedlong dwflags
unsignedinteger wshowwindow
unsignedinteger cbreserved2
unsignedlong lpreserved2
unsignedlong hstdinput
unsignedlong hstdoutput
unsignedlong hstderror

構造体 [ lws_pi ]
unsignedlong hProcess
unsignedlong hThread
unsignedlong dwProcessId
unsignedlong dwThreadId

外部関数宣言
function long GetLastError() LIBRARY \"Kernel32.dll\"
subroutine SetLastError(uint aa) LIBRARY \"Kernel32.dll\"
function ulong CreateProcessA(string ModuleName, &
      string CommandLine, &
      string ProcessSecurity, &
      string ThreadSecurity, &
      boolean InheritHandles, &
      ulong CreateFlags, &
      string Enviroment, &
      string CurrentDir, &
      ref ws_si StartInfo, &
      ref ws_pi ProcessInfo)  LIBRARY \"Kernel32.dll\"
function long OpenProcess(ulong dwDesiredAccess, long bInheritHandle, ulong dwProcessId)  LIBRARY \"Kernel32.dll\"
function long WaitForSingleObject(ulong hHandle, ulong dwMilliseconds)  LIBRARY \"Kernel32.dll\"
function boolean CloseHandle(ulong hObject)  LIBRARY \"Kernel32.dll\"

その２へ続く。