Visual Basic - Cómo detectar el sistema operativo?

Life is soft - evento anual de software empresarial
 
Vista:

Cómo detectar el sistema operativo?

Publicado por Nicolás (164 intervenciones) el 03/08/2002 18:57:54
Saludos...
Quiero detectar, mediante código, el tipo de sistema operativo (win 98, win 98 SE, win ME, etc.).
Se puede saber con presición en que sistema operativo estoy corriendo el programa?
Y cómo lo logro?
Desde yá, Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cómo detectar el sistema operativo?

Publicado por Vic (141 intervenciones) el 04/08/2002 00:18:07
Tienes que usar el control SysInfo. Es un control insertable. El archivo es el SYSINFO.OCX, que suele estar en c:\windows\system

Dim MsgEnd As String

Select Case SysInfo.OSPlatform
Case 0
MsgEnd = "Sin identificar"
Case 1
MsgEnd = "Windows 95, versión " & CStr(SysInfo.OSVersion)
Case 2
MsgEnd = "Windows NT, versión " & CStr(SysInfo.OSVersion)
End Select
MsgBox "Sistema: " & MsgEnd

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cómo detectar el sistema operativo?

Publicado por jlcastro (114 intervenciones) el 05/08/2002 09:38:39
SABER LA VERSION DE WINDOWS

Private Declare Function GetVersion Lib "kernel32" () As Long

Public Function GetWinVersion() As String
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
'retrieve the windows version
GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function

Private Sub Form_Load()
MsgBox "Windows version: " + GetWinVersion
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar