Window-Handel rausfinden, was mach ich falsch?

[fkerber]

Hi!

Ich mach das so:

Delphi-Quellcode:

function EnumWindowsProc(const hWnd : Longword; Param: lParam): LongBool; stdcall; 
var
  Buffer: array[0..1024] of Char;
begin
  Result := True;
  GetWindowText(hWnd, Buffer, sizeof(Buffer));
  if lstrlen(Buffer) = 0 then
   begin
    exit;
   end
  else
   begin
    Form1.listbox1.items.Add (buffer);
   end;
end;


procedure TForm1.Button1Click(Sender: TObject); 
var 
LPARRAM : DWord;

begin
EnumWindows (@EnumWindowsProc,Integer(@LPARRAM));
end;


procedure TForm1.Button2Click(Sender: TObject);
var
hHandle: THandle;
i: integer;
begin
for i:=0 to Listbox1.Items.count-1 do begin
hHandle := FindWindow(nil, PChar(Listbox1.Items[i]));
//[...] für jedes Elemnt der LB ein Handle, das ich dann hier verwende
end;
end;

Ciao fkerber