sgip_server.~dpr

SPIG1.1.rar SPIG接口协议

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';

{$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:='短信服务器';
  if not GetLocalIP(par)
    then begin
      ErrorMsg(1,'对不起该系统不能在您的计算机'+#13+#13+#10+
                '上运行，请与系统管理员联系！');
      Application.Terminate;
      Exit;
   end;
  Application.Run;
end.