请问怎么在程序内判断当前的操作系统为NT or 2000 or 98?

Question

DWORD GetVersion(VOID);
Platform        High-order bit    ,Low-order byte (major version) 
Windows NT/2000      0                   3, 4, or 5 
Windows 95/98       1                       4 
Win32s with 
Windows 3.1         1                      3 

Answer 1

GetVersionEX使用时，要定义一个特定的结构类型，哪位有例子程序？

Answer 2

var
  OSVer: OSVERSIONINFO;
begin
  GetVersionEx(@OSVer);
  case OSVer.dwPlatformId fo
     VER_PLATFORM_WIN32s: ; { Windows 3.x }
     VER_PLATFORM_WIN32_WINDOWS: ; {Windows 9x/Me}
     VER_PLATFORM_WIN32_NT: 
       begin
         if dwMajorVersion = 5 then
         begin
            { 2000 }
         end
         else
         begin
            { Other NT }
         end;
       end;     
  end;
end;

Answer 3

var OSVer: TOSVersionInfo;
begin
  OSVer.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(OSVer);
  case OSVer.dwPlatformId fo
   ..... 
end; 请看帮助 TOSVersionInfo;

Answer 4

var
  OSVer: TOSVersionInfo;
begin
  OSVer.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(OSVer);
  case OSVer.dwPlatformId of
    VER_PLATFORM_WIN32s: ; { Windows 3.x }
    VER_PLATFORM_WIN32_WINDOWS: ; {Windows 9x/Me}
    VER_PLATFORM_WIN32_NT: 
      begin
        if OSVer.dwMajorVersion = 5 then
        begin
            { 2000}
        end
        else
        begin
            { Other NT }
        end;
      end;    
  end;end;