我正在使用Delphi 2010.是否可以告诉Delphi不为函数生成序言？我正在写一些像这样的纯汇编函数：
@H_502_2@procedure SomeAssembly; stdcall;
begin
asm
...
end;
end;
我想告诉Delphi不要为这个函数生成一个序言和结语,比如C的__declspec(裸)功能.
所以没有人浪费他们的时间,我不需要帮助让这些功能与序幕一起工作;我已经可以做到了.这只是一个很大的不便,将使维护成为一个巨大的麻烦.我将不得不手动检查编译器生成的序言以查看它们的长度,如果更改,我的程序将崩溃.
我也知道我可以将函数编写为字节数组中的一系列字节,但这比查找Delphi序言的长度更糟糕.
解决方法
Delphi不为没有参数的函数生成序言或结尾,并使用寄存器调用约定声明.如果您想要没有序言的函数,请将它们声明为零参数,寄存器调用约定函数.此外,跳过开始结束块并直接进入汇编.
@H_502_2@procedure SomeAssembly; // register; (implied)
asm
// ...
end;
既然你实际上在谈论函数的本质,那么调用它们可能会很棘手.如果你已经实现了一个函数,好像它接收了参数并使用了不同的调用约定,那么你必须确保编译器在调用站点知道它.为此,声明一个反映函数“真实”类型而不是声明类型的函数指针.例如,如果您的函数实际上是一个双参数stdcall函数,请声明如下：
@H_502_2@type TSomeAssemblyFunc = function (Arg1: Integer; Arg2: PAnsiChar): Boolean; stdcall; var SomeAssemblyProc: TSomeAssemblyProc;现在,分配该变量,使其指向您的函数：
@H_502_2@SomeAssemblyProc := TSomeAssemblyProc(@SomeAssembly); if SomeAssembly(2,'foo') then ...除了跳过序言和尾声之外,编译器还会为此函数生成不正确的RET指令(因为调用约定不同),所以你必须确保在代码中说ret 8而不是让编译器默认ret指令发生.
如果你有一个有效的调试器,找到Delphi序言的长度是微不足道的：
>在函数开头设置断点.>调用该功能.>当调试器在断点处停止时,切换到cpu视图.>查看构成序言的说明.>计算这些指令旁边显示的字节数.