Wednesday, September 8, 2010

Obter o cliente de e-mail default

Rápida e rasteira que coloquei lá no forum da Embarcadero hoje! Obter o cliente, ou melhor, a linha de comando default do sistema, para envio de email:


function GetDefaultEmailCommand: string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKeyReadOnly('mailto\shell\open\command') then
begin
Result := Reg.ReadString('');
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

No comments: