得到在内存中运行的所有应用程序的handle (2001年2.txt

来自「delphi 编程技巧」· 文本 代码 · 共 35 行

得到在内存中运行的所有应用程序的handle (2001年2月1日) 

网友更新  分类:系统   作者: luyu(推荐)  推荐:luyu   阅读次数: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;