Сделай сам на Delphi: Установка и удаление программ
06.05.2008 от Иван Ширко for i := 0 to StrList.Count - 1 do
begin
reg.CloseKey;
//перебираем все подразделы
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+strlist[i], False);
//читаем из каждого раздела параметр DisplayName
a := reg.ReadString('DisplayName');
//если а - пустая строка, то читаем параметр QuietDisplayName
if (a = '') then
a := reg.ReadString('QuietDisplayName');
//если a снова пуста, то записываем в нее имя подраздела
if (a = '') then
a := StrList[i];
//читаем командную строку для запуска Uninstall
b := reg.ReadString('UninstallString');
//если b - пустая строка, то читаем параметр QuietUninstallString
if (b = '') then
b := reg.ReadString('QuietUninstallString');
//если строка b не пустая, то добавляем параметры в списки: имя ключа, название программы, командная строка
if (b <> '') then
begin
ListBox1.Items.Add(a);
PathList.Add(b);
DirList.Add(StrList[i]);
end;
end;
//уничтожаем объект reg
reg.Free;
end;
При показе формы в ListBox'е отобразятся доступные для удаления\установки программы. Теперь для кнопки "Удалить программу" запишите процедуру для события OnClick:
procedure TForm1.Button1Click(Sender: TObject);
var
si: TStartupInfo;
p: TProcessinformation;
//командная строка
exe: String;
begin
//если в ListBox'e выделена строка, то продолжаем
if (ListBox1.ItemIndex = -1) then
exit;
//получаем командную строку для выбранного элемента
exe := PathList.Strings[ListBox1.ItemIndex];
//сворачиваем окно нашей программы, запускаем командную строку,
//дожидаемся завершения удаления\установки приложения и восстанавливаем окно нашей программы
FillChar( Si, SizeOf(Si), 0);
with Si do
begin
cb := SizeOf(Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,pchar(copy(exe, pos(';',exe)+1, length(exe))), nil, nil, false,
Create_default_error_mode, nil, nil, si, p);
Waitforsingleobject(p.hProcess, infinite);
Рубрики: 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
Хороший пример, очень полезный. Как говорить респект и уважуха!
11.05.2010 в 13:36
А это не нада?)
listbox1.Items:=strlist;
11.05.2010 в 13:40
емае я тупой наверно))
06.01.2011 в 15:47
Немного добавлю..
В раздел USES следует прописать Registry,
т.к. без этого компилятор ругается на:
——–
Reg: TRegistry; //для работы с реестром
——–
Спасибо за внимание..
20.06.2011 в 11:32
Спасибо, есть одна задумка, статья помогла в реализации
07.12.2011 в 12:05
Существует ли возможность выводить именно исполняемые *.exe файлы и потом например выделеные импортировать в рег файл?
02.01.2012 в 14:02
киньте ссылку на исходник плиз, а то в новости не работает