XProfan

 {$iq}
declare callmem#
dim callmem#,24
external("powrprof.dll","CallNtPowerInformation",11,0,0,callmem#,24)
print "Speed:"+str$(long(callmem#,8))+"MHz"
Dispose callmem#
waitkey
end