PDA

Visualizza la versione completa : Identificare il Sistema Operativo col VB6


picdav
28-07-2002, 11:22
Avrei bisogno di inserire in un programma un qualcosa che mi permetta di identificare su che sistema operativo il programma stesso stÓ girando e di compiere operazioni diverse a seconda del sistema operativo. E' possibile?? Grazie

vonkranz
28-07-2002, 12:51
...saro' breve....:gren:


Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (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 OSInfo As OSVERSIONINFO, PId As String
Me.AutoRedraw = True
'Imposta le dimensioni della struttura
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
'Get the Windows version
Ret& = GetVersionEx(OSInfo)
'Verifica se ci sono stati errori nella chiamata
If Ret& = 0 Then MsgBox "Impossibile verificare.": Exit Sub
'Visualizza le informazioni scrivendole sul form
Select Case OSInfo.dwPlatformId
Case 0
PId = "Windows 32s "
Case 1
PId = "Windows 95/98"
Case 2
PId = "Windows NT "
End Select
Print "OS: " + PId
Print "Versione di Win:" + Str$(OSInfo.dwMajorVersion) + "." + LTrim(Str(OSInfo.dwMinorVersion))
Print "Build: " + Str(OSInfo.dwBuildNumber)
End Sub


....liberamente ispirata da AllApi....;)

xegallo
28-07-2002, 14:56
oppure inserisci in un form l'ogg microsoft sysinfo 6.0
tra le sue proprietÓ ti identifica l'os
senno vai con le Api che viene meno pesante

picdav
28-07-2002, 17:19
E come posso usare l'ogetto sysinfo??
Mi fai qualche esempio pratico?

Mabi
28-07-2002, 18:53
Se posso...



In questo esempio vengono visualizzati il sistema operativo utilizzato e la relativa versione. Per eseguire questo esempio, inserire un controllo SysInfo e un controllo CommandButton in un form. Incollare quindi il codice di esempio nella sezione Dichiarazioni del form, eseguire il progetto e fare clic su CommandButton.

Private Sub Command1_Click()
Dim MsgEnd As String
Select Case SysInfo1.OSPlatform
Case 0
MsgEnd = "Non identificato"
Case 1
MsgEnd = "Windows 95/98, versione " & CStr(SysInfo1.OSVersion)
Case 2
MsgEnd = "Windows NT, versione " & CStr(SysInfo1.OSVersion)
End Select
MsgBox "Sistema: " & MsgEnd
End Sub


... dalla guida :) .

Se cerchi nel forum se n'Ŕ giÓ parlato... ad esempio
qui (http://forum.html.it/forum/showthread.php?s=&threadid=282107) .

Loading