Есть код добавления программы в автозапуск.
ОС Вин7.
Запуск с правами админа.
Ошибок не выдает но и в реестр ничего не записывается.
Уже всю голову поломал.
Код:
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;