Открыть стандартного почтового клиентаDelphi , Интернет и Сети , Почтовый клиентОткрыть стандартного почтового клиента
Оформил: DeeCo 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 и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |