請教各位先進, 程式在記憶體(背景)中執行, 我要如何偵測出來並將它 release?
對前景程式(有視窗)的處理方式可用FindWindow, 可是對記憶體我就沒輒了....

嗚...我真的有去搜尋,找不到才問的哦~XD

先參考這一篇文章 http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=95622

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

===================引 用 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;