ShellExecute, html-seite in einem NEUEN fenster öffnen?

[MathiasSimmack]

Ich werfe mal noch PathRemoveArgs und PathUnquoteSpaces in den Raum. Damit kann man das gleiche machen (nämlich Kommandozeilenparameter und Anführungszeichen entfernen), und man benötigt keine spezielle Delphi-Version, weil diese Routinen im System vorhanden sind. Einzige Ausnahme: Windows 95 und NT4 ohne IE4.

[GISS79]

Zitat:

Zitat von SirThornberry

wirst du mit Shellexecute alleine nicht hinn bekommen. Folgende Funktion sollte das machen was du willst:

Delphi-Quellcode:

procedure OpenHttpSite(AURL: String);
var LRegistry: TRegistry;
    LBrowser: String;
    LStart, LEnd: Integer;
begin
  LRegistry := TRegistry.Create(KEY_READ);
  try
    LRegistry.RootKey := HKEY_CLASSES_ROOT;
    if LRegistry.OpenKey('http\shell\open\command', false) then
    begin
      LBrowser := LRegistry.ReadString('');
      if pos('"', LBrowser) > 0 then
      begin
        LStart := pos('"', LBrowser);
        LEnd := PosExt('"', LBrowser, LStart + 1);
        if LEnd > 0 then
           LBrowser := copy(LBrowser, LStart + 1, LEnd - (LStart + 1));
      end;
      LRegistry.CloseKey;
    end;
  finally
    LRegistry.Free;
  end;
  if ShellExecute(0, 'open', PChar(LBrowser), PChar(AUrl), nil, SW_SHOW) <= 32 then
     ShellExecute(0, 'open', PChar(AUrl), nil, nil, SW_SHOW)
end;

LEnd := PosExt('"', LBrowser, LStart + 1);

diese Zeile erzeugt einen Fehler beim Kompilieren, kann mir einer sagen warum?

[Christian Seehase]

Moin Giss,

Zitat:

Zitat von GISS79

diese Zeile erzeugt einen Fehler beim Kompilieren, kann mir einer sagen warum?

Kannst Du mir sagen welchen?

[GISS79]

Zitat:

Zitat von GISS79

LEnd := PosExt('"', LBrowser, LStart + 1);

[Error] main.pas(376): Undeclared identifier: 'PosExt'

[inherited]

Erst lese, dann Posten :roll:
Ist oben erklaert