вот так робит
, но это явно какое-то извращение
delphi Код:
procedure Test(const i:Int64); stdcall;
begin
ShowMessage(inttostr(i));
end;
var
i:Int64;
a:array [0..1] of integer;
i1,i2:integer;
begin
i:=874987897987;
Move(i,a,8);
i1:=a[0];
i2:=a[1];
asm
push i2
push i1
call test
end;
end.