ShellExecute mit Anchor nicht mit IE7

**HPW**

Hallo,

Ich benutze shellexecute mit Anchor um direkt in eine HTML-Dokumentation zu springen.
Was immer funktioniert hat, geht jetzt nicht mehr.
Entweder das IE7 Update oder ein XP-Update müssen das verursacht haben.
Hier eine Demo:

zusammenfalten · markieren

Delphi-Quellcode:

			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.

Funktioniert auf einem WIN2K mit IE6 wie immer, aber auf XP SP2 mit IE7 kommt nur die URL ohne '#setq'.
Manuell kann ich '#setq' dahinter tippen und dann komme ich auch zum Kommando.
Aber wer trennt der Anchor-String ab?

Irgend eine Erklärung?

ShellExecute mit Anchor nicht mit IE7

ShellExecute mit Anchor nicht mit IE7

Forumregeln