Hallo,

Ich will zur Laufzeit eine Webseite aufrufen und erhalte in folgender Funktion die Fehlermeldung, die den Threadtitel bildet:

zusammenfalten · markieren

Delphi-Quellcode:

procedure OpenURL(Url: string);
var
  ts: string;
begin
  with TRegistry.Create do
    try

      //Hier kommt die Fehlermeldung des Compilers
      rootkey := 'HKEY_CLASSES_ROOT';
      //Was muss ich anders definieren???

      OpenKey('\htmlfile\shell\open\command', False);
      try
        ts := ReadString('');
      except
        ts := '';
      end;
      CloseKey;
    finally
      Free;
    end;
  if ts = '' then Exit;
  // remove quotes and commandline parameters
  ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
  ts := Copy(ts, 1, Pos('"', ts) - 1);
  ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
end;

Wer kann helfen?

Das ist aber umständlich. Es reicht doch Folgendes:

markieren

Delphi-Quellcode:

function OpenURL(const url: string): Boolean;
begin
   Result := ShellExecute(0, 'open', PChar(url), nil, nil, SW_SHOW) > 32;
end;

// Anwendungsbeispiel
if not OpenURL('http://www.delphipraxis.net') then
  RaiseLastWin32Error;

Noch ein kleiner Hinweis:
Die Funktion OpenURL() kann auch potentiell gefährliche Dinge (Dateien mit Viren) öffnen.
Deshalb ggf. die URL prüfen bevor man sie öffnet.

Das ist kein String sondern eine Konstante:
rootkey := HKEY_CLASSES_ROOT;