Delphi laufende Tasks - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

laufende Tasks

Ein Thema von MatthiasW · begonnen am 13. Feb 2005 · letzter Beitrag vom 14. Feb 2005

Vorheriger Beitrag

Nächster Beitrag

sniper_w

Registriert seit: 11. Dez 2004
Ort: Wien, Österriech
893 Beiträge

Delphi 6 Enterprise

Re: laufende Tasks

13. Feb 2005, 20:25

zusammenfalten · markieren

Delphi-Quellcode:

			function EnumWinProc(Wnd: THandle; LParam: LongInt): 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

   Form1.Listbox1.Items.Add(Format('%.6x : %s', [Wnd, WinCaption]));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  EnumWindows(@EnumWinProc, 0);

end;

Das könnte eine schnelle Lösung sein.