ник: ddi
как я понимаю это тоже с кодом идёт ?
Declare Function GetTickCount32 Lib "KERNEL32" _
Alias "GetTickCount" () As Long
Declare Function GetTickCount16 Lib "User" Alias _
"GetTickCount" () As Long
Function GetTickCount() As Long
If Engine32%() Then
GetTickCount = GetTickCount32()
Else
GetTickCount = GetTickCount16()
End If
End Function
Function Engine32%()
If SysCmd(7) > 2 Then Engine32% = True
End Function
|