[xteam777]

Есть код добавления программы в автозапуск.
ОС Вин7.
Запуск с правами админа.
Ошибок не выдает но и в реестр ничего не записывается.
Уже всю голову поломал.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure SetRegistryAutoRun(Value: Boolean); var   Reg: TRegistry;   r: Boolean;   e: LongInt; begin   Reg := TRegistry.Create(KEY_WRITE);   Reg.RootKey := HKEY_LOCAL_MACHINE; //  Reg.LazyWrite := False;   r := Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);   //r := Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);   if not r then     ShowMessage('Not opened');   if Value then     Reg.WriteString('MyProgram', ParamStr(0))   else     Reg.DeleteValue('MyProgram');   e := GetLastError;   ShowMessage(IntToStr(e));   Reg.CloseKey;   Reg.Free; end;

[xteam777]

Сам отвечу:

Код:

1	TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);