unit Test2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ShellAPI, Registry,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  ts : string;
  urlname : string;
begin
   with TRegistry.Create do
     try
       rootkey := HKEY_CLASSES_ROOT;
       OpenKey('\htmlfile\shell\open\command', False);
       try
         ts := ReadString('');
       except
         ts := '';
       end;
       CloseKey;
     finally
       Free;
     end;
   if ts <> '' then
   Begin
    ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
    ts := Copy(ts, 1, Pos('"', ts) - 1);
    urlname := 'file://c:\Programme\newLISP\newlisp_manual.html#setq';
    ShellExecute(0, 'open', PChar(ts), PChar(urlname), nil, SW_SHOW);
   End;
end;

end.

function LaunshStdBrowserWithURL(URL: String): BOOL;
begin
  Result := FALSE;

  if URL <> '' then
  begin
    Result :=
      (ShellExecute(
        Application.Handle,
        'open',
        PChar(URL),
        nil,
        nil,
        SW_SHOWNORMAL) >= 32);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  MyURL = '"file://c:\Programme\newLISP\newlisp_manual.html#setq"';
begin
  if not LaunshStdBrowserWithURL(MyURL) then
    ShowMessage('Sorry, Der Browser konnte nicht mit der URL starten...');
end

procedure TForm1.Button1Click(Sender: TObject);
const
  MyURL = 'file://c:\Programme\newLISP\newlisp_manual.html#setq';
begin
  if not LaunshStdBrowserWithURL(MyURL) then
    ShowMessage('Sorry, Der Browser konnte nicht mit der URL starten...');
end