serroom.~dpr

来自「使用delphi自带的控件」· ~DPR 代码 · 共 20 行

program serRoom;

uses
  Forms,
  Serv in 'Serv.pas' {frmMain},
  tcpMsgServer in 'tcpMsgServer.pas' {dmeMsgServer: TDataModule},
  CommonDef in 'CommonDef.pas',
  Database in '..\client\Database.pas' {CustomerData: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '服务器';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TdmeMsgServer, dmeMsgServer);
  Application.CreateForm(TCustomerData, CustomerData);
  Application.Run;
end.