Webseite im Standardbrowser laden (Probleme)

[Markus K.]

Hallo mirage228,
dann würde ich vorher noch den Standardbrowser ermitteln z.B.:

Delphi-Quellcode:

var
  StandardBrowser: String;
begin
  with TRegistry.Create do
    try
      rootkey := HKEY_CLASSES_ROOT;
      OpenKey('\htmlfile\shell\open\command', False);
      try
        StandardBrowser := ReadString('');
      except
        StandardBrowser := '';
      end;
      CloseKey;
    finally
      Free;
    end;
  if StandardBrowser = '' then Exit;
  StandardBrowser:= Copy(StandardBrowser, Pos('"', StandardBrowser) + 1, Length(StandardBrowser));
  StandardBrowser:= Copy(StandardBrowser, 1, Pos('"', StandardBrowser) - 1);
  ShellExecute(0, 'Open',PChar(StandardBrowser),'http://web.de', nil, SW_ShowNormal);
end;

Tschüß Markus