Standard E-Mail Client ermitteln?

[max666]

Hallo!

Weiß jemand, wie man den standard E-Mail Client auf einem Rechner ermitteln und starten kann.
Ich habe folgende Funktion im Internet gefunden. Da die Funktion WinExec benutzt, läuft die Funktion auf meinem Windows XP Rechner nicht. Und scheinbar bin ich zu blöd, ShellExecute oder ShellExecuteEx anzuwenden.

Delphi-Quellcode:

procedure OpenMailClient;
const
  cMailClient = '\SOFTWARE\Clients\Mail\';
var
  reg: TRegistry;
  RegClientDefault: string;
  handle: thandle;
begin
  reg := TRegistry.Create;
  try
    with reg do
    begin
      CloseKey;
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKeyReadOnly(cMailClient) then  RegClientDefault := reg.ReadString('');
      if OpenKeyReadOnly(cMailClient + RegClientDefault + '\shell\open\command') then
      WinExec(PChar(ReadString('')), SW_SHOWNORMAL);
    end;
  finally
    reg.Free;
  end;
end;

Hat jemand eine Idee!

Gruß aus dem Emsland
max666

[Alexander]

Probier es mal damit:

Delphi-Quellcode:

ShellExecute(Form1.Handle, 'open', PChar('mailto:[e-mail]'), nil, nil, SW_SHOWNORMAL);

[max666]

Hallo!

Jo, es läuft perfekt! Und einfacher als ich dachte.

Gruß
max666