.url öffnen geht nicht

[DeddyH]

DRY

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  if ListBox1.ItemIndex > -1 then
    begin
      filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('Html\' + Listbox1.Items[ListBox1.Itemindex] , '.url'));
      if not FileExists(filename) then
        raise Exception.CreateFmt('Datei %s existiert nicht', [filename]);
      OpenURL(filename);
    end;
end;