Установка і видалення програм наDelphi
В Панелі управління Windows знаходиться аплет "Установка і видалення програм". Назва говорить сама за себе: за допомогою цього аплету ми видаляємо і встановлюємо програми. Давайте подивимося, як він працює. При завантаженні аплет читає все ключі з розділу реєстру HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Uninstall (саме в цей розділ прописуються відомості про разінсталлірованіі програм). З кожного ключа читається параметр DisplayName (для системних додатків - QuietDisplayName) і відображається його значення. Якщо користувач натиснув "Додати / видалити.", То з параметра UninstallString зчитується і виконується командний рядок.
А тепер реалізуємо щось подібне в Delphi, але з деякими відмінностями: додамо можливість видалення відомостей про програму з реєстру (якщо вона була видалена "вручну") та видалення компонентів Windows (в "Видалення і установка програм" для цього потрібно перейти на закладку "Установка Windows ").
Створіть новий проект і розмістіть на формі три кнопки (TButton) і ListBox: TListBox як показано на малюнку 1:
У розділі Var кілька глобальних змінних:
Для події форми OnShow запишіть процедуру:
При показі форми в ListBox'е відобразяться доступні для видалення \ установки програми. Тепер для кнопки "Видалити програму" запишіть процедуру для події OnClick: