代码之家 › 专栏 › 技术社区 › Charles Faiga

如何判断外部应用程序何时在Delphi中结束

shellexecute delphi windows

Charles Faiga · 技术社区 · 15 年前

我正在使用ShellExecute运行外部应用程序如何判断外部应用程序何时结束?

这里是我的代码

theProgram     :=  'MySql.exe';
itsParameters  :=  ' -u user1 -ppassword -e "create database abc"â;
rslt := ShellExecute(0, 'open',
                       pChar (theProgram),
                       pChar (itsParameters),
                       nil,
                       SW_SHOW);

2 回复 | 直到 15 年前

Matthias 15 年前

尝试以下功能。WaitForSingleObject执行您需要的操作。

function ExecAppAndWait(const sApp, sParams: String; wShow: Word; sCurrentDirectory: String = ''): DWord;
{ Parameter wShow: SW_HIDE, SW_SHOWNORMAL, SW_NORMAL, SW_MAXIMIZE ...}
var
  aSI     : TStartupInfo;        // Win32 : STARTUPINFO
  aPI     : TProcessInformation; // Win32 : PROCESS_INFORMATION
  aProc   : THandle;             // Win32
  aCurrentDirectory: PChar;
  s: String;
begin
  s := sApp + ' ' + sParams;
  FillChar(aSI, SizeOf(aSI), 0);
  aSI.cb := SizeOf(aSI);
  aSI.wShowWindow := wShow;
  aSi.dwFlags := STARTF_USESHOWWINDOW;


  if sCurrentDirectory = '' then
    aCurrentDirectory := nil
  else
    aCurrentDirectory := PChar(sCurrentDirectory);

  Win32Check(CreateProcess(nil, PChar(s), nil, nil,
             False, Normal_Priority_Class, nil, aCurrentDirectory, aSI, aPI));
   // in TProcessInformation.hProcess -> Process-Handle
  aProc := aPI.hProcess;

  CloseHandle(aPI.hThread);


  if WaitForSingleObject(aProc, Infinite) <> Wait_Failed then
    GetExitCodeProcess(aProc, Result);
  // free Ressource
  CloseHandle(aProc);
end;

Kornel Kisielewicz 15 年前

ShellExecute是一个直接的WinAPI函数。要获取有关已执行进程的任何信息,需要使用 ShellExecuteEx 相反。

推荐文章

MineRickStar · 如何在Java中从Windows获取当前选定的应用程序

9 月前

dalvol.amsi · 无法在Windows上使用g++使用SFML编译*.cpp文件

9 月前

Parduz · Powershell Get ChildItem:如何获取具有给定BaseName的所有内容,包括文件和文件夹?

10 月前

Dan · 安装后如何获取Powershell Gallery软件包中的函数列表?

10 月前

TheFuture1sNow · ShowWindow()无法最大化窗口的原因是什么?

10 月前

WonkyWombat38 · 如何防止我的Python脚本在Windows上运行后立即关闭?

10 月前

Flash_Steel · 是否有任何方法可以让VBA在不使用CMD的情况下从Windows用户帐户获取当前用户的全名?

10 月前

eden sson · 使用std::thread和native_handle()设置线程关联掩码

1 年前

some guy who likes C · 如何检查可执行文件是否在C[复制]中运行

1 年前

PHPLover · “支持PHP扩展或功能的端口”实际上是什么意思?

1 年前