var<br> sCommandLine: string;<br> bCreateProcess: boolean;<br> lpStartupInfo: TStartupInfo;<br> lpProcessInformation: TProcessInformation;<br>begin<br> sCommandLine := 'xxx.exe';<br> bCreateProcess := CreateProcessA(nil, PChar(sCommandLine),<br> nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil,<br> lpStartupInfo, lpProcessInformation);<br> if bCreateProcess then<br> WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);<br>end;<br>
