Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
p3, p4 : pinteger;
Call2b: procedure(a,b: integer); register;
begin
@Call2b := pointer(pinteger(univoicex1.ControlInterface)^-$230197+$22B0134);
p3 := Pointer(700+integer(univoicex1.ControlInterface));
p4 := pointer(pinteger(integer(p3)+$2FC)^+$8);
Call2b(p3^+$304,p4^);
end;
Und erzähl mir jetzt blos nicht du weißt was du da machst. Normalerweise unterstütz ich so nen quatsch eigentlich nicht.