Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Ответ
 
Опции темы Поиск в этой теме
Старый 06.05.2010, 18:30   #1
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию реестр

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

У мне проблема в том что виндос 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;
как внести - есть советы
foxes вне форума Ответить с цитированием
Старый 07.05.2010, 01:22   #2
RAZOR3
Пользователь
 
Регистрация: 25.04.2010
Сообщений: 38
По умолчанию

а от админа запускаешь?
может быть просто нет прав
RAZOR3 вне форума Ответить с цитированием
Старый 07.05.2010, 04:07   #3
Xatr
Форумчанин
 
Аватар для Xatr
 
Регистрация: 17.09.2008
Сообщений: 349
По умолчанию

Попробуйте так. Но с правами админа, так как 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;
если чем помог, поставьте отзыв на весы

Последний раз редактировалось Xatr; 07.05.2010 в 04:13.
Xatr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Сохранение параметров в реестр] Как сохранить параметры цвета в реестр. ZARO Общие вопросы Delphi 3 12.03.2010 21:24
Реестр BioS Win Api 6 01.12.2008 19:52
реестр Михаил Юрьевич Общие вопросы Delphi 9 12.02.2008 00:00
Реестр GAGARIN-NEW Свободное общение 2 06.01.2008 11:31