Получить стартовую команду для установленного почтового клиентаDelphi , Интернет и Сети , Почтовый клиентПолучить стартовую команду для установленного почтового клиента
Оформил: DeeCo { Kommando ermitteln, mit welchem ein bestimmter, installierter Mail-Client gestartet werden kann. Get command to start a specific, installed Mail-Client. } uses Registry; function GetMailClientOpenCommand(AMailClient: string): string; const RegClientsRoot = '\SOFTWARE\Clients'; RegClientsMail = '\Mail'; RegClientsOpenCmd = '\shell\open\command'; var reg: TRegistry; begin Result := ''; reg := TRegistry.Create; try with reg do begin CloseKey; RootKey := HKEY_LOCAL_MACHINE; if OpenKeyReadOnly(RegClientsroot + RegClientsMail + '\' + AMailClient + RegClientsOpenCmd) then Result := reg.ReadString(''); end; finally if Assigned(reg) then reg.Free; end; end; Статья Получить стартовую команду для установленного почтового клиента раздела Интернет и Сети Почтовый клиент может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |