All pastes #280556 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-12-16 00:06 UTC
rendered paste body
Function TGProcess.GetCPUSpeed: String;
Var
  gHKEY       : HKEY;
  gSize       : Integer;
  gResult     : pChar;
Begin
  GetMem(gResult, MAX_PATH+1);
  RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'HARDWARE\DESCRIPTION\System\CentralProcessor\0', 0, KEY_QUERY_VALUE, gHKEY);
  gSize := 2048;
  RegQueryValueEx(gHKEY, '~MHz', NIL, NIL, pByte(gResult), @gSize);
  RegCloseKey(gHKEY);
  Result := pChar(gResult);
  FreeMem(gResult);
End;