怎样得到当前的操作系统的版本号如win98,win95,winxp,win2000等 (15分)

bravercaohao · 2002-09-23

怎样用Delphi得到当前的操作系统的版本号如win98,win95,winxp,win2000等

delphi_lsl · 2002-09-23

关注！

yzhshi · 2002-09-23

很多，贴上来了一些。[

] {--------------------------------------------------------------------------} {1、获取当前Windows的版本} const   cOsUnknown = -1;   cOsWin95 = 0;   cOsWin98 = 1;   cOsWin98SE = 2;   cOsWinME = 3;   cOsWinNT = 4;   cOsWin2000 = 5;   cOsXP = 6; function GetOperatingSystem: Integer; var   osVerInfo: TOSVersionInfo;   majorVer, minorVer: Integer; begin   Result := cOsUnknown;   { set operating system type flag }   osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);   if GetVersionEx(osVerInfo) then   begin     majorVer := osVerInfo.dwMajorVersion;     minorVer := osVerInfo.dwMinorVersion;     case osVerInfo.dwPlatformId of       VER_PLATFORM_WIN32_NT: { Windows NT/2000 }         begin           if majorVer <= 4 then             Result := cOsWinNT           else if (majorVer = 5) and (minorVer = 0) then             Result := cOsWin2000           else if (majorVer = 5) and (minorVer = 1) then             Result := cOsXP           else             Result := cOsUnknown;         end;       VER_PLATFORM_WIN32_WINDOWS:  { Windows 9x/ME }         begin           if (majorVer = 4) and (minorVer = 0) then             Result := cOsWin95           else if (majorVer = 4) and (minorVer = 10) then           begin             if osVerInfo.szCSDVersion[1] = 'A' then               Result := cOsWin98SE             else               Result := cOsWin98;           end           else if (majorVer = 4) and (minorVer = 90) then             Result := cOsWinME           else             Result := cOsUnknown;         end;       else         Result := cOsUnknown;     end;   end   else     Result := cOsUnknown; end; {--------------------------------------------------------------------------} {2、判断当前OS是否属于那一个} function IsXP: Boolean; var   OS: TOSVERSIONINFO; begin   OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);   GetVersionEx(osv);   Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and     (OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1); end; function IsWin2000: Boolean; var   OS: TOSVersionInfo; begin   ZeroMemory(@OS, SizeOf(OS));   OS.dwOSVersionInfoSize := SizeOf(OS);   GetVersionEx(OS);   Result := (OS.dwMajorVersion >= 5) and     (OS.dwPlatformId = VER_PLATFORM_WIN32_NT); end; function IsWinNT2: Boolean; var   OS: TOSVersionInfo; begin   ZeroMemory(@OS, SizeOf(OS));   OS.dwOSVersionInfoSize := SizeOf(OS);   GetVersionEx(OS);   Result := OS.dwPlatformId = VER_PLATFORM_WIN32_NT; end; { or: } function IsWinNT2: Boolean; begin   Result := Win32Platform = VER_PLATFORM_WIN32_NT; end; function IsWinME: Boolean; var   OS: TOSVersionInfo; begin   ZeroMemory(@OS, SizeOf(OS));   OS.dwOSVersionInfoSize := SizeOf(OS);   GetVersionEx(OS);   Result := (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 90) and     (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS); end; function IsWin95: Boolean; var   OS: TOSVersionInfo; begin   ZeroMemory(@OS, SizeOf(OS));   OS.dwOSVersionInfoSize := SizeOf(OS);   GetVersionEx(OS);   Result := (OS.dwMajorVersion >= 4) and (OS.dwMinorVersion = 0) and     (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS); end; uses registry; function GetWindowsVersion: string; var   VerInfo: TOsversionInfo;   PlatformId, VersionNumber: string;   Reg: TRegistry; begin   VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);   GetVersionEx(VerInfo);   // Detect platform   Reg := TRegistry.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   case VerInfo.dwPlatformId of     VER_PLATFORM_WIN32s:       begin         // Registry (Huh? What registry?)         PlatformId := 'Windows 3.1';       end;     VER_PLATFORM_WIN32_WINDOWS:       begin         // Registry         Reg.OpenKey('/SOFTWARE/Microsoft/Windows/CurrentVersion', False);         PlatformId    := Reg.ReadString('ProductName');         VersionNumber := Reg.ReadString('VersionNumber');       end;     VER_PLATFORM_WIN32_NT:       begin         // Registry         Reg.OpenKey('/SOFTWARE/Microsoft/Windows NT/CurrentVersion', False);         PlatformId    := Reg.ReadString('ProductName');         VersionNumber := Reg.ReadString('CurrentVersion');       end;   end;   Reg.Free;   Result := PlatformId + ' (version ' + VersionNumber + ')'; end; procedure TForm1.Button1Click(Sender: TObject); begin   Caption := GetWindowsVersion; end;

del520 · 2002-09-23

或者用简单的方法。 你到注册表里面看看，也许会有收获。 HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion

bravercaohao · 2002-09-24

yzhshi 你好：      你的代码在win98,winxp上通过但好像不能区分win2000和win2000 Server

yzhshi · 2002-09-24

2000 Server、Adv Server 、Personal 这个我倒还没有试验过，你看一下小版本是否有区别 就是下面的minorVer的数值    majorVer := osVerInfo.dwMajorVersion;   5    minorVer := osVerInfo.dwMinorVersion;   ？ 我这里没有环境，呵呵。

chinargb · 2002-09-24

lling · 2002-09-24

[

]太夸張了吧﹐yzhshi buttonclick var   osvi

sversioninfo; begin   ovsi.dwosversioninfosize:=sizeof (osversioninfo);   getversionex(osvi);   label1.caption:=inttostr(osvi.dwmajorversion)+','          +inttostr(osvi.dwminorversion)+','          +inttostr(osvi.dwbuildnumber)+','          +inttostr(osve.dwplatformid)+','          +osvi.szcsdversion; end;

devecom · 2002-09-24

Win32PlatForm 系统预定义的

怎样得到当前的操作系统的版本号如win98,win95,winxp,win2000等 (15分)

bravercaohao

Unregistered / Unconfirmed

delphi_lsl

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

del520

Unregistered / Unconfirmed

bravercaohao

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

chinargb

Unregistered / Unconfirmed

lling

Unregistered / Unconfirmed

devecom

Unregistered / Unconfirmed

Similar threads