InternetSeite aufrufen (ShellExecute)

[Pseudemys Nelsoni]

hallo,

"korrekterweise", hm, jo, ich frag mich nur wie das mit den "~" im pfad geht.

@app: sorry den code versteh ich nicht ganz *g*.

@thema: jetzt hab ich mozilla deinstalliert um zu testen obs mit dem IE geht - natürlich gehts nicht....nur wieso? ich habe es insgesamt so:

Delphi-Quellcode:

function GetExplorerPath: string;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  with reg do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey('http\shell\open\command', false) then
      result := Copy(ReadString(''), 1, Pos('exe', lowercase(ReadString('')))+2); //hier schneide ich alles hinter exe aus, was wohl ziemlich unsicher sein dürfte wenn 2mal "exe" vorkommt...
    Free;
  end;
end;

...

procedure TForm3.Label6Click(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar(GetExplorerPath), PChar(Label6.Caption), nil, SW_SHOWNORMAL);
end;

jemand ne idee wieso das beim IE nicht geht?