swserver2.dpr

来自「Delphi三层原代码掩饰及补丁」· DPR 代码 · 共 51 行

program swServer2;

uses
  Forms,
  Windows,
  MainForm_form in 'MainForm_form.pas' {frmDataServer},
  swServer2_TLB in 'swServer2_TLB.pas',
  swModuleIndex in '..\Common\swModuleIndex.pas',
  DataServer_form in 'DataServer_form.pas' {DataServer2: TRemoteDataModule} {DataServer2: CoClass},
  SystemData_DataModule in 'SystemData_DataModule.pas' {SystemData: TRemoteDataModule} {SystemData: CoClass},
  dmBaseModule in '..\Common\dmBaseModule.pas',
  dmBaseService in 'dmBaseService.pas',
  dmSystemService in 'dmSystemService.pas' {dmSysService: TDataModule};

{$R *.TLB}

{$R *.res}

const
  ShenWeiDataServer = 'ShenWeiDataServer';

var
  ShenWeiDataServerAtom: THandle;
  CanExecute: Boolean;

begin
  Application.Initialize;
  CanExecute := False;
  ShenWeiDataServerAtom := GlobalFindAtom(ShenWeiDataServer);
  if ShenWeiDataServerAtom = 0 then
    CanExecute := True
  else if Application.MessageBox('DataServer is running, are you want to run a program copy again?', 'ShenWei DataServer', MB_OKCANCEL) = IDOK then
    CanExecute := True;
  if CanExecute then
    begin
      if ShenWeiDataServerAtom = 0 then
        ShenWeiDataServerAtom := GlobalAddAtom(ShenWeiDataServer);
      try
        Application.CreateForm(TfrmDataServer, frmDataServer);
  Application.Run;
      finally
        GlobalDeleteAtom(ShenWeiDataServerAtom);
      end;
    end
  else
    begin
      Application.Terminate;
    end;
end.