library MultiChannel_DLLServer;

{#ROGEN:MultiChannelLibrary.rodl} // RemObjects: Careful, do not remove!
{$R RODLFile.res}
{$R *.res}

uses
  Windows,
  uRODLLServer,
  uROBinMessage,
  MultiChannelLibrary_Intf in 'MultiChannelLibrary_Intf.pas',
  MultiChannelLibrary_Invk in 'MultiChannelLibrary_Invk.pas',
  MultiChannelService_Impl in 'MultiChannelService_Impl.pas';

var BINMessage : TROBINMessage;

procedure ROProc(Reason:integer);
begin
  case Reason of
    DLL_PROCESS_ATTACH: begin
      BINMessage := TROBINMessage.Create(NIL);
      RegisterMessage(BINMessage);
    end;
    DLL_PROCESS_DETACH: begin
      BINMessage.Free;
    end;
  end
end;

begin
  DLLProc:=@ROProc;
  ROProc(DLL_PROCESS_ATTACH)
  end.