Открыть стандартного почтового клиента

Советы » Почтовый клиент » Открыть стандартного почтового клиента

uses

Registry; procedure

OpenMailClient; const

cMailClient = 'SOFTWAREClientsMail'; 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 + 'shellopencommand') then

WinExec(PChar(ReadString('')), SW_SHOWNORMAL); end

; finally

reg.Free; end

; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

OpenMailClient; end

;

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

Категории

Статьи

Советы

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