delphi执行一个外部程序，当外部程序结束后，delphi程序立即响应

最新推荐文章于 2020-11-09 18:02:04 发布

转载最新推荐文章于 2020-11-09 18:02:04 发布 · 996 阅读

文章标签：

#delphi #application #c

DELPHI编程专栏收录该内容

379 篇文章

订阅专栏

本文介绍了一个使用Delphi启动外部程序（如计算器）并等待其结束的方法。通过TShellExecuteInfo结构和ShellExecuteEx函数实现进程的启动与监控，确保应用程序能够在外部程序关闭后继续执行后续操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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); //ParamString can contain the application parameters // lpParameters := PChar(ParamString); //StartInString specifies the name of the working directory.if ommited, the current directory is used. // lpDirectory := PChar(StartInString); nShow := SW_SHOWNORMAL; end; if ShellExecuteEx(@SEInfo) then begin repeat Application.ProcessMessages; GetExitCodeProcess(SEInfo.hProcess, ExitCode); if ExitCode = STILL_ACTIVE then Sleep(500); until (ExitCode <> STILL_ACTIVE) or Application.Terminated; ShowMessage('Calculator terminated'); end else ShowMessage('Error starting Calc!'); end;