Zitat:
Ist es das? Sehe ich nicht so, aber vielleicht stehe ich gerade auf dem Schlauch.
Du hast nur die Dispatch Funktion "link" den er gepostet hat gesehen.
Vielleicht hilft dir das auf die Sprünge.
Delphi-Quellcode:
function ApiService_Dispatch(AMessage: Integer; AReturn: Pointer;
AParams: PPointerArray; AParamCount: Integer): Integer; stdcall;
Delphi-Quellcode:
ApiServiceVtbl: TDispatchableVtbl = (Dispatch: ApiService_Dispatch);
ApiService: TDispatchable = (Vtbl: Addr(ApiServiceVtbl));
Result := LRESULT(Addr(ApiService));
Aber egal
gruss