netimsserver.dpr

来自「计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能」· DPR 代码 · 共 45 行

program NetImsServer;

uses
  Forms,
  Windows,
  SysUtils,
  Dialogs,
  SrvTest in 'SrvTest.pas' {FrmSrvTest},
  NetImsServer_TLB in 'NetImsServer_TLB.pas',
  ConstDef in '..\Type\ConstDef.pas',
  SrvRmt in 'SrvRmt.pas' {NImsSrv: TRemoteDataModule},
  SrvMain in 'SrvMain.pas' {FrmSrvMain},
  SrvLog in 'SrvLog.pas' {FrmSrvLog},
  AboutSoft in '..\NIMSClient\AboutSoft.pas' {FrmSoftInfo},
  AboutCompy in '..\NIMSClient\AboutCompy.pas' {FrmAboutCompy},
  IniReg in 'IniReg.pas' {FrmIniReg},
  QueryStat in 'QueryStat.pas' {FrmQueryStat},
  FieldDef in '..\Type\FieldDef.pas',
  EditPrice in 'EditPrice.pas' {FrmEditPrice},
  EditClnt in 'EditClnt.pas' {FrmEditClnt},
  EditCust in 'EditCust.pas' {FrmEditCust},
  EditLog in 'EditLog.pas' {FrmEditLog},
  SysWatch in 'SysWatch.pas' {FrmSysWatch};

{$R *.TLB}

{$R *.RES}

var
  hMutex : HWND;//互斥体句柄
  iRetMutex : Integer; //返回值

begin
{ 1}  Application.Initialize;
{ 2}  Application.Title := 'NIms服务器';
{ 3}  hMutex := CreateMutex(nil,False,DefSrvAlias); //产生互斥体句柄
{ 4}  iRetMutex := GetLastError;   //返回线程的错误码
{ 5}  if iRetMutex<>ERROR_ALREADY_EXISTS Then begin
{ 6}     Application.CreateForm(TFrmSrvMain, FrmSrvMain);
{ 7}     Application.Run;
{ 8}   end
{ 9}  else MessageDlg('NIms服务器已经运行!',mtWarning,[mbOK],0);
{10}  ReleaseMutex(hMutex);  //释放互斥体句柄
end.