¿ Cómo saber que cliente de correo está instalado por defecto en un PC ?

[[seoane]]

Aunque la solucion de Sotrono me parece muy adecuada, puede que lo que tu necesites saber, por algun motivo, es el nombre del cliente de correo. Pues entonces podemos utilizar algo asi:

Código Delphi [-]
uses Registry;

function Correo: string;
var
  Cliente: String;
begin
  Result:= '';
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    Cliente:= '';
    if OpenKey('\SOFTWARE\Clients\Mail' ,FALSE) then
    begin
      Cliente:= ReadString('');
      CloseKey;
    end;
    if OpenKey('\SOFTWARE\Clients\Mail\' + Cliente + '\shell\open\command' ,FALSE) then
    begin
      Result:= ReadString('');
      CloseKey;
    end;
  finally
    Free;
  end;
end;