ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с открытием ключа реестра при автозапуске программы
13 сообщений из 13, страница 1 из 1
Проблема с открытием ключа реестра при автозапуске программы
    #39637449
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
Доброе время суток форумчане.
У меня приложение запускается при старте ОС (HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432 Node\Microsoft\Windows\CurrentVersi on\Run). Кстати, приложение само в реестр прописывается при нажатии кнопки (в нем же)

При создании формы запускаемого приложения

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Const
  C_sidetrack_reestr = HKEY_LOCAL_MACHINE;
  C_KeyRun = '\Software\Microsoft\Windows\CurrentVersion\Run';

procedure TFMain.INITIALIZATION_REGISTRY;
//initialization
begin
  Pr_RegAutoRunBackup := TRegistry.Create;
  Pr_RegAutoRunBackup.RootKey := C_sidetrack_reestr;
  Pr_RegAutoRunBackup.OpenKey(C_KeyRun, True);
  if Pr_RegAutoRunBackup.OpenKey(C_KeyRun, True) then
    Prs := 'true'
  else Prs := 'false';
end;

procedure TFMain.FormCreate(Sender: TObject);
begin
  Prs := '';
//  sleep(10000);
  INITIALIZATION_REGISTRY;
…
End



Почему-то Prs := false;

Хотя при обычном запуске (вручную, после запуска ОС), все нормально «Prs := true».
Я уже и «sleep(10000)» - не помогает, думал файл реестра, как-то частями читается…

В чем может быть причина?

Спасибо за ответ.
...
Рейтинг: 0 / 0
27.04.2018, 13:51
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637478
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Sergey-2008В чем может быть причина?

Не хватает прав открыть HKLM на запись. Брось это вирусописательство.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
27.04.2018, 14:12
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637482
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Sergey-2008В чем может быть причина?В правах доступа
Код: pascal
1.
2.
3.
4.
5.
Pr_RegAutoRunBackup := TRegistry.Create(KEY_READ);
Pr_RegAutoRunBackup.RootKey := C_sidetrack_reestr;
if Pr_RegAutoRunBackup.OpenKeyReadOnly(C_KeyRun) then
  Prs := 'true'
else Prs := 'false';
...
Рейтинг: 0 / 0
27.04.2018, 14:16
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637488
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
Sergey-2008,

Ну и если система x64, то может помочь:

Код: pascal
1.
2.
3.
   Pr_RegAutoRunBackup := TRegistry.Create;
   if IsWindows64 then
      Pr_RegAutoRunBackup.Access := Pr_RegAutoRunBackup.Access or $0100;
...
Рейтинг: 0 / 0
27.04.2018, 14:23
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637523
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
А еще не следует забывать о виртуализации HKEY_LOCAL_MACHINE. Отключить которую можно попытаться с помощью SetTokenInformation.
...
Рейтинг: 0 / 0
27.04.2018, 15:06
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637541
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
_Vasilisk_Pr_RegAutoRunBackup := TRegistry.Create(>>>KEY_READ<<<);
[/src]

Да, это действительно помогло. спасибо.
Ну а если после того мне нужно сразу записать, что-нибудь, после этого, например:
Код: pascal
1.
Pr_RegAutoRunBackup.WriteString(C_NameKeyRun, ParamStr(0));


мне наверное нужно просто пересоздать экземляр класса.
Код: pascal
1.
Pr_RegAutoRunBackup := TRegistry.Create;


предварительно конечно убиб старый.
...
Рейтинг: 0 / 0
27.04.2018, 15:25
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637603
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
Немного поторопился с "KEY_READ",
дело в том, xто я потом начинаю писать в реестр, и мне после этого необходимо открыть реестр на запись
при открытии на запись, ошибка
Failed to set data for 'BDBackup'
...
Рейтинг: 0 / 0
27.04.2018, 16:37
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637606
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Sergey-2008Немного поторопился с "KEY_READ",
дело в том, xто я потом начинаю писать в реестр, и мне после этого необходимо открыть реестр на запись
при открытии на запись, ошибка
Failed to set data for 'BDBackup'
Чтобы писать в HKEY_LOCAL_MACHINE программа должна быть запущена с правами администратора, из автозапуска ты это не сделаешь - пиши сервис.
...
Рейтинг: 0 / 0
27.04.2018, 16:43
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637750
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Sergey-2008необходимо открыть реестр на записьДля этого у программы должны быть права
...
Рейтинг: 0 / 0
27.04.2018, 22:40
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637835
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Sergey-2008,

подумайте, а нужно ли вам писать в реестр в ветку всех пользователей? Или достаточно писать в ветку текущего пользователя.
И ещё, кроме ветки "Windows\CurrentVersion\Run" для автозапуска приложений можно использовать папку "StarUp" у текущего пользователя или у All Users.
...
Рейтинг: 0 / 0
28.04.2018, 08:19
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637883
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
goldmi45И ещё, кроме ветки "Windows\CurrentVersion\Run" для автозапуска приложений можно использовать папку "StarUp" у текущего пользователя или у All Users.А еще, если сделать службу и установить, то у нее и права будут, и запускаться она будет.
...
Рейтинг: 0 / 0
28.04.2018, 09:59
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637885
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
YuRock,

служба, конечно выход: у неё и права будут, и запускаться она будет при запуске среды.
Но мы же не знаем, в каком виде это нужно ТСу. У службы есть один недостаток: у неё нет интерфейса. А может, ТСу как раз интерфейс нужен?
...
Рейтинг: 0 / 0
28.04.2018, 10:09
| Ответить | Цитировать | Написать  
Проблема с открытием ключа реестра при автозапуске программы
    #39637889
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
goldmi45,

Вряд ли для вируса (или не вируса) с названием AutoRunBackup нужен интерфейс.
...
Рейтинг: 0 / 0
28.04.2018, 10:18
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проблема с открытием ключа реестра при автозапуске программы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39637606&tid=2040953]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 227ms
total:  527ms
созд. / загр.: 527ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]