Versão do Windows e DOS - Códigos Delphi

Versão do Windows e DOS

// Informa a Versão do Windows e DOS.

var Version: LongInt; WinMajor,WinMinor,DosMajor,DosMinor: Byte; WinVer,DosVer: String[5]; begin Version := GetVersion; WinMajor := Lo(LoWord(Version)); WinMinor := Hi(LoWord(Version)); DosMinor := Lo(HiWord(Version)); DosMajor := Hi(HiWord(Version)); WinVer := IntToStr(WinMajor) + '.' + IntToStr(WinMinor div 10) + IntToStr(WinMinor mod 10); DosVer := IntToStr(DosMajor) + ',' + IntToStr(DosMinor div 10) + IntToStr(DosMinor mod 10); ShowMessage('Windows version: ' + WinVer + #13'DOS version: ' + DosVer); end;