[Creat0R]

Maza Faka,

примерно подсчитал, что 60 вызовов функции _TimerProc() примерно равны 1 секунде »

Но в одной секунде 1000 мс

Код:

#include <Date.au3>

Global $SecTimer = 0
Global $MsTimer = TimerInit()

$hGUI = GUICreate("Timer", 200, 100)

$SecLabel = GUICtrlCreateLabel("00:", 75, 40, 16, 15)

$MSLabel = GUICtrlCreateLabel("", 91, 40, 16, 15)
GUICtrlSetColor(-1, 0xFF0000)

GUISetState()

Global $TimerProcHandle = DllCallbackRegister("_TimerProc", "none", "hwnd;int;int;dword")

Global $TimerCall = DllCall("user32.dll", "int", "SetTimer", "hwnd", 0, "int", 0, "int", 1, _
    "ptr", DllCallbackGetPtr($TimerProcHandle))
$TimerCall = $TimerCall[0]

Do
Until GUIGetMsg() = -3

DllCallbackFree($TimerProcHandle)
DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "int", $TimerCall)

Func _TimerProc($hWnd, $Msg, $IdTimer, $dwTime)
    If TimerDiff($MsTimer) >= 1000 Then
        $MsTimer = TimerInit()
        $SecTimer += 1
        If $SecTimer >= 60 Then $SecTimer = 0
        ControlSetText($hGUI, "", $SecLabel, StringFormat("%02i:", $SecTimer))
    EndIf

    ControlSetText($hGUI, "", $MSLabel, _
        StringFormat("%02i", Round(TimerDiff($MsTimer)) / 10)) ; / 10 это чтобы получить 10-чное представление
EndFunc