获得系统版本（WinXP，Win7，Win8）

获得系统版本（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