xszmgl.dpr

销售帐目管理

program XSZMGL;

uses
  Forms,
  WinTypes,
  SysUtils,
  Main in 'Main.pas' {FrmMain},
  PubUnit in 'PubUnit.pas',
  PicSet in 'PicSet.pas' {FrmPicSet},
  ScreenSafe in 'ScreenSafe.pas' {FrmScreenSafe},
  DateCn in 'DateCn.pas',
  DataModule in 'DataModule.pas' {DataModule1: TDataModule},
  SysSet in 'SysSet.pas' {FrmSysSet},
  Splash in 'Splash.pas' {FrmSplash},
  Spxx in 'Spxx.pas' {FrmSpxx},
  Sjdw in 'Sjdw.pas' {FrmSjdw},
  Dwxx in 'Dwxx.pas' {FrmDwxx},
  Zmdj in 'Zmdj.pas' {FrmZmDj},
  ZmLocate in 'ZmLocate.pas' {FrmZmLocate},
  yhgl in 'Yhgl.pas' {Frmyhgl},
  DeleteUser in 'DeleteUser.pas' {FrmDelete},
  ChgPwd in 'ChgPwd.pas' {FrmChgPwd},
  Adduser in 'Adduser.pas' {FrmAdduser},
  Login in 'Login.pas' {FrmLogin},
  Preview in 'Preview.pas' {FrmPreview},
  About in 'About.pas' {FrmAbout};

{$R *.res}
var hMutex : THandle ; 

begin
  Application.Initialize;
  hMutex:=CreateMutex(nil,False,'销售帐目管理系统');
  If GetLastError <> ERROR_ALREADY_EXISTS Then
  begin
    Application.CreateForm(TDataModule1, DataModule1);
  FrmSplash := TFrmSplash.Create(Application);
    FrmSplash.Show ;
    FrmSplash.Update ;
    Application.CreateForm(TFrmMain, FrmMain);
    FrmSplash.Hide ;
    FrmSplash.Free ;
    Application.Run;
  end;
end.