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

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

uses Registry;

 procedure OpenMailClient;
 const
   cMailClient = '\SOFTWARE\Clients\Mail\';
 var
   reg: TRegistry;
   RegClientDefault: string;
 begin
   reg := TRegistry.Create;
   try
     with reg do
     begin
       CloseKey;
       RootKey := HKEY_LOCAL_MACHINE;
       if OpenKeyReadOnly(cMailClient) then  RegClientDefault := reg.ReadString('');
       if OpenKeyReadOnly(cMailClient + RegClientDefault + '\shell\open\command') then
         WinExec(PChar(ReadString('')), SW_SHOWNORMAL);
     end;
   finally
     reg.Free;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   OpenMailClient;
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования