请教，有没有办法让代码在initexe的前面运行。

Question

请教，有没有办法让代码在initexe的前面运行。
我用delphi编译的程序在入口处，都会先调用initexe,有没有什么办法先运行一段其他代码再调用initexe呢？

Answer 1

可以的,给你帖段代码看看
begin
  if (not Check_SelfRun){and(CheckNetState)} then
  begin
      if CheckNetState then
        begin
        FrmLogIn:=TFrmLogIn.Create(nil);
        FrmLogIn.Caption:='在线登录[已链接服务器]';
        FrmLogIn.ShowModal;
        end else
        begin
        FrmLogIn:=TFrmLogIn.Create(nil);
        FrmLogIn.Caption:='离线登录[未链接服务器]';
        FrmLogIn.ShowModal;
        end;
      if FrmLogIn.ModalResult = mroK then
      begin
        FrmLogIn.Free;
        Application.Initialize;这样就把 登录的提前创建和销毁

Answer 2

多谢大家关注。
To mrbu74  编译器在begin 后就自动把 Call @initexe 加上了。
    Application就是调用initexe 建立的。我就是想在Application.create 前执行一段代码。

Answer 3

给你一个提示，全局变量初始化是发生在程序入口之前的。
你可以在某一个initialization下面调用你想调用的。

Answer 4

initialization 是在Application.create 后调用的。
算了，还是改Forms 好了。多谢大家了。

Answer 5

你可以在单元中的initialization执行你的初始化。在FINALIZATION执行结束的代码