xstxgc.dpr

手机批发商进销存管理

program xstxgc;

uses
  Windows,
  Forms,
  UnitMainForm in 'Src\UnitMainForm.pas' {MainForm},
  UnitDM in 'Src\UnitDM.pas' {DM1: TDataModule},
  UnitPublicFunction in 'Src\UnitPublicFunction.pas',
  ZibCompressor in 'Src\ZibCompressor.pas',
  UnitGj in 'Src\UnitGj.pas' {GjForm},
  UnitHf in 'Src\UnitHf.pas' {HfForm},
  UnitLoginForm in 'Src\UnitLoginForm.pas' {LoginForm},
  UnitSetupForm in 'Src\UnitSetupForm.pas' {SetupForm},
  UnitSh in 'Src\UnitSh.pas' {ShForm},
  UnitSplashForm in 'Src\UnitSplashForm.pas' {SplashForm},
  UnitTestForm in 'Src\UnitTestForm.pas' {TestForm},
  UnitXs in 'Src\UnitXs.pas' {XsForm},
  UnitAlterPWDForm in 'Src\UnitAlterPWDForm.pas' {AlterPWDForm},
  UnitGoodsNameTypeForm in 'Src\UnitGoodsNameTypeForm.pas' {GoodsNameTypeForm},
  UnitQueryForm in 'Src\UnitQueryForm.pas' {QueryForm},
  UnitDetailForm in 'Src\UnitDetailForm.pas' {DetailForm};

{$R *.res}

var
  Mutex : THandle;
  S : string;
begin
  S := ' 程序实例已经运行！为了防止数据库管理系统死锁，保证数据安全，只允许同时运行一个实例！';
  Mutex := CreateMutex(nil, False, 'Xstxgc');
  try
    if GetLastError = ERROR_ALREADY_EXISTS  then
    begin
      Application.MessageBox(PChar(S), '警告', MB_OK);
      Exit;
    end;
    Application.Initialize;
    Application.CreateForm(TDM1, DM1);
    LoginForm := TLoginForm.Create(nil);
    LoginForm.ShowModal;
    if LoginForm.ModalResult<>2 then
    begin
      SplashForm := TSplashForm.Create(nil,0);
      SplashForm.Show;
      SplashForm.Update;
      Application.CreateForm(TMainForm, MainForm);
      Sleep(500);
      SplashForm.Hide;
      SplashForm.Close;
      Application.Run;
    end;
  finally
    ReleaseMutex(Mutex);
  end;
end.