System Delphi

//drony@mynet.com
//icq:266148308
procedure TForm1.Button1Click(Sender: TObject);
var cName : Array[0..63] of Char;
Handle: THandle;
begin
ListBox1.Items.Clear;
ListBox1.Sorted := True;
Handle := Self.Handle;
GetClassName(Self.Handle, cName, 64);
ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');
While Handle > 0 do begin
Handle := GetNextWindow(Handle, GW_HWNDNEXT);
GetClassName(Handle, cName, 64);
ListBox1.Items.Add (StrPas(cName) + ' ('+IntToStr(Handle)+')');
end;
end;