Registriert seit: 12. Jun 2002
3.483 Beiträge
Delphi 10.1 Berlin Professional
|
26. Jul 2002, 20:20
Mal ein Beispiel:
Code:
function EnumThreadWndProc(wnd: HWND; Items: TStrings): Boolean; stdcall;
var
Buf: array[0..1024] of Char;
WndCaption: string;
begin
SetString(WndCaption, Buf, GetWindowText(wnd, Buf));
Items.Add(WndCaption);
Result := True; // nächstes Fenster;
end;
begin
EnumThreadWindows(ThreadId, @EnumThreadWndProc, Integer(ListBox.Items));
end;
|