[Vladimr]

Все получилось.

функция

Код:

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 и кол-во используемой памяти всех запущенных приложений как в диспетчере задач.