Private Declare Function GetVersion Lib "kernel32" () As Long
' Returns True is executed under Windows NT, ' False if executed under Windows 95/98 Function IsWindowsNT() As Boolean IsWindowsNT = (GetVersion() And &H80000000) = 0 End Function |