Чуть переоформил:
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
var
SA: TSecurityAttributes;
SD: TSecurityDescriptor;
H: THandle;
begin
// Создаем дескриптор безопасности
if InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION) and
// DACL не установлен, объект не защищён
SetSecurityDescriptorDacl(@SD, True, nil, False) then
begin
// Настраиваем атрибуты безопасности, передавая указатель на дескриптор безопасности
SA.nLength := SizeOf(SA);
SA.lpSecurityDescriptor := @SD;
SA.bInheritHandle := False;
// Создаём событие
H := CreateEvent(@SA, True, False, 'Global\MyTestEvent');
end;
...
После создания такого объекта его можно спокойно открыть кем угодно хоть с EVENT_ALL_ACCESS
