Buscar

Rotina que retorna a versão e a compilação do seu windows

Código

Function WinVersao: string;
var
OsInfo: TOSVERSIONINFO;
Versao:string;
begin
   OsInfo.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
   GetVersionEx(OsInfo);
   Versao := Format('Versão %d. %d (Compilação %d)',
      [OsInfo.dwMajorVersion, OsInfo.dwMinorVersion,
         LOWORD(OsInfo.dwBuildNumber)]);
   Result := Versao;
end;
Exemplo de uso:
procedure TForm1.XPSpeedBtn1Click(Sender: TObject);
begin
  Caption:=WinVersao;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 25/06/07
Por: Abel André Da Silva
Visualizada: 3378 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009