Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
144
Assunto : Visual Basic
Titulo: Identificar o Sistema Operacional em que a aplicação está rodando

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para identificarmos o sistema operacional podemo utilizar uma chamada de uma API. Precisamos primeiramente declarar a API e algumas constantes/tipos que deverão ser utilizados. Veja :

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

'CONSTANTES
Public Const VER_PLATFORM_WIN32_NT As Long = 2
Public Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
Public Const VER_PLATFORM_WIN32s As Long = 0

'TIPOS
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Essas declarações devem ser feitas em um módulo da aplicação.

Quando a função da API for chamada a função retornará uma informação do tipo OSVERSIONINFO que precisará ser traduzida de acordo com os valores das contantes acima.

Assim sendo, vamos criar uma função que faça essa tradução. Veja :

Public Function VerificarSistemaOperacional() As String
Dim osvSistema As OSVERSIONINFO
Dim sRetorno As String

On Error GoTo ERRO

osvSistema.dwOSVersionInfoSize = Len(osvSistema)
If GetVersionEx(osvSistema) = 0 Then
sRetorno = "SISTEMA OPERACIONAL NÃO IDENTIFICADO"
Else
If osvSistema.dwPlatformId = VER_PLATFORM_WIN32_NT Then
sRetorno = "WINDOWS NT"
ElseIf osvSistema.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
sRetorno = "WINDOWS 95"
ElseIf osvSistema.dwPlatformId = VER_PLATFORM_WIN32s Then
sRetorno = "WINDOWS 32s"
End If
End If

VerificarSistemaOperacional = sRetorno

Exit Function

ERRO:
VerificarSistemaOperacional = "ERRO AO IDENTIFICAR O SISTEMA OPERACIONAL"

End Function



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 10/14/2016 7:00:00 PM
nome: lrtXxpDOujmGRGXqK
email: jimos4581rzt@hotmail.com
comentário:
CslTqp http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 6:25:00 PM
nome: gLOakhlyeY
email: jimos4581rzt@hotmail.com
comentário:
5t0uNw http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/8/2016 7:46:00 AM
nome: zloYpmkMVtcBQ
email: jimos4581rt@hotmail.com
comentário:
84KADO http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/7/2016 8:57:00 AM
nome: kixbNFCjmQu
email: jimos4581rt@hotmail.com
comentário:
oNh7rG http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br