alle handles und captions herausfinden

[XeRo]

Also...ich will von allen fenstern die handles bekommen und dann die titel dieser fenster in einem Memo anzeigen lassen... aber warum funktioniert mein code nicht?

Delphi-Quellcode:

function GetWindow (Handle: HWND; LParam: longint): bool; stdcall;
begin
  Result := true;
  WindowList.Add (Pointer(Handle));
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
 hWindowHandle: HWND;
 Buffer: array [0..255] of char;
 sTitle: String;
begin
 WindowList:= TList.Create;
 EnumWindows(@GetWindow, 0);
 for i := 0 to WindowList.Count - 1 do
   begin
     hWindowHandle:= HWND(WindowList[i]);
     if IsWindowVisible (hWindowHandle) then
      begin
       GetWindowText(hWindowHandle, Buffer, SizeOf(Buffer) - 1);
       if Buffer[0] <> #0 then
        begin
         sTitle:= Copy(StrPas(Buffer),1,22);
        end;
       memo1.Lines.Add(stitle);
      end;
    end;
end;