delphi 7 zum verlinken weiss nicht wie das geht

[SirThornberry]

Willkommen in der DP - Ändere bitte den Titel, darunter kann sich keiner was vorstellen
Mit folgender Funktion sollte dein Vorhaben realisierbar sein (öffnet Internetseite in neuem Fenster)

Delphi-Quellcode:

procedure OpenHttpSite(AURL: String);
var LRegistry: TRegistry;
    LBrowser: String;
    LStart, LEnd: Integer;
begin
  LRegistry := TRegistry.Create(KEY_READ);
  try
    LRegistry.RootKey := HKEY_CLASSES_ROOT;
    if LRegistry.OpenKey('http\shell\open\command', false) then
    begin
      LBrowser := LRegistry.ReadString('');
      if pos('"', LBrowser) > 0 then
      begin
        LStart := pos('"', LBrowser);
        LEnd := PosExt('"', LBrowser, LStart + 1);
        if LEnd > 0 then
           LBrowser := copy(LBrowser, LStart + 1, LEnd - (LStart + 1));
      end;
      LRegistry.CloseKey;
    end;
  finally
    LRegistry.Free;
  end;
  if ShellExecute(0, 'open', PChar(LBrowser), PChar(AUrl), nil, SW_SHOW) <= 32 then
     ShellExecute(0, 'open', PChar(AUrl), nil, nil, SW_SHOW)
end;

Aufruf:
OpenHttpSite('http://www.delphipraxis.net'); (Könnte eventuell in die Codelib)
Suchworte: Webseite, öffnen, Homepage, Internetseite, aufrufen