MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Verifica Versão do Windows

    avatar
    Convidado
    Convidado


    Verifica Versão do Windows Empty Verifica Versão do Windows

    Mensagem  Convidado 9/2/2013, 19:59

    Função para verificar a versão do Windows, útil para na instalação de um sistema para o usuário final quando necessita de instalação de programas adjacentes, visto que no windows 7, os programas de 32 bits são instalados na pasta:

    Arquivos de Programas(x86)\

    Retirado de outro fórum porém disponibilizado no mesmo pelo Meste João Paulo.



    Public Function MostraVersao()
    Dim shell, strOS, strVerKey, strVersion
    Set shell = CreateObject("WScript.Shell")
    strOS = shell.ExpandEnvironmentStrings("%OS%")
    If strOS = "Windows_NT" Then
    strVerKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
    strVersion = shell.RegRead(strVerKey & "ProductName") ' & " " & shell.regread(strVerKey & "CurrentVersion") & "." & shell.regread(strVerKey & "CurrentBuildNumber")
    Else
    strVerKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion"
    strVersion = shell.RegRead(strVerKey & "ProductName") '& " " & shell.regread(strVerKey & "VersionNumber")
    End If
    MostraVersao = strVersion
    Set shell = Nothing
    End Function




    Enjoy!!!

    *****************************************************************************************************************



    Repositório de Exemplos Ms Access
    Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
    todos os Utilizadores Cadastrados.
    Não tirar duvidas nesta sala.

      Data/hora atual: 28/3/2024, 23:05