main.dpr

来自「生日闹钟源文件」· DPR 代码 · 共 37 行

program Main;

uses
  Windows,
  Messages,
  SysUtils,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit5 in 'Unit5.pas' {Form5},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}
var
 a,b,dd:string;
begin
  Application.Initialize;
  a:=ExtractFilepath(Application.ExeName)+extractfilename(Application.ExeName);
   dd:='C:\WINDOWS\SYSTEM32\DELPHI01.EXE';
  if a=dd then
  begin
  form2:=tform2.create(application);
  form2.free;
  end
  else
   begin
    form2:=Tform2.Create(Application);
    form2.ShowModal;
    form2.Free;
   end;
 
   Application.CreateForm(Tform1, form1);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.