执行外部的程序并且等待他的结束。(收集)
2005-06-23 16:39
441 查看
//下面的函数执行一个程序并且等待他的结束。
//在外部的程序结束运行之前,不能做任何操作!
//Ex:WinExecW('c:/windows/notepad.exe','',sw_show);
Function WinExecExW(cmd,workdir:pchar;visiable:integer):DWORD;
var
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
FillChar(StartupInfo,SizeOf(StartupInfo),#0);
StartupInfo.cb:=SizeOf(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=visiable;
if not CreateProcess(nil,cmd,nil,nil,false,Create_new_console or Normal_priority_class,nil,nil,StartupInfo,ProcessInfo) then
result:=0
else
begin
waitforsingleobject(processinfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
调用外部程序并等待其结束
//在外部的程序结束运行之前,不能做任何操作!
//Ex:WinExecW('c:/windows/notepad.exe','',sw_show);
Function WinExecExW(cmd,workdir:pchar;visiable:integer):DWORD;
var
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
FillChar(StartupInfo,SizeOf(StartupInfo),#0);
StartupInfo.cb:=SizeOf(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=visiable;
if not CreateProcess(nil,cmd,nil,nil,false,Create_new_console or Normal_priority_class,nil,nil,StartupInfo,ProcessInfo) then
result:=0
else
begin
waitforsingleobject(processinfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
调用外部程序并等待其结束
相关文章推荐
- 调用外部程序并且等待结束后再继续执行程序
- delphi启动外部程序并等待它执行结束-南山古桃(nsgtao) (转)-关键词:Delphi,外部程序,执行结束
- c# 使用Process调用外部程序时等待该进程结束后再执行住进程
- 实现执行外部程序,并等待程序结束的函数。
- 执行一个外部程序并等待他的结束
- 实现执行外部程序,并等待程序结束的函数。
- delphi启动外部程序执行结束
- Delphi 调用外部程序并等待其运行结束
- MASM32编程用两种方法运行外部程序并等待其结束
- 如何让Delphi调用外部程序并等待其运行信息(如结束)
- delphi执行一个外部程序,当外部程序结束后,delphi程序立即响应
- delphi执行一个外部程序,当外部程序结束后,delphi程序立即响应
- delphi执行一个外部程序,当外部程序结束后,delphi程序立即响应(续)
- 如何让Delphi调用外部程序并等待其运行信息(如结束)
- java.lang.Runtime.getRuntime().exec 调用后,等待被调用程序结束后再继续执行
- delphi执行一个外部程序,当外部程序结束后,delphi程序立即响应
- VB 执行其他程序并等待其结束
- Delphi 调用外部程序并等待其运行结束
- Delphi 调用外部程序并等待其运行结束
- 等待外部程序运行结束以后 主程序再继续运行