Função: Versão do Windows ¹ - Códigos Delphi

Função: Versão do Windows ¹

// Verifica a Versão do Windows.

// Declare a variável global abaixo. OVI: TOSVersionInfo; function WinVerString(I: byte): String; begin case OVI.dwPlatformID of VER_PLATFORM_WIN32_WINDOWS: Result := 'Windows 95'; VER_PLATFORM_WIN32_NT: Result := 'Windows NT'; else Result := 'Unknown'; end; if I = 1 then Result := Format('Versão %d.%.2d', [OVI.dwMajorVersion, OVI.dwMinorVersion]); if I = 2 then Result := Format('%s', [Result]); end;