servermain.dpr

车辆管理系统

program ServerMain;

uses
  Forms,
  Windows,
  Base in '..\Public\Base.pas' {frmBase},
  Base_S in 'Ancestor\Base_S.pas' {frmBase_S},
  untADOLinkSetting in 'untADOLinkSetting.pas' {frmADOLinkSetting},
  untDmServer in 'untDmServer.pas' {DmServer: TDataModule},
  untServerMain in 'untServerMain.pas' {frmServerMain},
  untConsts in 'untConsts.pas',
  untAdminLogin in 'untAdminLogin.pas' {frmAdminLogin},
  untChangePwd in 'untChangePwd.pas' {frmChangePwd},
  untSendMessage in 'untSendMessage.pas' {frmSendMessage},
  untReceiptMessage in 'untReceiptMessage.pas' {frmReceiptMessage},
  ServerMain_TLB in 'ServerMain_TLB.pas',
  untSRDM in 'untSRDM.pas' {SRDM: TRemoteDataModule} {SRDM: CoClass},
  untPooler in 'untPooler.pas',
  untComponentFactory in 'untComponentFactory.pas',
  untCommon in 'untCommon.pas',
  untGlobal in 'untGlobal.pas',
  untExecutesql in 'untExecutesql.pas',
  untOpenSql in 'untOpenSql.pas',
  untCommons in 'untCommons.pas',
  untMainStatusThread in 'untMainStatusThread.pas',
  untTableField in 'untTableField.pas' {frmTableField};

{$R *.TLB}

{$R *.res}

var
  hMutex:hwnd;
  ret:integer;

begin
  Application.Initialize;
  Application.Title:='Middle Level Services';
  Application.CreateForm(TfrmServerMain, frmServerMain);
  hMutex:=CreateMutex(nil,false,'Middle Level Services');
  Ret:=GetLastError;
  if Ret<>ERROR_ALREADY_EXISTS then
    begin
      ReleaseMutex(hMutex);
      Application.Run;
    end
    else
    begin
      Application.MessageBox('You Already Run App','Information',MB_OK+MB_iconWarning);
      Exit;
    end;
end.