Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#5
  Alt 26. Jul 2002, 19: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;
  Mit Zitat antworten Zitat