W2K + HKEY_LOCAL_MACHINE + PowerUser = грабли

← →
yaJohn (2003-10-20 14:46) [0]

Собственно - сабж. Не хочет открывать ключ. Под XP - все нормально. В W2k под админом - тоже.
Приведу на всяк случай код, вдруг точку с запятой забыл поставить...

procedure TForm1.Button1Click(Sender: TObject);
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey ("\Software\John", true)
then begin
Reg.WriteString("John", Edit1.Text);
Reg.CloseKey;
end
else begin
ShowMessage (":("); //Тут вылетает сабж.
exit;
end;

if reg.OpenKey ("\Software\John", true)
then begin
ShowMessage (Reg.ReadString("John"));
Reg.CloseKey;
end
else begin
ShowMessage ("2 :(");
exit;
end;
end;

Где грабли? Заранее спасибо.

← →
Юрий Федоров (2003-10-20 14:50) [1]

Наврено просто нет прав на изменение HKEY_LOCAL_MACHINE
под этим пользователем ?

← →
yaJohn (2003-10-20 14:53) [2]

RegEdit, однако может. И документация утверждает, что можно...

← →
Игорь Шевченко (2003-10-20 15:28) [3]

if reg.OpenKey ("Software\John", true)

Не поможет ?

← →
dmtr (2003-10-20 16:14) [4]

Reg.OpenKeyReadOnly ?

← →
yaJohn (2003-10-20 16:25) [5]

2 Игорь Шевченко
Пробовал...

2 dmtr
Нужно и чтение и запись...

← →
Rouse_ (2003-10-20 16:29) [6]

Юрий Федоров же сказал, получи права на изменение этого ключа.

Пример есть в FAQ кажется

Желаю успехов

← →
clickmaker (2003-10-20 16:31) [7]

TRegistry.Create(KEY_WRITE) ?

← →
Razorblade (2003-10-20 16:35) [8]

Та же проблема под Win2k_Sp3! Не получается ПРОСТО прочитать из реестра :

iInfo := TRegistry.Create;
iInfo.RootKey := HKEY_CURRENT_USER;
iInfo.OpenKeyReadOnly("Software\Microsoft\Windows\CurrentVersion\Internet Settings\");
Result.ProxyEnabled := Boolean(iInfo.ReadInteger("ProxyEnable"));
......

Под Админом - нормально а вот под другим юзером ... облом.

W2K + HKEY_LOCAL_MACHINE + PowerUser = грабли Найти похожие ветки