如何等待运行的外部程序的关闭？(50分)

CoCo_ · 2002-02-22

用Shellexecute执行一个外部程序，我要等待这个外部程序关闭才做进一步的动作，该如何 做[?]谢谢！

ili · 2002-02-22

关注~~~~

Happy3X · 2002-02-22

//转载 var   Form1: TForm1;   ProcessInfo: TProcessInformation;   // holds process information implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   StartUpInfo: TStartUpInfo;   // holds startup information begin   {initialize the startup information}   FillChar(StartupInfo, SizeOf(TStartupInfo), 0);   with StartupInfo do   begin     cb := SizeOf(TStartupInfo);     dwFlags := STARTF_USESHOWWINDOW;     wShowWindow := SW_SHOWNORMAL;   end;   {launch a process}   CreateProcess('c:/Windows/calc.exe', nil, nil, nil, False,       NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo); end; procedure TForm1.Button2Click(Sender: TObject); var   ExitCode: DWORD;             // holds the process exit code begin   {terminate the process and retrieve the exit code}   TerminateProcess(ProcessInfo.HProcess, 10);   GetExitCodeProcess(ProcessInfo.HProcess, ExitCode);   {display the exit code}   Label1.Caption := 'The exit code is '+Inttostr(ExitCode); end;

liuxi · 2002-02-22

给你一个function function WinExecAndWait32(FileName: string; Visibility: integer): Cardinal; var   zAppName: array[0..512] of char;   zCurDir: array[0..255] of char;   WorkDir: string;   StartupInfo: TStartupInfo;   ProcessInfo: TProcessInformation; begin   StrPCopy(zAppName, FileName);   GetDir(0, WorkDir);   StrPCopy(zCurDir, WorkDir);   FillChar(StartupInfo, Sizeof(StartupInfo), #0);   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := Visibility;   if not CreateProcess(nil, zAppName, nil, nil, true,                        CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,                        nil, nil, StartupInfo, ProcessInfo) then     Result := INFINITE   else begin     WaitforSingleObject(ProcessInfo.hProcess, INFINITE);     GetExitCodeProcess(ProcessInfo.hProcess, Result);     CloseHandle(ProcessInfo.hProcess);     CloseHandle(ProcessInfo.hThread);   end; end; 例子： WinExecAndWait32('RegEdit.exe', SW_Show);//当Regedit退出后才会执行下面的语句 .................

ili · 2002-02-22

http://www.delphibbs.com/delphibbs/dispq.asp?lid=564829 var   Form1: TForm1;   ProcessInfo: TProcessInformation;   // holds process information implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   StartUpInfo: TStartUpInfo;   // holds startup information begin   {initialize the startup information}   FillChar(StartupInfo, SizeOf(TStartupInfo), 0);   with StartupInfo do   begin     cb := SizeOf(TStartupInfo);     dwFlags := STARTF_USESHOWWINDOW;     wShowWindow := SW_SHOWNORMAL;   end;   {launch a process}   CreateProcess('c:/Windows/calc.exe', nil, nil, nil, False,       NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo); end; procedure TForm1.Button2Click(Sender: TObject); var   ExitCode: DWORD;             // holds the process exit code begin   {terminate the process and retrieve the exit code}   TerminateProcess(ProcessInfo.HProcess, 10);   GetExitCodeProcess(ProcessInfo.HProcess, ExitCode);   {display the exit code}   Label1.Caption := 'The exit code is '+Inttostr(ExitCode); end;

testnet · 2002-02-22

WaitForSingleObject WaitForSingleObjectEx

如何等待运行的外部程序的关闭？(50分)

CoCo_

Unregistered / Unconfirmed

ili

Unregistered / Unconfirmed

Happy3X

Unregistered / Unconfirmed

liuxi

Unregistered / Unconfirmed

ili

Unregistered / Unconfirmed

testnet

Unregistered / Unconfirmed

Similar threads