procedure TForm1.Button1Click(Sender: TObject); var versionSO:TOSVersionInfo; Cvalor:Cardinal; Evalor:Extended; begin VersionSO.dwOSVersionInfoSize:=SizeOf(VersionSO); GetVersionEx(VersionSO); // Versión StringGrid1.Cells[0,0]:='Versión'; EValor:=VersionSO.dwMajorVersion; StringGrid1.Cells[1,0]:=Format('%2n',[EValor]); // Plataforma StringGrid1.Cells[0,1]:='Plataforma'; CValor:=VersionSO.dwPlatformId; case Cvalor of 0 : StringGrid1.Cells[1,1]:='Sobre Windows 3.x'; 1 : StringGrid1.Cells[1,1]:='Sobre Windows 95/98'; 2 : StringGrid1.Cells[1,1]:='Sobre Windows NT/2000'; end;
Ważne artykuły