laufende Tasks

[sniper_w]

Delphi-Quellcode:

function Getwin(Handle: THandle; List: TStringList): boolean; stdcall;
var
  Buffer : array[0..255] of Char;
begin
  //get the window caption
  SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
  List.Add(Buffer);
  //continue enumeration
  Result :=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Clear;
 EnumWindows(@Getwin, LParam(ListBox1.Items));
end;

Ich glaube, das sollte ausreichen.