Работа с Реестром

[Halogen]

Помогите разобраться читаю данные с реестра

var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit', true);

Memo1.Lines.Text:=Reg.ReadString('Userinit');

  Reg.CloseKey;
  Reg.Free;
end;

Но программа говорит что там нету нечего, хотя когда я в ручную захожу через реестр по этому ключу я вижу что там есть данные, когда пытаюсь записать туда свои данные он пишет не поэтому адресу а записывает в HKEY_CURRENT_USER, почему это проявляется и как записать данные по нужному адресу ???

[Stilet]

Может винда запрещает? UAC и все такое...

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

Вырубите антивирус и пишите туда что хотите. Только свои трояны сами себе и ставьте.

[Halogen]

Сообщение от Человек_Борща

Вырубите антивирус и пишите туда что хотите. Только свои трояны сами себе и ставьте.

антивируса нету, фаервол отключен, пишу не троян а изучаю на какие ключи реестра и другие действия реагирует антивирус, вручную меняется а так не хочет

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

Может винда запрещает? UAC и все такое...

UAC отключал вообще то есть не какого учета, не люблю когда при открытие файла выскакивает хочу ли я открыть (бесит это) может по этому не дает изменить ?

кстати сюда прописывается без проблем

var
Reg:TRegistry;
begin
CopyFile(PChar(ExtractFileName(Application.ExeName)),'ta.exe',False);
Reg:=TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
Reg.WriteString('ta','D:\1\C\C\1\ta.exe');
Reg.CloseKey;
Reg.Free;
end;

[Vapaamies]

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

когда я в ручную захожу через реестр по этому ключу я вижу что там есть данные

64-битная Винда и 32-битная программа. Угадал?

[Halogen]

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

64-битная Винда и 32-битная программа. Угадал?

Да винда 64, а программа хз какая просто скомпилировал данный код в делфи 7

[Пепел Феникса]

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

Да винда 64, а программа хз какая просто скомпилировал данный код в делфи 7

делфи 7 не умеет в принципе 64 бита.

далее еще насчет UAC, иногда все равно требуется указывать админские права.

[Halogen]

Сообщение от Пепел Феникса

делфи 7 не умеет в принципе 64 бита.

далее еще насчет UAC, иногда все равно требуется указывать админские права.

Буквально секунду назад пробовал запускать от админа тот же результат

О уже что то, путь прописывается теперь в
HKLM\Software\Wow6432node\microsoft \Windows NT\CurentVersion\Winlogon

[Vapaamies]

Да, так и должно быть. Delphi 7 создает 32-битные приложения. Я угадал.

[Toxa]

var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', true);

Memo1.Lines.Text:=Reg.ReadString('Userinit');

  Reg.CloseKey;
  Reg.Free;
end;

Userinit это не раздел в реестре, а параметр, не надо его прписывать в OpenKey, а надо только в ReadString