Versão do Windows

 

Esta dica foi enviada pelo usuário João Paulo que está participando do concurso UPLoader Master e tem como objetivo retornar a versão do Windows em que seu sistema está rodando.

 

uses SysUtils;

 

  case Win32Platform of

   VER_PLATFORM_WIN32_WINDOWS: ShowMessage ('Windows 9x');

   VER_PLATFORM_WIN32_NT: ShowMessage ('Windows NT');

  end;

 

Confira uma imagem do exemplo utilizando está dica.