MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 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: 3/12/2020, 11:42