Code: Select all
#SingleInstance, Force
Gui, Add, ListBox, w300 h200 hwndhOutput
Gui, Show
VarSetCapacity(MinTimerRes, 8), VarSetCapacity(MaxTimerRes, 8), VarSetCapacity(CurTimerRes, 8), VarSetCapacity(DesTimerRes, 8)
Return
F12::
GuiControl,, % hOutput, |
DllCall("Ntdll\NtQueryTimerResolution", "Ptr", &MinTimerRes, "Ptr", &MaxTimerRes, "Ptr", &CurTimerRes)
testText := "Min: " NumGet(MinTimerRes, "Int64") " Max: " NumGet(MaxTimerRes, "Int64") " Current: " NumGet(CurTimerRes, "Int64")
GuiControl,, % hOutput, % testText
NumPut(10000, DesTimerRes, "UInt64")
CallStatus := DllCall("Ntdll\NtSetTimerResolution", "Int64", DesTimerRes, "Int", True, "Ptr", &CurTimerRes)
testText := "Des: " NumGet(DesTimerRes, "Int64") " Current: " NumGet(CurTimerRes, "Int64") " Status: " (CallStatus ? "Failed" : "Success")
GuiControl,, % hOutput, % testText
CallStatus := DllCall("Ntdll\NtSetTimerResolution", "Int64", MinTimerRes, "Int", True, "Ptr", &CurTimerRes)
testText := "Min: " NumGet(MinTimerRes, "Int64") " Current: " NumGet(CurTimerRes, "Int64") " Status: " (CallStatus ? "Failed" : "Success")
GuiControl,, % hOutput, % testText
DllCall("Ntdll\NtQueryTimerResolution", "Ptr", &MinTimerRes, "Ptr", &MaxTimerRes, "Ptr", &CurTimerRes)
testText := "Min: " NumGet(MinTimerRes, "Int64") " Max: " NumGet(MaxTimerRes, "Int64") " Current: " NumGet(CurTimerRes, "Int64")
GuiControl,, % hOutput, % testText
Return