C缘网
Would you like to react to this message? Create an account in a few clicks or log in to continue.
C缘网

绿色网站,请不要涉及政治敏感话题和成人内容


delphi 如何知道bat运行完毕

C缘网 :: ≡ ※ 电脑技术版块 ※ :: 网页技术交 :: 编程语言专区

向下

delphi 如何知道bat运行完毕 Empty delphi 如何知道bat运行完毕

帖子 由 eyke0519 周日 28 十月 2012 - 1:01

代码:



[center]//执行程序并等待其结束
function winexecexw(cmd,workdir:pchar;visiable:integer):dword;
var
startupinfo:tstartupinfo;
processinfo:tprocessinformation;
ret:dword;
begin
fillchar(startupinfo,sizeof(startupinfo),#0);
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwflags:=startf_useshowwindow;
startupinfo.wshowwindow:=visiable;
application.processmessages;
if not createprocess(nil,cmd,nil,nil,false,create_new_console or normal_priority_class,nil,nil,startupinfo,processinfo) then
result:=0
else
begin
application.processmessages;
//waitforsingleobject(processinfo.hprocess,infinite);
repeat
ret:=waitforsingleobject(processinfo.hprocess,100); //等待
application.processmessages;
until ret <> wait_timeout;

getexitcodeprocess(processinfo.hprocess,result);
end;
end;
[/center]
eyke0519
eyke0519
Admin

帖子数 : 10619
注册日期 : 08-12-15

http://eyke.1ercn.com

返回页首 向下

返回页首

C缘网 :: ≡ ※ 电脑技术版块 ※ :: 网页技术交 :: 编程语言专区

 
您在这个论坛的权限：
您不能在这个论坛回复主题