Zitat von
Apollonius:
Du darfst nicht einfach aus Funktionen Methoden machen!
Genau, du brauchst echt nur noch den Code per Copy und Paste hinzufügen.
Delphi-Quellcode:
function EnumWinProc(Wnd: THandle; Lbx: TListBox): Boolean; stdcall;
var
WinCaption : string;
Len: integer;
begin
Result := True;
Len := GetWindowTextLength(Wnd);
SetLength(WinCaption, Len);
GetWindowText(Wnd, PChar(WinCaption), Len + 1);
if Trim(WinCaption) <> '' then
Lbx.Items.Add(Format('%.6x : %s', [Wnd, WinCaption]));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWinProc, DWord(ListBox1));
end;