[Tips]挂起 - 运行外部程式，外部程式退出 - 继续执行

最新推荐文章于 2024-12-07 11:06:13 发布

原创最新推荐文章于 2024-12-07 11:06:13 发布 · 932 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#attributes #integer #inheritance #security #string #command

Delphi 专栏收录该内容

6 篇文章

订阅专栏

博客展示了WinExecAndWait32函数的代码实现，该函数接收文件名和可见性参数，返回整数结果。代码中涉及字符数组、进程信息结构体等操作，通过CreateProcess创建进程并等待其结束，最后获取退出代码作为结果。

function WinExecAndWait32(FileName:String; Visibility : integer):integer;
var
zAppName : array[0..512] of char;
zCurDir : array[0..255] of char;
WorkDir : String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
lpExitCode : Cardinal;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);

StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
    zAppName,                     { pointer to command line string }
    nil,                                   { pointer to process security attributes }
    nil,                                   { pointer to thread security attributes }
    false,                                { handle inheritance flag }
    CREATE_NEW_CONSOLE or          { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,                           { pointer to new environment block }
    nil,                           { pointer to current directory name }
    StartupInfo,                   { pointer to STARTUPINFO }
    ProcessInfo) then Result := -1 { pointer to PROCESS_INF }

else begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, lpExitCode);
    Result := lpExitCode;
end;
end;

整理：lzcx