Programação

Como Obter a Versão do Windows – Delphi

Curta Nossa Página

Obtendo a Versão do Windows com Delphi

Função para obter a versão do Windows com Delphi

Adicione na cláusula USES:

uses Registry;

Função:

function Form1.ObterVersaoSO: String;
var
  vNome,
  vVersao,
  vCurrentBuild: String;
  Reg: TRegistry;
begin
  Reg := TRegistry.Create; //Criando um Registro na Memória
  Reg.Access := KEY_READ; //Colocando nosso Registro em modo Leitura
  Reg.RootKey := HKEY_LOCAL_MACHINE; //Definindo a Raiz

  //Abrindo a chave desejada
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\', true); 

  //Obtendo os Parâmetros desejados
  vNome := Reg.ReadString('ProductName');
  vVersao := Reg.ReadString('CurrentVersion');
  vCurrentBuild := Reg.ReadString('CurrentBuild');

  //Montando uma String com a versao e detalhes
  Result := vNome + ' - ' + vVersao + ' - ' + vCurrentBuild;
end;

Como usar:

Label1.Caption := ObterVersaoSO;
Edit1.Text := ObterVersaoSO;
ShowMessage(ObterVersaoSO);

Exemplos:

Result := vNome + ' - ' + vVersao + ' - ' + vCurrentBuild;

Exibe: Windows 7 Professional – 6.1 – 7601

Result := vNome + ' - ' + vVersao;

Exibe: Windows 7 Professional – 6.1

Result := vNome;

Exibe: Windows 7 Professional

Fonte: stackoverflow

Etiquetas
Botão Voltar ao topo
Fechar