获得Windows类型和版本

width="84%">获得Windows类型和版本

从注册表中得到目前操作系统是Windows95还是WindowsNT，并得到其版本，首先要在USES段加入下面的内容

uses Registry, ComCtrls, ExtCtrls;

然后才在需要的地方加入下面语句var

MyVersionInfo: TOSVersionInfo;

MyReg: TRegistry;

IsNT: Boolean;

begin

MyReg := TRegistry.Create;

MyReg.RootKey := HKEY_LOCAL_MACHINE;

IsNT := False;

MyVersionInfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);

if GetVersionEx(MyVersionInfo) then

Label1.Caption := IntToStr(MyVersionInfo.dwPlatformId)

else Label1.Caption := 'false';

if MyVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then

Label1.Caption := 'Windows 95';

if MyVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then

begin

IsNT := True;

Label1.Caption := 'Windows NT';

end;

try

if IsNT then

if not MyReg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', FALSE) then

else Label2.Caption := MyReg.ReadString('CurrentVersion')

else

if not MyReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', FALSE) then

else Label2.Caption := MyReg.ReadString('VersionNumber');

finally

end; // try..finally

end;