редактирование раздела HKEY_LOCAL_MACHINE

[spydark91]

как редактировать раздел HKEY_LOCAL_MACHINE?
пытаюсь выполнить код

r:= TRegIniFile.Create();
      r.LazyWrite := false;
      r.RootKey:=HKEY_LOCAL_MACHINE;
      r.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
      r.DeleteValue('LogMeIn Hamachi Ui');
      r.CloseKey;
      r.Free;

но ничего не происходит. с разделом currebt_user,например, все в порядке. юзаю вин7

[Человек_Борща]

А за каким хреном, вообще лазить в системный раздел реестра?

Автозапуск? А CURRENT_USER мало?

что касается сабжа....
1. Проверить существует ли нужный нам ключь реестра.
2. Открыть ключь реестра(без создания если не существует) OpenReadOnly нам не подходит.
3. Проверить наличие нужной нам переменной в этом ключе реестра.
4. Делать что-то с этой переменной
...
закрыть ключь.

[GunSmoker]

ничего не происходит

Проверок на ошибки нет.

[veniside]

> юзаю вин7

не пустят вас под вистой/7 ковыряться в HKEY_LOCAL_MACHINE без UAC (и правильно сделают).

[GunSmoker]

Вообще-то не пустят и в Win2000 и в WinXP (при тех же условиях).

Просто в 2000/XP по умолчанию пользователь работает как админ, в Vista/7 - как обычный пользователь.

[veniside]

Админа тоже не пустят. Нужна именно эскалация прав через UAC.

[GunSmoker]

Админ без элевации это и есть обычный пользователь. Админ с ограничением прав суть ограниченный пользователь. Хотя это зависит от определений терминов.

Я лишь хотел указать, что ситуация в Vista/Win7 ничем не отличается от ситуации в Win2000/XP: админам - можно, ограниченным - нет. Если запустить этот код на Vista/Win7 под администратором (именно в смысле Win2000/XP) - он будет работать точно так же.

[veniside]

> Админ с ограничением прав суть ограниченный пользователь.

а так как в висте/7 по-умолчанию все админы (не в смысле W2K/XP) такие, это и приводит к разрыву шаблона )

[HyperZen]

Подсказка: посмотри в сторону компонентов Jedi WSCL. Там все с примерами. Все работает прекрасно с любой веткой реестра и в Win7 тоже.

uses
  JwaWindows,
  JwsclToken,
  JwsclSecureObjects,
  JwsclPrivileges,
  JwsclAcl,
  JwsclDescriptor,
  JwsclTypes,
  JwsclConstants,
  JwsclKnownSid,
  JwsclUtils,
  JwsclStrings;

...

public
    procedure SetRegKeySecurity(KeyRoot : HKEY; KeyName : String);

implementation


// Устанавливаем разрешение на ветку реестра путем добавления нового пользователя
// с правами администратора (необходимо иметь права админа)
procedure SetRegKeySecurity(KeyRoot : HKEY; KeyName : String);
var
  Privs : IJwPrivilegeScope;
  Key : HKEY;
  KeySec : TJwSecureRegistryKey;
  DACL : TJwDAccessControlList;
begin
  JwInitWellKnownSIDs; //inits JwSecurityProcessUserSID

  if RegOpenKeyEx(KeyRoot, PChar(KeyName), 0, KEY_ALL_ACCESS, Key) = ERROR_ACCESS_DENIED then
  begin
    //not necessary since KeySec.TakeOwnerShip(); does it on its own
    //But just show the power of interfaces
    //The privilege will be restored to inactive state when the procedure exists
    Privs := JwGetPrivilegeScope([SE_TAKE_OWNERSHIP_NAME], pst_Enable);

    //First open key for write owner
    if RegOpenKeyEx(KeyRoot, PChar(KeyName), 0, WRITE_OWNER, Key) <> 0 then
      RaiseLastOSError;

    try
      //take ownership - can fail with exception
      TJwSecureRegistryKey.TakeOwnerShip(Key);

      //we need to reopen the handle for further access
      if RegOpenKeyEx(KeyRoot, PChar(KeyName), 0, WRITE_DAC, Key) <> 0 then
        RaiseLastOSError;

      //because access is granted on handle creation we need to
      //recreate the object

      KeySec := TJwSecureRegistryKey.Create(Key);
      try
        DACL := KeySec.DACL; //returns a cached DACL so we must not free it!

        //add process user with full access
        //and also set inheritance (values don't have their own security.)
        DACL.Add(TJwDiscretionaryAccessControlEntryAllow.Create(nil, [afContainerInheritAce], KEY_ALL_ACCESS, JwSecurityProcessUserSID));
        //set DACL - may fail with exception
        KeySec.SetDACL(DACL);
      finally
        KeySec.Free;
      end;
    finally
      RegCloseKey(Key)
    end;
  end;
end;

Использование:

SetRegKeySecurity(HKEY_LOCAL_MACHINE, 'SYSTEM\ControlSet001\Control\Class\{36FC9E60-C465-11CF-8056-444553540000}');

ПС: но для твоих целей используй ветку, разрешенную в Винде по-умолчанию... (см. посты выше)

[veniside]

DACL.Add(.. KEY_ALL_ACCESS.. )

верно, зачем звонить в звонок, заходить через дверь, если можно на танке заехать через стену )

Чтобы запросить UAC, достаточно в манифест добавить строчки

	      <requestedPrivileges>
	        	<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>
	      </requestedPrivileges>

и всё. Пользователь будет уведомлён, что прога хочет что-то страшное сделать с системой, и либо позволит ей это, либо нет. Все довольны.