Ich sehe nicht, wie und wo bei diesem vorgehen das "this" in ecx landet, da stdcall benutzt wird.
Dann lese nochmal..
Delphi-Quellcode:
type
PDispatchableVtbl = ^TDispatchableVtbl;
TDispatchableVtbl = record
Dispatch: function(
AMessage : Integer; // Interpretation is class-dependend
AReturn : Pointer; // Pointer to buffer of return value
AParams : PPointerArray; // Pointer to array of data pointers
AParamCount: Integer // Number of parameters in the array
): Integer; // Almost always TRUE(1) or FALSE(0)
stdcall; // Microsoft's thiscall (ecx = this) <-----
end;
Delphi-Quellcode:
PDispatchable = ^TDispatchable;
TDispatchable = record
Vtbl: PDispatchableVtbl;
end;
Letztendlich wäre die frage ob es ihm was bringt da er quasi nur einen 1 Zeiler verwendet.
Wenn es denn geht warum nicht so belassen.
gruss