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

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

{ 
  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 = 'SOFTWAREClients'; RegClientsMail = 'Mail'; RegClientsOpenCmd = 'shellopencommand'; 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com