Использование реестра

[dimon131]

Здравствуйте.

У меня стоит Windows 7 Servies Pack 1, но при чтении информации с регистра мне выдаёт что у меня стоит Windows XP Servies Pack 3

Вот код:

var Register: TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHIN E;
Registry.OpenKey('SOFTWARE\Microsof t\Windows NT\CurrentVersion', False);
Result:=Registry.ReadString('Produc tName');
Registry.Free;
end;

[FaTaL]

Посмотри что там у тебя написано в реестре. Значит там у тебя написано ХР.

[KPu3uC B Poccuu]

Вдруг у него включен режим совместимости с Windows XP?

[FaTaL]

Сообщение от KPu3uC B Poccuu

Вдруг у него включен режим совместимости с Windows XP?

Да без разницы что там включено. В реестре то всё равно должна быть определенная строка.

[Кольша]

Если вам просто надо определить версию винды, то вот:

Как узнать версию Windows?
// Способ первый
// Win95 или выше и NT3.5 или выше
function GetWinVer: string;
var
  temp1, temp2, temp3:  integer;
  OsVer: OSVERSIONINFO;
begin
   OsVer.dwOSVersionInfoSize := SizeOf( OSVERSIONINFO );
   GetVersionEx( OsVer );
   temp1 := OsVer.dwMajorVersion;
   temp2 := OsVer.dwMinorVersion;
   temp3 := OsVer.dwPlatformId;
 
   if temp1 = 4 then
      if temp2 = 0 then
         if temp3 = VER_PLATFORM_WIN32_WINDOWS then
            Result := 'Windows 95';
 
   if temp1 = 4 then
      if temp2 = 10 then
         Result := 'Windows 98';
 
   if temp1 = 4 then
      if temp2 = 90 then
         Result := 'Windows Me';
 
   if temp1 = 3 then
      if temp2 = 51 then
         Result := 'Windows NT 3.51';
 
   if temp1 = 4 then
      if temp2 = 0 then
         Result := 'Windows NT 4.0';
 
   if temp1 = 5 then
      if temp2 = 0 then
         Result := 'Windows 2000';
 
   if temp1 = 5 then
      if temp2 = 1 then
         Result := 'Windows XP';
 
   if temp1 = 6 then
      if temp2 = 0 then
         Result := 'Windows Vista';
 
   if temp1 = 6 then
      if temp2 = 1 then
         Result := 'Windows 7';
end;
 
// Способ второй
{true = Win9x, false = NT}
function isWin9x: Bool;
asm
   xor eax, eax
   mov ecx, cs
   xor cl, cl
   jecxz @@quit
   inc eax
   @@quit:
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   if isWin9x then
      Form1.Caption := 'Win9x'
   else
      Form1.Caption := 'WinNT';
end;
 
// Способ третий
procedure TForm1.FormCreate(Sender: TObject);
begin
   case Win32Platform of
      VER_PLATFORM_WIN32s: ShowMessage( 'System is Win32s' );
      VER_PLATFORM_WIN32_WINDOWS: ShowMessage( 'System is Windows 95' );
      VER_PLATFORM_WIN32_NT: ShowMessage( 'System is Windows NT' );
   end;
end;
 
// Способ четвертый
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   s := 'Win32Platform = ' + IntToStr( Win32Platform ) + #13 +
        'Win32MajorVersion = ' + IntToStr( Win32MajorVersion ) + #13 +
        'Win32MinorVersion = ' + IntToStr( Win32MinorVersion ) + #13 +
        'Win32BuildNumber = ' + IntToStr( Win32BuildNumber );
   ShowMessage( s );
end;
 
// Способ пятый
procedure TForm1.Button1Click(Sender: TObject);
begin
   if CheckWin32Version( 6, 1 ) then
      ShowMessage( 'Windows 7' )
   else
   if CheckWin32Version( 6, 0 ) then
      ShowMessage( 'Windows Vista' )
   else
   if CheckWin32Version( 5, 1 ) then
      ShowMessage( 'Windows XP' )
   else
   if CheckWin32Version( 5, 0 ) then
      ShowMessage( 'Windows 2000' );
end;

и еще

type
  TWinVersion = (wvUnknown, wv95, wv98, wvME, wvNT3, wvNT4, wvW2K, wvXP);

function DetectWinVersion: TWinVersion;
var
  OSVersionInfo: TOSVersionInfo;
begin
  Result := wvUnknown;
  OSVersionInfo.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
  if GetVersionEx(OSVersionInfo) then
  begin
    case OSVersionInfo.DwMajorVersion of
      3: Result := wvNT3;
      4: case OSVersionInfo.DwMinorVersion of
          0: if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
              Result := wvNT4
            else
              Result := wv95;
          10: Result := wv98;
          90: Result := wvME;
        end;
      5: case OSVersionInfo.DwMinorVersion of
          0: Result := wvW2K;
          1: Result := wvXP;
        end;
    end;
  end;
end;

function DetectWinVersionStr: string;
const
  VersStr: array[TWinVersion] of string = (
    'Unknown',
    'Windows 95',
    'Windows 98',
    'Windows ME',
    'Windows NT 3',
    'Windows NT 4',
    'Windows 2000',
    'Windows XP');
begin
  Result := VersStr[DetectWinVersion];
end;