I. Obtention des informations de version de Windows▲
On peut obtenir ces informations à l'aide des variables :Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32Platform, Win32CSDVersion.
Exemple sur une Form (Form1) vous posez un Memo (Memo1) et un bouton (Button1) et sur l'événement OnClick de Button1 :
Sélectionnez
void
__fastcall TForm1::
Button1Click(TObject *
Sender)
{
Memo1->
Lines->
Add("Version : "
+
String(Win32MajorVersion) +
"."
+
String(Win32MinorVersion));
Memo1->
Lines->
Add("Construction : "
+
String(LOWORD(Win32BuildNumber)));
Memo1->
Lines->
Add("Plateforme : "
+
String(Win32Platform));
Memo1->
Lines->
Add("Info suppl. : "
+
String(Win32CSDVersion));
}
Plateforme :
0 -> Win32s on Windows 3.1 ;
1 -> Win32 on Windows 95 ;
2 -> Win32 on Windows NT.
Même chose, mais avec l'API Windows :
Sélectionnez
void
__fastcall TForm1::
Button1Click(TObject *
Sender)
{
OSVERSIONINFO OsVer;
OsVer.dwOSVersionInfoSize =
sizeof
(OSVERSIONINFO);
GetVersionEx(&
OsVer);
Memo1->
Lines->
Add("Version : "
+
String(OsVer.dwMajorVersion) +
"."
+
String(OsVer.dwMinorVersion));
Memo1->
Lines->
Add("Construction : "
+
String(LOWORD(OsVer.dwBuildNumber)));
Memo1->
Lines->
Add("Plateforme : "
+
String(OsVer.dwPlatformId));
Memo1->
Lines->
Add("Info suppl. : "
+
String(OsVer.szCSDVersion));
}