david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
34 lines
752 B
ObjectPascal
34 lines
752 B
ObjectPascal
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.
|