[Delphi] Lista uruchomionych aplikacji

Jak pobrać liste uruchomionych aktualnie aplikacji, ich ikony i tytuły okien głównych ??? Tak jak jest to zrobione w menadżerze zadzań w windows XP/2000 ???

No to tak:

function EnumWindowProc(uchwyt:HWnd;P:Pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
begin
result:=true;
getwindowtext(uchwyt,winname,144);
getclassname(uchwyt,cname,144);
memo1.lines.Add('Nazwa okna: '+winname+' Klasa: '+cname+' Uchwyt: '+uchwyt);
end;

I potem wywołanie :

EnumWindows(@enumwindowproc,0);

:-P [cygaro]

Dzięki ci :)

I potem wywołanie :

EnumWindows(@enumwindowproc,0);

Mam dokładnie ten sam kod. Czy tylko mnie wypieprza błąd "Variable required" na @enumwindowproc? Może ktoś wie, jak to poprawić?