Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получить имена установленных почтовых клиентов

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

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

 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;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.