TAdvancedSingleInstance

type TAdvancedSingleInstance = class(TBaseSingleInstance)

protected

  procedure DoServerReceivedCustomRequest();

  function GetIsClient; override;

  function GetIsServer; override;

  function GetStartResult; override;

public

  constructor Create(); override;

  function Start; override;

  procedure Stop; override;

  procedure ServerCheckMessages; override;

  procedure ClientPostParams; override;

  function ClientPostCustomRequest();

  function ClientSendCustomRequest();

  procedure ServerPostCustomResponse();

  function ClientPeekCustomResponse();

  property ID: string; [rw]

  property Global: Boolean; [rw]

  property OnServerReceivedCustomRequest: TSingleInstanceReceivedCustomMessage; [rw]

end;

TAdvancedSingleInstance

TBaseSingleInstance

TObject