StandardBrowser als Variable???

[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