12
Srv : TSimpleIPCServer;
16
Srv:=TSimpleIPCServer.Create(Nil);
18
Srv.ServerID:='ipcserver';
21
Writeln('Server started. Listening for messages');
23
If Srv.PeekMessage(1,True) then
26
Writeln('Received message : ',S);
30
Until CompareText(S,'stop')=0;