Получить имена установленных почтовых клиентов

Советы » Почтовый клиент » Получить имена установленных почтовых клиентов

{ 
  Get names of installed Mail-Clients. 
  Namen der installierten Mail-Clients ermitteln. 
}

 uses

Registry; function

GetInstalledMailClients(AList: TStrings): Boolean; const

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

;

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

Категории

Статьи

Советы

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