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));
}