|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Вопрос по библиотеке JEDI (модуль JclRegistry ) |
|
|
Delphi - [решено] Вопрос по библиотеке JEDI (модуль JclRegistry )
|
Ветеран Сообщения: 1158 |
Привет всем ! Столкнулся с такой проблемой . Нужно удалить ключ реестра со всеми подключами.
Проблема на x64 системе , а у меня x32 приложения . Соответственно моя программа ищет этот в ключе Wow6432Node. Решения я нашёл не используя библиотеку JEDI так: Скрытый текст
procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create(); if IsWindows64=true then begin Reg.Access := $100 or KEY_ALL_ACCESS; end; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.KeyExists('\Software\Microsoft\WIMMount') then Reg.DeleteKey('Software\Microsoft\WIMMount'); finally Reg.Free; end;end; Всё работает и удаляется . Но хотелось бы обойтись средствами библиотеки JEDI Скрытый текст
Набросал код : procedure TForm1.Button2Click(Sender: TObject); var RootKey: HKEY; PathKEY:String; begin if IsWindows64=true then begin RegSetWOW64AccessMode(ra64Key); end; RootKey := HKEY_LOCAL_MACHINE; PathKEY:='Software\Microsoft\WIMMount'; if not RegKeyExists (RootKey,PathKEY) then begin Memo1.Lines.Add('- [ Ошибка ] Ключ не найден') end else begin Memo1.Lines.Add('[ ОК ] Ключ найден'); if not RegDeleteKeyTree (RootKey,PathKEY)then begin Memo1.Lines.Add('[ Ошибка ] Ключ не удалён') end else begin Memo1.Lines.Add('[ ОК ] Ключ удалён'); end; end; end; end. Ключ находит, но не удаляет =((( Что нужно ещё добавить ??? Помогите, плиз! |
|
------- Отправлено: 23:47, 24-02-2016 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Цитата opel431:
Скрытый текст
![]() |
|
------- Отправлено: 02:04, 27-02-2016 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Я подправил код, попробуйте!
|
------- Отправлено: 02:26, 27-02-2016 | #22 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать opel431, Тоже самое , ключ не найден . Даже попросил знакомого у себя на компе проверить на x64 редакции свежо-установленной и тоже самое как у меня . На x86 проблем нет . Может дело в Embarcadero RAD Studio XE6? Хотя ...
|
------- Отправлено: 02:35, 27-02-2016 | #23 |
![]() Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
Что притихли, ответ ждать или на потом? |
|
------- Последний раз редактировалось opel431, 27-02-2016 в 02:48. Отправлено: 02:40, 27-02-2016 | #24 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Цитата opel431:
Сюда мы не смотрим HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\WIMMount Да ладно , не работает , дык не работает . Буду по старинке ![]() |
|
------- Отправлено: 02:48, 27-02-2016 | #25 |
![]() Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
|
|
------- Отправлено: 02:53, 27-02-2016 | #26 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Цитата opel431:
По старинке с помощью этого кода всё работает : procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create(); if IsWindows64=true then begin Reg.Access := $100 or KEY_ALL_ACCESS; end; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.KeyExists('\Software\Microsoft\WIMMount') then Reg.DeleteKey('Software\Microsoft\WIMMount'); finally Reg.Free; end;end; |
|
------- Отправлено: 02:56, 27-02-2016 | #27 |
![]() Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
|
|
------- Последний раз редактировалось opel431, 27-02-2016 в 03:44. Отправлено: 03:38, 27-02-2016 | #28 |
Ветеран Сообщения: 1158
|
Профиль | Отправить PM | Цитировать Цитата opel431:
|
|
------- Отправлено: 03:44, 27-02-2016 | #29 |
![]() Ветеран Сообщения: 1803
|
Профиль | Отправить PM | Цитировать Цитата Painkiller:
|
|
------- Последний раз редактировалось opel431, 27-02-2016 в 03:54. Отправлено: 03:46, 27-02-2016 | #30 |
|
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2008 - Вопрос по программе для открытия рисунков по умолчанию | flower | Windows Server 2008/2008 R2 | 4 | 18-10-2010 17:22 | |
Прочее - вопрос по загрузке образов cd/dvd дисков по сети | andi_filon | Общий по Linux | 4 | 21-08-2009 14:48 | |
Вопрос по платформам обработки данных и еще по всяким непонятным словам :) | koresaram | Хочу все знать | 8 | 19-02-2009 18:26 | |
Jedi Concentrate (Концентрируемся на окнах) | yurfed | Программное обеспечение Windows | 0 | 22-12-2007 10:05 | |
Star Wars: Jedi Knight 2 | Mihan | Игры | 8 | 03-11-2003 11:50 |
|