codigo para saber qual o OS utilizado

[jsd 0]

boas galera gostaria se saber qual o codigo utilizado no VB para informar qual o OS utilizado alguem me ajuda?

[Clauido José 3]

Você vai precisa usar as APIs do Windows para conseguir alguns resultados.

 

Por exemplo, para simplesmente obter a versão do Windows, só com a API GetVersionEx.

 

Aqui vai a função para o VB prontinha (copie e cole num módulo comum):

 

Código:

 

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

Public Function VersaoWin(Optional ExibirDetalhes As Boolean = False) As String
 * *
 * *Dim Estrutura As OSVERSIONINFO, Ver As String, Build As String, ServicePack As String
 * *
 * *Estrutura.dwOSVersionInfoSize = Len(Estrutura)
 * *
 * *GetVersionEx Estrutura
 * *
 * *With Estrutura
 * *
 * * * *Build = .dwBuildNumber
 * * * *If Not Build = "" Then Build = " Build " & Build
 * * * *ServicePack = .szCSDVersion
 * * * *If Not ServicePack = "" Then ServicePack = " " & ServicePack
 * * * *
 * * * *If ExibirDetalhes Then
 * * * * * *Ver = ", versão " & Format$(.dwMajorVersion, "0") & "." & Format$(.dwMinorVersion, "00") & Build & ServicePack
 * * * *Else
 * * * * * *Ver = ""
 * * * *End If
 * * * *
 * * * *Select Case .dwPlatformId
 * * * *Case 0, 1
 * * * * * *Select Case .dwMinorVersion
 * * * * * *Case 0
 * * * * * * * *VersaoWin = "Windows95" & Ver
 * * * * * *Case 10
 * * * * * * * *VersaoWin = "Windows98" & Ver
 * * * * * *Case Else
 * * * * * * * *VersaoWin = "Windows" & Ver
 * * * * * *End Select
 * * * *Case 2
 * * * * * *VersaoWin = "Windows NT (NT4, 2000 ou XP)" & Ver
 * * * *Case Else
 * * * * * *VersaoWin = "Sistema operacional não identificado"
 * * * *End Select
 * * * *
 * *End With

End Function

 

É só chamar a função VersãoWin em eventos de botões, MsgBox, ou em qualquer outra rotina ou função, etc.

 

Por exemplo: MsgBox VersaoWin.

 

Se quiser obter detalhes, por exemplo, número de versão, service pack, etc., é só colocar o argumento "ExibirDetalhes" com valor "True".

 

.....