seleznev | Дата: Воскресенье, 19.06.2011, 19:09 | Сообщение # 1 |
Группа: Удаленные
| var procesess: array [0..$FFF] of DWORD; i,count, cm: cardinal; ph: THandle; //дескриптор процесса ModName:array[0..max_path] of char;//имя модуля mh:hmodule;//дескрипrтор модуля begin if Not EnumProcesses(@procesess,SizeOf(procesess),count) then Exit else begin for i:=0 to count div 4-1 do begin ph:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, procesess[i]); if ph>0 then begin EnumProcessModules(ph, @mh, 4, cm); GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName)); ListBox1.Items.Add(ExtractFileName(ModName)); ListBox2.Items.Add(string(ModName)); CloseHandle(ph); end; end; end;
|
|
| |