spserver.dpr

SPServer.rar一个基于TCP/IP监听发送代码

program SPServer;

uses
  ShareMem,
  Forms,
  Windows,
  SM_SP_Server in 'SM_SP_Server.pas' {frm_smServer},
  SP_dll in 'SP_dll.pas',
  SP_SverSet in 'SP_SverSet.pas' {frm_Set},
  ServerDB in 'ServerDB.pas' {frmServerDB: TDataModule},
  ServerDBT in 'ServerDBT.pas' {frm_DBT},
  SearchEventsLog in 'SearchEventsLog.pas' {frmSearchEventsLog},
  DataBaseOperat in 'DataBaseOperat.pas',
  SP_DLLs in 'SP_DLLs.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(Tfrm_smServer, frm_smServer);
  Application.CreateForm(TfrmServerDB, frmServerDB);
  Application.Title:='短信应用服务器';
  if not GetLocalIP(par)
    then begin
      ErrorMsg(1,'对不起该系统不能在您的计算机'+#13+#13+#10+
                '上运行，请与系统管理员联系！');
      Application.Terminate;
      Exit;
   end;
  Application.Run;
end.