tkwin.dpr

来自「发射台 控制台 dephi编写 大家可以随便可看看, 可以做dephi入门实例」· DPR 代码 · 共 21 行

program TKWin;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {FrmMain},
  SetUnit in 'SetUnit.pas' {FrmSet},
  PWUnit in 'PWUnit.pas' {FrmPW};

{$R *.res}

begin
  Application.Initialize;
  if CreateMutex then begin
    Application.CreateForm(TFrmMain, FrmMain);
//    Application.CreateForm(TFrmSet, FrmSet);
//    Application.CreateForm(TFrmPW, FrmPW);
    Application.Run;
  end else
    DestroyMutex;
end.