dbook.dpr

-个人文档管理专家V1.10版本源码

program DBook;

uses
  Forms,
  Windows,
  Main in 'Main.pas' {MainFrm},
  PublicUnit in 'PublicUnit.pas',
  AddUnit in 'AddUnit.pas' {AddFrm},
  AdvanceUnit in 'AdvanceUnit.pas' {AdvanceFrm},
  TempUnit in 'TempUnit.pas' {TempFrm},
  SplashUnit in 'SplashUnit.pas' {SplashFrm},
  PreviewUnit in 'PreviewUnit.pas' {PreviewFrm},
  LoginUnit in 'LoginUnit.pas' {LoginFrm};

{$R *.res}
var
  ExeHandle:THandle;
begin
  ExeHandle:=FindWindow(nil,'DBook -个人文档管理专家');
  if ExeHandle<>0 then  //关闭程序
  begin
    Application.MessageBox('已经有一个DBook在运行','提示',0);
    Application.Terminate;
  end
  else
  begin
    SplashFrm:=TSplashFrm.Create(Application);
    SplashFrm.Show;
    SplashFrm.Update;
    Application.Initialize;
    Application.CreateForm(TMainFrm, MainFrm);
    //Application.CreateForm(TLoginFrm, LoginFrm);
    SplashFrm.Hide;
    SplashFrm.Free;
    Application.Run;
  end;
end.