Список процессов

type
Twindows= record
hWindow array[1..255] of HWND;
Count byte;
end;


(procedure get windows)
procedure GetWindows(HandleHWND; var WindowsTWindows);
begin
With Windows do
begin
Count=1;
hWindow[Count]=GetWindow(Handle,GW_HWNDLAST);
repeat
inc(Count);
hWindow[Count]=GetWindow(hWindow[Count-1],GW_HWNDPREV);
until (hWindow[Count]=0) or (Count>254);
dec(Count);
end;
end;



{main code}
begin
GetWindows(FORM1.handle,Windows);
end;