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

最新推荐文章于 2020-04-09 13:42:49 发布

tg2003

最新推荐文章于 2020-04-09 13:42:49 发布

阅读量4.3k

点赞数

分类专栏： Delphi 文章标签： integer cmd function class

本文链接：https://blog.csdn.net/tg2003/article/details/5405767

版权

Delphi 专栏收录该内容

32 篇文章 0 订阅

订阅专栏

//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;