Named Pipes zwischen Service und eingeschränktem Programm

[CodeX]

Hm, sind die Flags bei CreateNamedPipe jetzt zu streng?

Delphi-Quellcode:

procedure TPipeServer.StartUpServer;
begin
  try
    // Pipe bereits vorhanden?
    if WaitNamedPipe(PChar(FPipeName), 100 {ms}) then
      raise Exception.Create('PIPE bereits vorhanden.');

    // Pipe erstellen
    FHandle := CreateNamedPipe(
      PChar(FPipeName), PIPE_ACCESS_DUPLEX,
      PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE or PIPE_WAIT,
      PIPE_UNLIMITED_INSTANCES, SizeOf(RPIPEMessage), SizeOf(RPIPEMessage),
      NMPWAIT_USE_DEFAULT_WAIT, nil
    );

    // Pipe erstellt?
    if FHandle = INVALID_HANDLE_VALUE then
      raise Exception.Create('PIPE konnte nicht erstellt werden.');
  except
  end;
end;