Pchar := @Funktion zuweisen

[thepaine91]

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.