Problem mit Service und TEvent

[samso]

Eventuell hilft:

Delphi-Quellcode:

var
  FSecurityAttributes : TSecurityAttributes;
  FSecurityDescriptor : TSecurityDescriptor;
begin
  InitializeSecurityDescriptor(@FSecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@FSecurityDescriptor, true, nil, false);
  FSecurityAttributes.nLength := SizeOf(FSecurityAttributes);
  FSecurityAttributes.lpSecurityDescriptor := @FSecurityDescriptor;
  FSecurityAttributes.bInheritHandle := false;

  FEvent := TEvent.Create (@FSecurityAttributes, False, False, 'MyEventName');
...