Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应
2021-03-14 00:38
标签：pre tor 完成 with alc handle var The delphi delphi 执行一个外部程序，当外部程序结束后言主程序立即响应 我们经常能看到360安全卫士进行windows系统升级时，执行windows升级程序，当升级程序执行完成后，360马上弹出提示框。 Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应 标签：pre tor 完成 with alc handle var The delphi 原文地址：https://www.cnblogs.com/windson/p/12505194.html
这样的程序是如何做到的呢？下述代码就能完成！uses shellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
ExecuteFile := ‘c:/Windows/system32/Calc.exe‘;
FillChar(SEInfo, SizeOf(SEInfo), #0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile); nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
if ExitCode = STILL_ACTIVE then Sleep(50);
until (ExitCode STILL_ACTIVE) or Application.Terminated;
ShowMessage(‘Calculator terminated‘);
end
else
ShowMessage(‘Error starting Calc!‘);
end;
文章标题：Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应
文章链接：http://soscw.com/index.php/essay/64349.html