TransferSvr2.dpr

program TransferSvr2;

uses
  //pub,
  Forms,
//  SvcMgr,
  SysUtils,
  Classes,
  utils_safeLogger,
  uMain in 'uMain.pas' {MainForm},
  udmService in 'Console\udmService.pas' {dmService: TDataModule},
  utils_File in 'Common\utils_File.pas',
  ShareVars in 'Console\ShareVars.pas',
  utils_mswindows in 'Common\utils_mswindows.pas',
  uMSService in 'Console\uMSService.pas' {MSService: TService},
  diocp_ex_sflog_appenders,
  diocp_sockets,
  TcpService in 'Service\TcpService.pas';

{$R *.res}

var
  s: string;

begin
  //Addfirewall;//添加防火墙
  Application.Initialize;
  Application.MainFormOnTaskBar := True;
  Application.CreateForm(TMainForm, MainForm);

  sfLogger.setAppender(TMultiFileAppender4SafeLogger.Create());
  TMultiFileAppender4SafeLogger(sfLogger.Appender).OutputToConsole := False; // not lvIsService;
  TMultiFileAppender4SafeLogger(sfLogger.Appender).FilePreFix := 'Transfer_';
  TMultiFileAppender4SafeLogger(sfLogger.Appender).BasePath := ExtractFilePath(ParamStr(0)) + 'log\';

  RegisterDiocpLogger(sfLogger);
  sfLogger.Enable := false; //禁用所有日志

  if ParamCount >= 1 then
  begin
    s := ParamStr(1);
    __port := StrToIntDef(s, 0);
  end;

  try
    dmService := TdmService.Create(nil);
    try
      dmService.Start;
      Application.Run;
    except

    end;
  finally
    dmService.Stop;
    dmService.Free;
  end;
end.

 

来源：https://www.cnblogs.com/onlyou13/p/12410874.html