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