您的位置:首页 > 编程语言

一个等待Winexec执行完成后再继续执行后面代码的函数

2010-03-22 20:54 411 查看
//CMD 要执行的文件路径

//Visiable 是否显示窗口

Function WinExecExW(CMD:Pchar; Visiable:integer):DWORD;
var
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
FillChar( StartUpInfo, SizeOf(StartUpInfo), $00 );
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;
if CreateProcess( nil, CMD, nil, nil, {运行批处理文件}
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInfo ) then
begin
WaitForSingleObject(Processinfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);

CloseHandle( ProcessInfo.hThread );
CloseHandle( ProcessInfo.hProcess );
end;
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐