Delphi写的等待进程运行结束函数
2010-09-15 17:39
495 查看
procedure TForm1.Button1Click(Sender: TObject);
var
sCommandLine: string;
bCreateProcess: boolean;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
begin
sCommandLine := 'C:\TEST.EXE';
//初始化StartupInfo
FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);
lpStartupInfo.cb := Sizeof(TStartupInfo);
lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;
lpStartupInfo.wShowWindow := SW_NORMAL;
bCreateProcess := CreateProcess(nil, PChar(sCommandLine),
nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, lpStartupInfo, lpProcessInformation);
if bCreateProcess then //等外部进程的结束
WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);
end;
var
sCommandLine: string;
bCreateProcess: boolean;
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
begin
sCommandLine := 'C:\TEST.EXE';
//初始化StartupInfo
FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);
lpStartupInfo.cb := Sizeof(TStartupInfo);
lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;
lpStartupInfo.wShowWindow := SW_NORMAL;
bCreateProcess := CreateProcess(nil, PChar(sCommandLine),
nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, lpStartupInfo, lpProcessInformation);
if bCreateProcess then //等外部进程的结束
WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);
end;
相关文章推荐
- Delphi写的等待进程运行结束函数
- 1.写多进程,一个父进程,两个子进程,一个运行ls –l, 另一个暂停5s,父进程先阻塞等待第一个子进程的结束,然后用非阻塞等另一个进程退出,收集到第二个子进程结束的信息,父进程就返回。
- Delphi 调用外部程序并等待其运行结束
- 如何让Delphi调用外部程序并等待其运行结束
- delphi 调用外部exe ,并等待调用程序运行结束
- Delphi 调用外部程序并等待其运行结束
- delphi 如何等待进程树的结束
- delphi 如何等待进程树的结束
- Delphi 调用外部程序并等待其运行结束
- Delphi 调用外部程序并等待其运行结束
- 函数: waitpid - 等待子进程中断或结束
- 【vs2015】C++ 程序运行并等待进程结束
- 等待进程结束函数中的BUG
- ShellExecute Winexec参考 Delphi运行命令等待结束
- 如何让Delphi调用外部程序并等待其运行信息(如结束)
- Delphi根据进程PID等待进程结束或者结束进程
- 函数: waitpid - 等待子进程中断或结束
- [delphi]调用外部程序并等待其运行结束
- 如何让Delphi调用外部程序并等待其运行信息(如结束)
- 【经典转载】Linux进程学习系列之五 等待进程结束wait()和waitpid()函数