netimsclient.dpr

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

program NetIMSClient;

uses
  Forms,
  Windows,
  SysUtils,
  Dialogs,
  ClntMain in 'ClntMain.pas' {FrmClntMain},
  CustChk in 'CustChk.pas' {FrmCustChk},
  Open in 'Open.pas' {FrmOpen},
  Refresh in 'Refresh.pas' {FrmRef},
  OpLog in 'OpLog.pas' {FrmOpLog},
  RWCard in 'RWCard.pas' {FrmRWCard},
  CardDLLFT in 'CardDLLFT.pas',
  AboutCompy in 'AboutCompy.pas' {FrmAboutCompy},
  AboutSoft in 'AboutSoft.pas' {FrmSoftInfo},
  NetImsServer_TLB in '..\NIMSServer\NetImsServer_TLB.pas',
  ConstDef in '..\Type\ConstDef.pas',
  FieldDef in '..\Type\FieldDef.pas';
  
{$R *.RES}

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

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