Получить имена установленных почтовых клиентов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 & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |