реестр

[foxes]

Приветствую форумчан!

У мне проблема в том что виндос 7 64 бита не мог внести в реестр этот код не работает

begin
 Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software',true);
Reg.OpenKey('Microsoft',true);
Reg.OpenKey('Windows NT',true);
Reg.OpenKey('CurrentVersion',true);
Reg.OpenKey('Winlogon',true);
Reg.WriteString('Start.exe',Application.ExeName);
Reg.CloseKey;
Reg.Free;
end;

как внести - есть советы

[RAZOR3]

а от админа запускаешь?
может быть просто нет прав

[Xatr]

Попробуйте так. Но с правами админа, так как UAC может не дать записать данные в такой раздел реестра (HKEY_LOCAL_MACHINE).

Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion\Winlogon',true);
Reg.WriteString('Start',Application.ExeName);
Reg.CloseKey;
Reg.Free;

У меня Vista x64 и записало в папку "Software\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Winlogon"

Чтобы не вставлял в этот каталог, можно сделать так:

var
tempkey:hkey;
begin
RegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows NT\CurrentVersion\Winlogon',0,KEY_ALL_ACCESS
or KEY_WOW64_64KEY,tempkey);
RegSetValueEx(tempkey,'start.exe',0,REG_SZ,pchar(Application.ExeName),255);
end;