檢查某個exe檔案是否正在運作

function exe_is_running(const exeName:String) : Boolean;  //exeName:不要擴充名的Exe主檔案名   

var  

  hCurrentWindow:HWnd;   

  szText:array[0..254] of char;   

begin  

  Result := False;   

  hCurrentWindow:=Getwindow(Application.Handle,GW_HWNDFIRST);   

  while hCurrentWindow <> 0 do  

  begin  

    if Getwindowtext(hCurrentWindow,@sztext,255)>0 then  

    begin  

       if LowerCase(pchar(@sztext))=LowerCase(exeName) then  

       begin  

         Result := true;   

         Exit;   

       end;   

    end;   

    hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);   

  end;   

end;   

用法：

如我們要判斷'Live.exe'程式是否正在運作/是否已經啟動

if exe_is_running(Live) then

  ....

else

    本文轉自 OldHawk  部落格園部落格，原文連結：http://www.cnblogs.com/taobataoma/archive/2007/08/15/856401.html，如需轉載請自行聯系原作者