得到在內(nèi)存中運(yùn)行的所有應(yīng)用程序的handle (2001年2月1日) 

網(wǎng)友更新  分類:系統(tǒng)   作者: luyu(推薦)  推薦:luyu   閱讀次數(shù):668  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

uses
TLHelp32;

procedure MemOk;
var
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
Ret : BOOL;
ProcessHndle : THandle;
ProcessID : integer;
s:string;
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
Ret:=Process32First(FSnapshotHandle,FProcessEntry32);
ProcessID:=FProcessEntry32.th32ProcessID;
while Ret do
begin
s:=ExtractFileName(FProcessEntry32.szExeFile);
showmessage(s);
Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
ProcessHndle:=OpenProcess(PROCESS_VM_WRITE,false,ProcessID);
CloseHandle(ProcessHndle);
end;