如何得知記憶體中是否有某一程式在執行中? |
答題得分者是:RaynorPao
|
121412
一般會員 ![]() ![]() 發表:6 回覆:17 積分:4 註冊:2005-03-09 發送簡訊給我 |
|
RaynorPao
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
121412
一般會員 ![]() ![]() 發表:6 回覆:17 積分:4 註冊:2005-03-09 發送簡訊給我 |
===================引 用 RaynorPao 文 章=================== 先參考這一篇文章 http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=95622 感謝版主, 雖然您所貼的這篇文章是BCB,我有看沒有懂, 不過跟著其連結不斷追蹤下次, 終於讓我找到我所需要的了. 所以版主大大還是100分啦~ 將我所找到的部份貼出, 分享給以後用Delphi有需要的人. function TForm1.ApplicationUse(fName : string) : boolean; var hSS: THandle; ProcEntry32: PROCESSENTRY32; iCount: Integer; begin Result := False; iCount := 0; hSS := CreateToolHelp32Snapshot(TH32CS_SNAPALL, 0); ProcEntry32.dwSize := sizeof(ProcEntry32); //----------------- if Process32First(hSS, ProcEntry32) then begin repeat // Application.MessageBox((ProcEntry32.szExeFile),'...'); if UpperCase(ProcEntry32.szExeFile) = UpperCase(fName) then begin spid := ProcEntry32.th32ProcessID; Inc(iCount); if iCount >= 1 then begin Result := True; Break; end; end; until not Process32Next(hSS, ProcEntry32); CloseHandle(hSS); end; //-------------- if Result then Exit; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |