drasche | Faut connaître l'OS cible avant d'attaquer
Code :
' Get operating system version Public Function WinGetWindowsVersion(ByRef lMajor As Long, _ ByRef lMinor As Long, _ ByRef lBuild As Long, _ ByRef fNTKernel As Boolean) As Boolean Dim udtWinVer As OSVERSIONINFO Dim lRes As Long udtWinVer.dwOSVersionInfoSize = Len(udtWinVer) lRes = GetVersionEx(udtWinVer) If lRes = 1 Then lMajor = udtWinVer.dwMajorVersion lMinor = udtWinVer.dwMinorVersion lBuild = udtWinVer.dwBuildNumber fNTKernel = (udtWinVer.dwPlatformId = VER_PLATFORM_WIN32_NT) Else lMajor = -1 End If End Function
|
---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
|