22 lines
609 B
ObjectPascal
22 lines
609 B
ObjectPascal
program NamedPipeServer;
|
|
|
|
{#ROGEN:NamedPipeLibrary.rodl} // RemObjects: Careful, do not remove!
|
|
|
|
uses
|
|
uROComInit,
|
|
SvcMgr,
|
|
NamedPipeServerMain in 'NamedPipeServerMain.pas' {NamedPipeServerService: TService},
|
|
NamedPipeLibrary_Intf in 'NamedPipeLibrary_Intf.pas',
|
|
NamedPipeLibrary_Invk in 'NamedPipeLibrary_Invk.pas',
|
|
NamedPipeService_Impl in 'NamedPipeService_Impl.pas';
|
|
|
|
{$R *.RES}
|
|
{$R RODLFile.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.Title := 'Named Pipes Server';
|
|
Application.CreateForm(TNamedPipeServerService, NamedPipeServerService);
|
|
Application.Run;
|
|
end.
|