1:
2:
3:
4:
5:

// Browser mit Startseite öffnen
ShellExecute(Handle, 'open', 'about:home', nil, nil, SW_SHOWNORMAL);

// Email Programm öffnen (Senden)
ShellExecute(Handle, 'open', 'mailto:', nil, nil, SW_SHOWNORMAL);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:

/////////////////////////////////////////////////////////////////////////
//  GetDefaultMailApplication
//
//  Diese Funktion gibt Pfad, Dateiname und Parameter des
//  Standardmailprogramm zurück. Der Parameter "ShowAlerts" gibt an,
//  ob Fehlermeldungen gezeigt werden sollen.
//  Dabei wird der Browser als Standard angenommen, der für das
//  HTTP-Protokoll verwendet wird.
//
//  Nicht vergessen, die Unit "Registry" einzubinden!
//
function GetDefaultMailApplication(ShowAlerts: Boolean): string;
var
  reg: TRegistry;
  regstr, openstr: string;
begin
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('Software\Clients\Mail',false) then
    begin
      regstr := reg.ReadString('');
      reg.CloseKey;
      if Length(regstr) > 0 then
      begin
        if reg.OpenKey('Software\Clients\Mail\' + regstr
         + '\shell\open\command',false) then
        begin
          openstr := reg.ReadString('');
          reg.CloseKey;
          if Length(openstr) > 0 then
            Result := openstr else
              if ShowAlerts then
              ShowMessage('Für das Standardmailprogramm wurde '
               + 'kein Pfad festgelegt. Bitte installieren Sie '
               + 'es ggf. neu.');
        end else
          if ShowAlerts then
          ShowMessage('Die Informationen über das '
           + 'Standardmailprogramm sind unvollständig. Bitte '
           + 'installieren Sie es ggf. neu.');
      end else
        if ShowAlerts then
        ShowMessage('Es ist kein Mailprogramm '
         + 'installiert oder als Standardmailprogramm definiert.');
    end;
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;


/////////////////////////////////////////////////////////////////////////
//  GetDefaultBrowser
//
//  Diese Funktion gibt Pfad, Dateiname des Standardbrowsers zurück. 
//  Der Parameter "ShowAlerts" gibt an, ob Fehlermeldungen gezeigt 
//  werden sollen.
//
//  Nicht vergessen, die Unit "Registry" einzubinden!
//
function GetDefaultBrowser(ShowAlerts: Boolean): string;
var
  reg: TRegistry;
  regstr: string;
begin
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    if reg.OpenKey('HTTP\shell\open\command',false) then
    begin
      regstr := reg.ReadString('');
      reg.CloseKey;
      if Length(regstr) > 0 then
      begin
        // überflüssige Parameter wegschneiden...
        while (AnsiLowerCase(Copy(regstr, Length(regstr)-3, 4)) <> '.exe')
         and (Length(regstr) > 0) do
          regstr := Copy(regstr, 1, Length(regstr)-1);
        // und zurück an den Absender
        Result := regstr;
      end else
        if ShowAlerts then
        ShowMessage('Es ist kein Browser installiert oder '
         + 'als Standardbrowser definiert.');
    end;
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;