Delphi-Quellcode:
function EnumWindowsProc(wHandle: HWND; apphandle: Cardinal): Bool; stdcall; export;
procedure TForm1.Button4Click(Sender: TObject);
begin
RichEdit1.Clear;
EnumWindows( {@EnumWindowsProc}, Application.Handle); // keine Variable
end;
function TForm1.EnumWindowsProc(wHandle: HWND; apphandle: Cardinal): Bool;
begin
Result := True;
PostMessage(apphandle, WM_USER+33, wHandle, 0);
end;
Und EnumWindows erwartet als 1. Parameter: (WNDENUMPROC lpEnumFunc, // pointer to callback function).
Nur bekomm ich es nicht hin den Pointer zu übergeben mehr nicht. Wie gesagt steh dies bezüglich auf der Leitung.
