Как запретить программе запись в ветку реестра?

[Tihon]

Чужая программа (ЧП) работает с сд-рома и свои данные записывает в ветку реестра.
Моя программа (МП) может записать в эту ветку, так чтобы ЧП их прочитала и использовала...

При некоторых условиях ЧП портит ранее записанную ветку данными старого сеанса.
Как программно запретить ЧП запись в ветку реестра? МП обеспечит ее данными.
Материал по теме вроде бы и есть, но пока не доходит до мозгов... Покажите примерчик, пожалуйста.

ЗЫ В нескольких местах в инете периодически возникали такие обсуждения... Но нигде до решения не дошли

Вот пример. В реестр записывается подраздел с ключом и значением.

function RegWriteStr(RootKey: HKEY; Key, Name, Value: string): Boolean;
var
  Handle: HKEY;
  Res: LongInt;
begin
  Result := False;
  Res := RegCreateKeyEx(RootKey, PChar(Key), 0, nil,  REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, Handle, nil);
  if Res <> ERROR_SUCCESS then
        Exit;
  Res := RegSetValueEx(Handle, PChar(Name), 0, REG_SZ, PChar(Value),  Length(Value) + 1);
  Result := Res = ERROR_SUCCESS;
  RegCloseKey(Handle);
end;

Что надо исправить, чтобы изменить разрешение на доступ к этому подразделу?

[Stilet]

Покажите примерчик, пожалуйста.

Сам недавно кусал гранит этой области. Понял одно - нужно изменять ACL ветки, а соответственно читать про ACL, ACE, SetSecurityInfo... ну и прочее.

P.S. Я обламался, так толком и не поняв как с этой мишурой работать, но точно знаю что неплохой пример у Фленова (кажись. ибо книга у меня не целиком) был.

[Tihon]

Сообщение от Stilet

Сам недавно кусал гранит этой области. Понял одно - нужно изменять ACL ветки, а соответственно читать про ACL, ACE, SetSecurityInfo... ну и прочее.

P.S. Я обламался, так толком и не поняв как с этой мишурой работать, но точно знаю что неплохой пример у Фленова (кажись. ибо книга у меня не целиком) был.

Библия Делфи Фленова у меня есть. Но по данному вопросу - ничего... Какую книгу Фленова ты имеешь в виду?

Вообще, вопрос становится очень запутанным... Неужели все так сложно?!

[Puskarats]

В какой ветке реестра стоит бит запрета на исполнение regedit.exe?

[GunSmoker]

Вариант исправить разрешения руками через RegEdit не устраивает?

Если нет, то мат-часть здесь: http://www.delphikingdom.ru/asp/view...catalogid=1322

Практика: SetNamedSecurityInfo (WinAPI), либо дельфёвая объектная обёртка (см. демки).