Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
{ Kommando ermitteln, mit welchem ein bestimmter, installierter Mail-Client gestartet werden kann. Get command to start a specific, installed Mail-Client. } usesRegistry; function
GetMailClientOpenCommand(AMailClient: string
): string
; const
RegClientsRoot = 'SOFTWAREClients'; RegClientsMail = 'Mail'; RegClientsOpenCmd = 'shellopencommand'; var
reg: TRegistry; begin
Result := ''; reg := TRegistry.Create; try
with
reg do
begin
CloseKey; RootKey := HKEY_LOCAL_MACHINE; if
OpenKeyReadOnly(RegClientsroot + RegClientsMail + '' + AMailClient + RegClientsOpenCmd) then
Result := reg.ReadString(''); end
; finally
if
Assigned(reg) then
reg.Free; end
; end
;