Fórum Versão OS #324023

procedure TForm1.Button1Click(Sender: TObject);

var verInfo : TOSVERSIONINFO;
    str : String;
    I : Word;
begin
   verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
   if GetVersionEx(verInfo) then
      begin
         Edit1.Text := IntToStr(verInfo.dwOSVersionInfoSize);
         Edit2.Text := IntToStr(verInfo.dwMajorVersion);
         Edit3.Text := IntToStr(verInfo.dwMinorVersion);
         Edit4.Text := IntToStr(verInfo.dwBuildNumber);
         case verInfo.dwPlatformId of
         VER_PLATFORM_WIN32s : Edit5.Text := ´Win16 running Win32s´;
         VER_PLATFORM_WIN32_WINDOWS : Edit5.Text := ´Win32 Windows, probably Win95´;
         VER_PLATFORM_WIN32_NT : Edit5.Text := ´WinNT, full 32-bit´;
      end;

         str := ´´;

         for I := 0 to 127 do
            str := str + verInfo.szCSDVersion[I];

          Edit6.Text := str;
      end;
end;