Function TGInfo.GetDefultBrowser: String;
Var
  gKEY      : HKEY;
  gSize     : Cardinal;
  gRegister : Array [0..MAX_PATH] Of Char;
Begin
  RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'Software\Classes\http\shell\open\command', 0, KEY_QUERY_VALUE, gKEY);
  gSize := 2048;
  RegQueryValueEX(gKEY, '', NIL, NIL, @gRegister[0], @gSize);
  RegCloseKey(gKEY);
  gRegister := ExtractFileName(gRegister);
  Result := gRegister;
End;