我們如何確定一個程序已經在delphi中運行了

Question

我想從我的delphi應用程序運行一個程序（exe）。我可以這樣做，但是我想在運行之前檢查程序是否已經運行。有沒有辦法做到這一點..在此先感謝。

Answer 1

以下函數檢查進程是否正在運行。將「TlHelp32」添加到uses子句中。

function ProcessRunning (sExeName: String) : Boolean; 
{ -> sExeName : Name of the EXE without path. Does not have to be the full EXE name. } 

var 
    hSnapShot : THandle; 
    ProcessEntry32 : TProcessEntry32; 

begin 
    Result := false; 

    hSnapShot := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); 
    Win32Check (hSnapShot <> INVALID_HANDLE_VALUE); 

    sExeName := LowerCase (sExeName); 

    FillChar (ProcessEntry32, SizeOf (TProcessEntry32), #0); 
    ProcessEntry32.dwSize := SizeOf (TProcessEntry32); 

    if (Process32First (hSnapShot, ProcessEntry32)) then 
     repeat 
      if (Pos (sExeName, 
        LowerCase (ProcessEntry32.szExeFile)) = 1) then 
      begin 
       Result := true; 
       Break; 
      end; { if } 
     until (Process32Next (hSnapShot, ProcessEntry32) = false); 

    CloseHandle (hSnapShot); 
end; { ProcessRunning }