K210.ORG

function DefaultBrowser: string;

var

  Reg: TRegistry;

  regvalue: string;

  i: integer;

begin

  Result := 'iexplore.exe';

  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CLASSES_ROOT;

    if Reg.OpenKey('\http\shell\open\command', FALSE) then begin

      if Reg.ValueExists('') then begin

        regvalue := Reg.ReadString('');

        i := pos('.exe', AnsiLowerCase(regvalue));

        if i > 0 then begin

          regvalue := copy(regvalue, 1, i - 1) + '.exe';

          if regvalue[1] = '"' then

            regvalue := copy(regvalue, 2, length(regvalue) - 1);

          Result := regvalue;

        end;

      end;

      Reg.CloseKey;

    end;

  finally

    Reg.Free;

  end;

end;

 

function OpenUrl(url: string): Cardinal;

begin

  result := ShellExecute(0, 'open', PChar(DefaultBrowser), pchar(url), '', SW_SHOWNORMAL);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  OpenUrl('yandex.ru');

end;