an.dpr

来自「专门针对基于钩子技术、动态链接库（DLL）设计的一类特殊木马的查杀系统」· DPR 代码 · 共 26 行

program AN;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  Splash in 'Splash.pas' {SplashForm},
  About in 'images\About.pas' {AboutForm},
  SelectDir in 'SelectDir.pas' {SelectDirForm};

{$R *.res}

begin
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TSelectDirForm, SelectDirForm);
  SplashForm.Close;
  SplashForm.Free;
  
  Application.Initialize;
  Application.Title := 'Apple Antivirus(Trojan.QQ.Apple专用查杀工具)';
  Application.Run;
end.