sp_server.dpr

来自「SPServer.rar一个基于TCP/IP监听发送代码」· DPR 代码 · 共 27 行

program SP_Server;

uses
  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};

{$R *.res}

Var
  RvHandle : LongWord;
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(Tfrm_Set, frm_Set);
  Application.Title:='短信应用服务器';
  Application.Run;
end.