blob: 4e00a37c5806ecf821c4ef99f0e5a28cbbaf9e0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{$mode objfpc}
{$h+}
program ipcclient;
uses simpleipc;
begin
With TSimpleIPCClient.Create(Nil) do
try
ServerID:='ipcserver';
If (ParamCount>0) then
ServerInstance:=Paramstr(1);
Active:=True;
SendStringMessage('Testmessage from client');
Active:=False;
finally
Free;
end;
end.
|
