Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
{
 
Get names of installed Mail-Clients.
}
 
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;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php