17.02.2023, 13:10
|
Прохожий
|
|
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
|
|
Все получилось.
функция
Код:
function EnumProcid (Wnd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!!
Var
Nm:Array[0..255] of Char; // буфер для имени
Cs: Array[0..255] of Char; // буфер для класса
PID:DWORD;
Proc: THandle;
pmc: PPROCESS_MEMORY_COUNTERS;
cb: Integer;
s:string;
Begin
GetWindowText(Wnd,Nm,255); // считываем текст заголовка окна
GetClassName(Wnd,Cs,255); // считываем название класса окна
cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
GetMem(pmc, cb);
pmc^.cb := cb;
GetWindowThreadProcessId(wnd,PID); //узнаем PID процесса через его HWND
Proc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID); //пытаемся получить информацию о процессе
if GetProcessMemoryInfo(proc, pmc, cb) then s:=FloatToStr(pmc^.WorkingSetSize/1024)+' / '+FloatToStr(pmc^.PagefileUsage/1024);
if IsWindowEnabled(wnd) and IsWindowVisible(Wnd) then Form1.ListBox1.Items.Add(inttostr(pid)+' / '+inttostr(wnd)+' / '+String(Cs)+' / '+String(Nm)+' / '+s); // Добавляем PID, HWND, название класса, заголовок окна и кол-во памяти в Кб
EnumProcid := TRUE; // продолжать искать окна…
FreeMem(pmc);
CloseHandle(Proc);
end;
Ее использование
Код:
procedure TForm1.Button6Click(Sender: TObject);
begin
ListBox1.Items.Clear; // Очистим список перед началом поисков
EnumWindows (@EnumProcid, 0); // и скажем - искать
end;
Выводит PID и кол-во используемой памяти всех запущенных приложений как в диспетчере задач.
|