Получить имена установленных почтовых клиентовDelphi , Интернет и Сети , Почтовый клиентПолучить имена установленных почтовых клиентов
Оформил: DeeCo { Get names of installed Mail-Clients. Namen der installierten Mail-Clients ermitteln. } uses Registry; function GetInstalledMailClients(AList: TStrings): Boolean; const RegClientsRoot = '\SOFTWARE\Clients'; RegClientsMail = '\Mail'; RegClientsOpenCmd = '\shell\open\command'; var reg: TRegistry; begin Result := True; try AList.Clear; reg := nil; reg := TRegistry.Create; try with reg do begin CloseKey; RootKey := HKEY_LOCAL_MACHINE; if OpenKeyReadOnly(RegClientsroot + RegClientsMail) then if HasSubKeys then GetKeyNames(AList); end; finally if Assigned(reg) then reg.Free; end; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin GetInstalledMailClients(ListBox1.Items); end; Программный код на языке Delphi, предназначенный для извлечения и отображения списка установленных клиентов электронной почты на Windows-системе. Функция Эта функция принимает объект
Процедура Эта процедура привязана к событию клика кнопки и вызывает функцию Предложения по улучшению
Альтернативное решение Вот альтернативное решение, использующее более современный подход с использованием встроенных классов реестра Delphi:
Альтернативное решение использует более современный подход с использованием встроенных классов реестра Delphi и обеспечивает лучшую обработку ошибок. Он также использует более описательное имя переменной В статье описывается программный код на языке Delphi, который позволяет получать имена установленных почтовых клиентов на компьютере. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |