server.dpr

来自「一个使用UDP开发的消息广播服务与客户端程序」· DPR 代码 · 共 38 行

program server;

uses
  Forms,
  Userver in 'Userver.pas' {frmServer},
  Udm in 'Udm.pas' {DMServer: TDataModule},
  USplash in 'USplash.pas' {frmSplash},
  TypeInc in 'TypeInc.pas',
  Ulogin in 'Ulogin.pas' {frmlogin};

{$R *.res}

begin
  Application.Initialize;
  //============================
  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
  frmSplash.Refresh;
  //============================
  Application.Title := 'CnMessage 服务器';
  Application.CreateForm(TDMServer, DMServer);
  Application.CreateForm(TfrmServer, frmServer);
  frmSplash.free;
  Application.Title := '系统登录';
  frmlogin:= Tfrmlogin.Create(Application);
  frmlogin.ShowModal ;
  if frmlogin.Tag=0 then
  begin
    frmlogin.Free;
    frmServer.Free;
    DMServer.Free;
    exit;
  end;
  frmlogin.Free;
  Application.Title := 'CnMessage 服务器';
  Application.Run;
end.