Como Obter a Versão do Windows no Delphi

Obtendo a Versão do Windows com Delphi

Este tutorial guiará você na atualização de um script Delphi para obter informações da versão mais recente do Windows. O script utiliza o Registro do Sistema para obter detalhes como o nome do produto, versão e número da compilação. Esta atualização leva em consideração práticas modernas de programação Delphi e fornece tratamento apropriado para exceções.

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

Adicione na cláusula USES:

uses Registry;

Função:

function TForm1.ObterVersaoSO: String;
var
  vNome, vVersao, vCurrentBuild: String;
  Reg: TRegistry;
begin
  Result := '';

  Reg := TRegistry.Create; // Criando um Registro na Memória
  try
    Reg.Access := KEY_READ; // Colocando nosso Registro em modo Leitura
    Reg.RootKey := HKEY_LOCAL_MACHINE; // Definindo a Raiz

    // Abrindo a chave desejada
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\', false) then
    begin
      // Obtendo os Parâmetros desejados
      vNome := Reg.ReadString('ProductName');
      vVersao := Reg.ReadString('CurrentVersion');
      vCurrentBuild := Reg.ReadString('CurrentBuild');

      // Montando uma String com a versão e detalhes
      Result := vNome + ' - ' + vVersao + ' - ' + vCurrentBuild;
    end
    else
      Result := 'Erro ao abrir a chave do Registro.';
  finally
    Reg.Free;
  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

Observação Importante: Certifique-se de que seu aplicativo tenha as permissões necessárias para acessar o Registro do Sistema no local especificado.