StandardBrowser als Variable???

[SebE]

Hallo
Ich möchte eine Browser-Vorschau für einen Editor für HTML basteln.
Hab's bis jetzt mit ShellExecute versucht -> Verwendet aber immer das zuletzt geöffnete Browser-Fenster.

Wie kann ich das machen, dass es immer im gleichen Fenster geöffnet wird?
(Hab an eine Variable gedacht, die ich dann aufrufe - Aber wie geht das und von welchem Typ muss die sein?)

Danke für alle Antworten

[Christian Seehase]

Moin SebE,

such' hier doch mal nach Standardbrowser

[toms]

Hi SebE,

Hast du eine Antwort gefunden?

[Zacherl]

Würde mich auch interessieren ... hab mal das gefunden:

Delphi-Quellcode:

function GetDefaultBrowser: string;
var
  reg: TRegistry;
  regstr: string;
begin
  Result := '';
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    if reg.OpenKey('HTTP\shell\open\command',false) then
    begin
      regstr := reg.ReadString('');
      reg.CloseKey;
      if Length(regstr) > 0 then
      begin
        while (AnsiLowerCase(Copy(regstr, Length(regstr)-3, 4)) <> '.exe')
         and (Length(regstr) > 0) do
          regstr := Copy(regstr, 1, Length(regstr)-1);
        Result := regstr;
      end;
    end;
  finally
    reg.CloseKey;
    reg.Free;
  end;
end;

aber es erscheint mir noch ausbaufähig ...

Florian

[Christian Seehase]

Moin Florian,

weitere dafür sinnvolle Funktionen:
- PathRemoveArgs
- PathUnquoteSpaces

[SirThornberry]

ich mach das in aller Regel so:

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;

[Christian Seehase]

Moin Jens,

Glück gehabt.
Es könnte auch sein, dass im Pfad keine Leerstellen vorkommen, aber am Ende ein (oder mehrere) Parameter steht (stehen).
Den (die) würdest Du mit Deiner Methode mit auslesen.