program ExtendedFileTransferServer;

{#ROGEN:ExtendedFileTransferLibrary.rodl} // RemObjects: Careful, do not remove!

uses
  uROComInit,
  uROComboService,
  Forms,
  ExtendedFileTransferServerData in 'ExtendedFileTransferServerData.pas' {ExtendedFileTransferServerDataForm: TDataModule},
  ExtendedFileTransferServerMain in 'ExtendedFileTransferServerMain.pas' {ExtendedFileTransferServerMainForm},
  ExtendedFileTransferLibrary_Intf in 'ExtendedFileTransferLibrary_Intf.pas',
  ExtendedFileTransferLibrary_Invk in 'ExtendedFileTransferLibrary_Invk.pas',
  ExtendedFileTransferService_Impl in 'ExtendedFileTransferService_Impl.pas' {ExtendedFileTransferService: TRORemoteDataModule};

{$R *.res}
{$R RODLFile.res}

begin
  if ROStartService('FileTransferEx', 'FileTransferEx') then begin
    ROService.CreateForm(TExtendedFileTransferServerDataForm, ExtendedFileTransferServerDataForm);
    ROService.Run;
    Exit;
  end;

  Application.Initialize;
  Application.Title := 'Extended File Transfer Server';
  Application.CreateForm(TExtendedFileTransferServerDataForm, ExtendedFileTransferServerDataForm);
  Application.CreateForm(TExtendedFileTransferServerMainForm, ExtendedFileTransferServerMainForm);
  Application.Run;
end.