Visual Basic 6 - Ricavare il Service Pack

Forum - Visual Basic 6 - Ricavare il Service Pack

tippolo (Normal User)
Pro

Messaggi: 157
Iscritto: 21/09/2008

Postato alle 16:47
Domenica, 08/03/2009

Salve a tutti,
per conoscere le informazioni del PC in uso utilizzo la Funzione Environ.
Se invece voglio sapere quale Service Pack del SO è installato sul computer come lo posso ricavare?

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 17:09
Domenica, 08/03/2009

Cosi'

Codice sorgente - presumibilmente VB.NET

Private Declare Function GetVersionExA _
    Lib "Kernel32" (lpVersionInformation As OSVERSIONINFO) As Long
 
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
 
Private Sub Form_Load()
    Dim lpVI As OSVERSIONINFO
    lpVI.dwOSVersionInfoSize = Len(lpVI)
    GetVersionExA lpVI
    
    MsgBox lpVI.szCSDVersion
End Sub

tippolo (Normal User)
Pro

Messaggi: 157
Iscritto: 21/09/2008

Postato alle 19:09
Lunedì, 09/03/2009

Grazie theprogrammer, questo mi mancava proprio

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 20:02
Lunedì, 09/03/2009

Testo quotato

Postato originariamente da tippolo:

Grazie theprogrammer, questo mi mancava proprio

Di nulla tippolo ... ci risentiamo (anche altrove ... :-) )

tippolo (Normal User)
Pro

Messaggi: 157
Iscritto: 21/09/2008

Postato alle 20:23
Lunedì, 09/03/2009

Testo quotato

Postato originariamente da theprogrammer

... ci risentiamo (anche altrove ... :-) )

[OT]Sai che ancora non ti ho riconosciuto? :-?