program SGIP_Server;

uses
  ShareMem,
  Forms,
  Windows,
  SPServer in 'SPServer.pas' {frmSGIP},
  SP_SMG_DLL in 'SP_SMG_DLL.pas',
  SP_SMG_Set in 'SP_SMG_Set.pas' {frmSP_SMG_Set},
  SMG_Interface in 'SMG_Interface.pas',
  SMG_SendThread in 'SMG_SendThread.pas',
  SMG_RecvThread in 'SMG_RecvThread.pas',
  SMG_DB in 'SMG_DB.pas' {frmSMGDB: TDataModule},
  SMG_ReportThread in 'SMG_ReportThread.pas',
  SMG_ClientReadThread in 'SMG_ClientReadThread.pas',
  DLL_Exports in 'DLL_Exports.pas',
  SMG_TQ in 'SMG_TQ.pas',
  SMG_ScheduleSend in 'SMG_ScheduleSend.pas';

{$R *.res}
var
  RvHandle : LongWord;
  par      : string;
begin
  RvHandle := FindWindow(scWinClassName, nil);
  if RvHandle > 0 then
  begin
    PostMessage(RvHandle, CM_RESTORE, 0, 0);
    Exit;
  end;
  Application.Initialize;
  Application.CreateForm(TfrmSGIP, frmSGIP);
  Application.CreateForm(TfrmSMGDB, frmSMGDB);
  Application.Title:='短信服務(wù)器';
  if not GetLocalIP(par)
    then begin
      ErrorMsg(1,'對(duì)不起該系統(tǒng)不能在您的計(jì)算機(jī)'+#13+#13+#10+
                '上運(yùn)行，請(qǐng)與系統(tǒng)管理員聯(lián)系！');
      Application.Terminate;
      Exit;
   end;
  Application.Run;
end.