mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-27 03:08:21 +02:00
20 lines
337 B
ObjectPascal
20 lines
337 B
ObjectPascal
{$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.
|