Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Получить стартовую команду для установленного почтового клиента

Delphi , Интернет и Сети , Почтовый клиент

Получить стартовую команду для установленного почтового клиента

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  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 GetMailClientOpenCommand извлекает команду запуска конкретного установленного клиента электронной почты с помощью реестра Windows.

Функция принимает строковый параметр AMailClient, представляющий имя клиента электронной почты (например, "Outlook", "Thunderbird" и т.д.).

Содержание функции:

  1. Создается объект TRegistry, используемый для взаимодействия с реестром Windows.
  2. Функция устанавливает пустую строку как начальную результат.
  3. Открывается ключ в реестре, соответствующий настройкам клиента электронной почты (например, "SOFTWARE\Clients\Mail\\shell\open\command").
  4. Если ключ существует, функция читает значение подключения command и присваивает его переменной Result.
  5. Наконец, функция освобождает объект TRegistry.

Комментарий вверху гласит, что это код предназначен для использования с пакетом установки клиента электронной почты (Swiss Delphi Center), но функция сама по себе должна работать с любым установленным клиентом электронной почты, если настройки хранятся в реестре под соответствующим ключом.

Альтернативное решение с использованием API-функции ShGetPathFromIDList, которая может быть использована для получения команды, связанной с расширением файла:

function GetMailClientOpenCommand(AMailClient: string): string;
var
  path: array[0..MAX_PATH] of Char;
begin
  Result := '';
  if ShGetPathFromIDList(StrToInt('clsid:' + AMailClient), path) then
    Result := path[0];
end;

Функция использует функцию ShGetPathFromIDList для получения команды, связанной с расширением файла, которая хранится в реестре под ключом "HKEY_CLASSES_ROOT\\shell\open\command".

Обратите внимание, что это решение предполагает, что настройки клиента электронной почты хранятся в реестре с использованием расширения файла как ключа. Если настройки хранятся в другом месте, функция может не работать корректно.

Получить стартовую команду для установленного почтового клиента можно с помощью функции GetMailClientOpenCommand, которая извлекает информацию из реестра Windows.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Почтовый клиент ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 06:59:30/0.0079531669616699/2