[VB6] Inserire in una TextBox il nome del SO

[Raffo89]

Ciao a tutti, vorrei sapere come posso inserire in una text box il nome del Sistema Operativo ricavandolo dal PC in uso. In un' altra text box, vorrei poi inserire la versione del Sistema Operativo del PC in uso. Rispondete in tanti. Grazie mille.

[Raffo89]

é mai possibile ke nessuno sa darmi una risposta? Ma ke razza di programmatori siete?Sto solo skerzando, rispondete in tanti e presto. Grazie.

[Brainjar]

E tu, ke razza di programmatore sei?
(.... continuo lo scherzo)

' Se questo codice lo metti in un modulo .bas 
' ricordati di sostituire TUTTI i 'Private' con 'Public'
' Se resta in un Form, lascialo così

Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128   ' Maintenance string for PSS usage.
End Type

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
  (lpVersionInformation As OSVERSIONINFO) As Long

Private Function SysVersions32(PlatformName As String, WindowsVersion As String, BuildVersion As String)
   Dim v As OSVERSIONINFO, retval As Long

   v.dwOSVersionInfoSize = Len(v)
   retval = GetVersionEx(v)

   WindowsVersion = v.dwMajorVersion & "." & v.dwMinorVersion
   BuildVersion = v.dwBuildNumber And &HFFFF&

   Select Case v.dwPlatformId
   Case VER_PLATFORM_WIN32_WINDOWS
      PlatformName = "Windows 95"
   Case VER_PLATFORM_WIN32_NT
      PlatformName = "Windows NT"
   End Select
         
End Function

' Per richiamare 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

Ciao,

[meronet]

quale riferimento devo inserire per farsi
che il codice sopraindicato funzioni !!!