delphi - 如何在 SysInit._InitExe 调用之前放置代码？

Question

我放了asm INT 3 end;在我的主要程序的第一行。

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  asm INT 3 end;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

然而，SysInit._InitExe 调用放在它之前。
请引用下图。
从 uses 子句中删除 VCL 单元不是一种选择。

Answer 1

您可以将 asm 代码放入新单元的初始化部分，然后将此单元首先放入项目的 uses 子句中。这样代码应该在系统单元的初始化部分之后执行。 (一定要测试这个，我根本没有尝试过。)