All pastes #276966 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-12-12 20:42 UTC
rendered paste body
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;