Сделай сам на Delphi: Установка и удаление программ
06.05.2008 от Иван ШиркоСкачать программу i (исходники на Delphi + exe)
В Панели управления Windows находится апплет "Установка и удаление программ". Название говорит само за себя: с помощью этого апплета мы удаляем и устанавливаем программы. Давайте посмотрим, как он работает. При загрузке апплет читает все ключи из раздела реестра HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall (именно в этот раздел прописываются сведения об разинсталлировании программ). Из каждого ключа читается параметр DisplayName (для системных приложений – QuietDisplayName) и отображается его значение. Если пользователь нажал "Добавить/удалить...", то из параметра UninstallString считывается и выполняется командная строка.
А теперь реализуем нечто подобное в Delphi, но с некоторыми отличиями: добавим возможность удаления сведений о программе из реестра (если она была удалена "вручную") и удаления компонентов Windows (в "Удаление и установка программ" для этого нужно перейти на закладку "Установка Windows").
Создайте новый проект и разместите на форме три кнопки (TButton) и ListBox: TListBox как показано на рисунке 1:
В разделе Var несколько глобальных переменных:
var
Reg: TRegistry; //для работы с реестром
PathList: TStrings; //командные строки
DirList: TStrings; //"отфильтрованные" ключи реестра
Для события формы OnShow запишите процедуру:
procedure TForm1.FormShow(Sender: TObject);
var
i: Integer;
//список ключей раздела /Uninstall
StrList: TStrings;
a, b: String;
begin
//создаем объекты для хранения строк
StrList := TStringList.Create;
//очищаем ListBox
ListBox1.Clear;
//создаем объект для работы с реестром
reg := TRegistry.Create;
//будем работать в разделе реестра HKEY_LOCAL_MACHINE
reg.RootKey := Windows.HKEY_LOCAL_MACHINE;
//открываем нужный ключ реестра
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False);
//получаем все подразделы этого ключа
reg.GetKeyNames(StrList);
Рубрики: Delphi, Сделай сам |
14.05.2008 в 11:18
Приятная статья, мне даже очень и очень понравилось!
05.06.2008 в 02:40
Мне это пригодится.
11.06.2008 в 08:53
Огромное, даже непередаваемое тебе СПАСИБИЩЕ!!!! Мне это очень помогло - у меня курсач по этой теме, и мне его сегодня надо сдать! Одну скачал, а там Дэлфи ругается мол нет дополнительных пакетов(потом нашел, но скачать 140мег не успеваю!)
Еще раз спасибо! надеюсь прокатит!!! +1000000000
11.06.2008 в 09:09
>>San
Удачной сдачи курсача)
03.07.2008 в 15:30
Получается, чтобы добавить свою прогу в Установка и удаление программ” надо прописаться в реестре?
20.07.2008 в 16:04
Да реально автору спасибо за статейку, все доступно и понятно пошел побывать
28.07.2008 в 10:01
Статья просто супер!!! ОЧень понравилось! Полезно!
02.08.2008 в 22:39
твой блог мне полезен, практика по делфи, дуб дубом, разбираюсь сижу:(
01.09.2008 в 09:46
Скачал программу, спасибки, буду юзать!
11.09.2008 в 20:42
спасибо за совет!!Delphi со школы плохо идет, нознать и научиться хочу:))нашел блог твой. Спасибо:))
11.09.2008 в 20:50
Delphi вобще сложная вещь…ну по крайне мере мне, как начинающему:))а вообще после подумываю изучить Java…говорят ууххх:)сложная хренька:)
15.09.2008 в 13:35
Надо попробовать , спасибо за программу.
26.09.2008 в 13:54
Статья хорошая и нужная, спасибо автору.
13.10.2008 в 14:01
О сейчас буду пробовать.
01.12.2008 в 15:00
Познавательно и интересно. Но, сложно для восприятия моими мозгами. Это мне так показалось или вам тоже? Прошу автора не обижаться.
21.02.2009 в 13:26
Спасибо за информацию, она помогла в решении очень важной для меня проблемы!!! Ура =)))
20.03.2009 в 22:22
А я вот мучаюсь с идентификацией нажатия клавиши Delete на клавиатуре… Использовал для события OnKeyPress условие if Key=#46; Key=VK_DELETE (как у вас в примере вроде) и ничего, сколько раз не нажми на эту клавишу — никакой реакции. Можете подсказать чего-нибудь?
20.04.2009 в 12:05
Дайте ссылку на Делфи плиз очень нужна!!!!!!=)))))
19.05.2009 в 10:11
немного можно подправить например добавить инфу об авторе программы читать параметр в реесторе ‘Publisher’ ну и версию проги ‘DisplayVersion’
26.05.2009 в 14:58
Вадим, с onkeypress действительно что-то не работает, зато на KeyUp например, работает на ура
12.08.2009 в 08:59
В свое время зять пытался приобщить меня к дэлфи, ну мне как то не очень!
11.01.2010 в 21:31
Хороший пример, очень полезный. Как говорить респект и уважуха!