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