E-Mail-Standardprogramm auslesen

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

uses Registry;

function DefaultMailClient: string;
var Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('SOFTWARE\Clients\Mail') then
      try
        Result := Reg.ReadString('');
      finally
        Reg.CloseKey;
      end;
  finally
    Reg.Free;
  end;
end;