var pe:PROCESSENTRY32; me:MODULEENTRY32; hp,hm:Thandle; b,b1:boolean; han_str,Pro_path:string; begin hp:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0); pe.dwSize:=SizeOf(pe); b:=Process32First(hp,pe); while b do begin //TH32CS_SNAPMODULE hm:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,pe.th32ProcessID); me.dwSize:=sizeof(ModuleEntry32); if Module32First(hm,me) then begin b1:=Module32First(hm,me); while b1 do begin Pro_path:=LowerCase(me.szExePath); end; b1:=Module32Next(hm,me); end; end; b:=Process32Next(hp,pe); end; end;
pe:PROCESSENTRY32;
me:MODULEENTRY32;
hp,hm:Thandle;
b,b1:boolean;
han_str,Pro_path:string;
begin
hp:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=SizeOf(pe);
b:=Process32First(hp,pe);
while b do
begin //TH32CS_SNAPMODULE
hm:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,pe.th32ProcessID);
me.dwSize:=sizeof(ModuleEntry32);
if Module32First(hm,me) then
begin
b1:=Module32First(hm,me);
while b1 do
begin
Pro_path:=LowerCase(me.szExePath);
end;
b1:=Module32Next(hm,me);
end;
end;
b:=Process32Next(hp,pe);
end;
end;