如何判斷外部應用程序何時以delphi結尾

Question

我正在使用ShellExecute運行外部應用程序 如何判斷外部應用程序何時結束？

這裏我的代碼

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

Answer 1

請嘗試以下功能。 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; 

Answer 2

的ShellExecute是直接WinAPI的功能。要獲得有關執行過程的任何信息，您需要改爲使用ShellExecuteEx。