Четверг, 28.03.2024
Просто сайт
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Программирование » Borland Delphi 7 » Получение информации о процессах
Получение информации о процессах
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;
 
Форум » Программирование » Borland Delphi 7 » Получение информации о процессах
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024
Создать бесплатный сайт с uCoz