as title 要怎麼知道某個.exe 是否正在執行？

引言: as title 要怎麼知道某個.exe 是否正在執行？

可以參考 bruce0211 的「心得分享系列 」 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18760 其中有介紹到 FindWindow() 的 API 可以用來作您想要的判斷。

我的exe檔是檔名相同，但form的title是不同的 若用findwindow()的話，好像不行說

引言: 我的exe檔是檔名相同，但form的title是不同的 若用findwindow()的話，好像不行說

Form 的 Title 不同沒有關係（就給它 nil 就好了）， Form 的物件應該是固定的吧，用 Form 的物件名稱就可以了。如果連 Form 的物件名稱都不固定... 那我就不知道要如何作了

我的心得分享文章系列 有討論到FindWindow "概略搜尋"的問題 即Form 名稱可以不用固定名稱 .... bruce0211

利用程式名稱偵測,請見:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19350 利用用執行檔名偵測,請見:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19353 ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

引言: as title 要怎麼知道某個.exe 是否正在執行？

uses TlHelp32; var hSS: THandle; ProcEntry32: PROCESSENTRY32; bFound: Boolean; iCount: Integer; begin bFound := False; iCount := 0; hSS := CreateToolHelp32Snapshot(TH32CS_SNAPALL, 0); ProcEntry32.dwSize := sizeof(ProcEntry32); if Process32First(hSS, ProcEntry32) then begin repeat if ProcEntry32.szExeFile = Application.ExeName then begin Inc(iCount); if iCount > 1 then begin bFound := True; Break; end; end; until not Process32Next(hSS, ProcEntry32); CloseHandle(hSS); end; if bFound then Exit; end; iCount為你用Ctrl Alt Del觀察時出現的Test.exe數目 若此值大於1則顯然得知此exe file已經在「跑」了 -- jarsing 發表人 - jarsing 於 2002/07/16 03:10:39

請教各位大大： 我按照http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19353的作法，似乎只能偵測到自己的程式名稱，如果我到工作管理員-->處理程序找一個已在執行的exe檔，似乎判斷不出來.....是我的程式碼有錯嗎，我的程式碼如下??我的程式是project2.... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} Function ApplicationUse(fName : string ) : boolean; var HFileRes : HFILE; begin Result := false; if not FileExists(fName) then exit; HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.Button1Click(Sender: TObject); begin if ApplicationUse('project2.exe') then showmessage('project1.exe is running') else showmessage('*************************'); end; end. 謝謝大家.....

 供參考

[發表] 顯示目前執行的程序(Process List) (含Source Code)
http://delphi.ktop.com.tw/board.php?cid=31&fid=79&tid=86821

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！