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

Moin SebE,

such' hier doch mal nach Standardbrowser

Hi SebE,

Hast du eine Antwort gefunden?

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

zusammenfalten · markieren

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

Moin Florian,

weitere dafür sinnvolle Funktionen:
- PathRemoveArgs
- PathUnquoteSpaces

ich mach das in aller Regel so:

zusammenfalten · markieren

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;

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.