獲得系統版本(WinXP,Win7,Win8)
Delphi:
procedure GetOSVersion ;
Var
OSVERSIONINFO : TOSVersionInfo;
begin
//OSの判斷
OSVERSIONINFO.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
GetVersionEx(OSVERSIONINFO);
If (OSVERSIONINFO.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS) Then
begin
ShowMessage('This system does not operate in Windows 95 or 98.');
Halt;
end;
If (OSVERSIONINFO.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(OSVERSIONINFO.dwMajorVersion >= 5) Then
begin
//Windows2000以上
end else
begin
//Windows NT
end;
end;
C++:
#include "windows.h"
void main()
{
LPOSVERSIONINFO pOS = new OSVERSIONINFO();
pOS->dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(pOS);
}
系統版本 OSVERSIONINFO 的詳細請參考下邊msdn的解說。
http://msdn.microsoft.com/en-us/library/ms724834(VS.85).aspx