E-Mail-Standardprogramm auslesen

[tedbomi]

Hallo Leute,

ich habe eine kleine Anwendung geschrieben mit der ich E-Mails mit Hilfe des Standardprogramms versenden kann.

Nun möchte ich wissen, wie kann mein Programm den Namen des aktuellen E-Mail-Standardprogramms auslesen und anzeigen?
Vielleicht ist es auch möglich, eventuell weitere installierte E-Mail-Programme anzuzeigen, bzw. zur Auswahl anzubieten?

Wer kann mir helfen?

TedBomi

(Windows XP, Delphi 2007)

[pmoegenb]

Delphi-Quellcode:

ShellExecute(Handle, 'Open', PChar('mailto:'+FieldByName('AnschlussNr').AsString),
     NIL, NIL, SW_SHOWDEFAULt);

Benutzt das in Windows eingetragene Standard-Mailprogramm.

[tedbomi]

Hallo Peter Mögenburg,

mein Programm funktioniert schon, ich brauche also keine Zeilen mehr um die E-Mail zu versenden.
Ich möchte nur sichtbar machen, wie das Programm heißt, welches als Standard-E-Mail-Programm genutzt wird.

Gruß

TedBomi

[Kalfany]

ich bin mir nicht zu 100% sicher aber zu 98%

Code:

[HKEY_CLASSES_ROOT\mailto\shell\open\command]

zu mindestens wird das geändert wenn man das standard mail.prog. ändert

[lordcroc]

Ich bin mir auch nicht ganz sicher, aber regestrieren sich nicht alle e-mail Programme hier?

Code:

HKEY_LOCAL_MACHINE\Software\Clients\Mail

mfg
Lordcroc

[tedbomi]

Hallo Kalfany und lordcroc,

leider fehlt mir noch einiges an Wissen, z. B. wie ich jetzt die Registrierung auslesen kann.
Ich finde viele Beispiele, die irgendwelche Daten aus der Registrierung auslesen, aber wie genau das funktioniert habe ich noch nicht verstanden.

Könnt Ihr mir da helfen?

Gruß TedBomi

[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;

[tedbomi]

Hallo DeddyH,

deine Zeilen sind für mich überschaubar und verständlich, es ist genau das, was ich gesucht habe. Ich habe auch schon mit anderen Einträgen experimentiert, es ergeben sich für mich viele neue Möglichkeiten.

Vielen Dank für die Hilfe!

TedBomi