Originariamente inviato da meronet
Ciao a tutti
ed ancora buon anno
ho un piccolo problemino

non risco a pescare il sistema operativo

faccio la dichiarazione
---------------------
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long 'per sapere il sistema operativo
--------------------------


poi dichiaro la variabile di tipo

--------------------------------
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Stringa di manutenzione utilizzata dai servizi di supporto tecnico
End Type
----------------------------------

ed infine richiamo la funzione

-----------------------------
Dim PlatformName As String, WindowsVersion As String, BuildVersion As String

Call SysVersions32(PlatformName, WindowsVersion, BuildVersion)

Text1.Text = PlatformName
Text2.Text = WindowsVersion
Text3.Text = BuildVersion
-------------------------------


ho un sistema operativo windows 2000
e mi dice che ho un windows nt 5.0

grazie e tanti saluti !!!
Ciao..
Non hai riportato l'errore cmq penso di poter affermare con certezza che l'errore sta nel fatto che hai dichiarato PRIMA la funzione e poi i tipi (OSVERSIONINFO): devi fare il contrario..

prova e fammi sapere

ciao