إعادة الاستدعاء Callback

[hanipino]

و عليكم السلام و رحمة الله

العملية شبية نوعا ما ب هاكذا اجراءت :

PHP كود :

function add(a, b: Integer): Integer; stdcall;
begin
  Result:= a + b;
end;

function D4(p: Pointer; a,b: Integer): Integer; stdcall
asm
  push b
  push a
  call p
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  i := D4(@Add, 5, 15);
  ShowMessage(IntToStr(i));
end;