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;
