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.
}
uses
Registry;
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
;