Как получить информацию о версии операционной системы Windows с помощью Delphi

Получаем пятницу 21 июня 2019 года, и вот следующее: как получить информацию о версии операционной системы Windows с помощью Delphi? В этой статье я расскажу вам, как узнать версию Windows на основной форме приложения.

Для того чтобы определить версию операционной системы Windows, нам понадобится использовать несколько контрольных элементов и вызовов функций. Один из способов проверки совместимости с определенной версией Windows – использование WindowsManifest. Но что если нам не надо заказывать реальную форму Form1 и настроены для использования notidealrunner?

В Delphi имеется несколько способов узнать версию Windows. Один из простых способов – использовать функцию GetVersionEx. Она позволяет получить информацию о версии Windows и других параметрах системы. К примеру, с помощью нее вы сможете узнать, находитесь ли вы в режиме Home или Professional, 32-битной или 64-битной операционной системы.

Как определить версию Windows, используя Delphi

Для получения информации о версии операционной системы Windows в Delphi существует несколько способов. Рассмотрим один из них.

Шаг 1: Получение версии Windows в режиме совместимости

Для этого нам понадобится использовать функцию GetVersionEx из библиотеки Windows. Создадим новый проект и добавим кнопку на форму (Form1).

Добавим следующий код:

uses
Windows;
procedure TForm1.Button1Click(Sender: TObject);
var
osVerInfo: TOSVersionInfo;
begin
// Заполняем структуру информацией о версии
ZeroMemory(@osVerInfo, SizeOf(TOSVersionInfo));
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(osVerInfo);
// Получаем версию Windows
ShowMessage(Format('Версия операционной системы: %d.%d', [osVerInfo.dwMajorVersion, osVerInfo.dwMinorVersion]));
end;

После компиляции и запуска программы, нажатие на кнопку позволит узнать версию операционной системы Windows в режиме совместимости.

Шаг 2: Определение реальной версии Windows

Для определения реальной версии операционной системы Windows можно использовать контрольные файлы. Создадим новый файл с расширением .rc (например, WindowsManifest.rc) и добавим в него следующую информацию:

1 VERSIONINFO
FILEVERSION 6, 1, 7601, 17514
PRODUCTVERSION 6, 1, 7601, 17514
FILEOS 0x40004
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
BLOCK "041904E4"
{
VALUE "CompanyName", "Microsoft Corporation\0"
VALUE "FileDescription", "Windows 7 Home Basic\0"
VALUE "FileVersion", "6.1.7601.17514 (win7sp1_rtm.101119-1850)\0"
VALUE "InternalName", "Explorer.exe\0"
VALUE "OriginalFilename", "EXPLORER.EXE.MUI\0"
VALUE "ProductName", "Microsoft® Windows® Operating System\0"
VALUE "ProductVersion", "6.1.7601.17514\0"
}
}
BLOCK "VarFileInfo"
{
VALUE "Translation", 0x419, 1252
}
}

Здесь нужно указать версию Windows, которую требуется получить. В данном примере указана версия Windows 7 Home Basic.

После этого добавим этот файл в проект Delphi и скомпилируем его.

Теперь, после запуска программы и нажатия на кнопку, мы сможем узнать реальную версию операционной системы Windows.

Надеемся, что данная информация помогла вам узнать версию Windows с помощью Delphi.

Проверка версии Windows с помощью Delphi: инструкция

Узнать версию операционной системы Windows может пригодиться в различных ситуациях, особенно при разработке программного обеспечения или при написании скриптов на Delphi. В данной статье мы рассмотрим, как определить версию Windows с помощью Delphi. Перед началом следующих шагов, убедитесь, что у вас установлена среда программирования Delphi и создан новый проект.

Шаг 1: Получение информации о версии Windows

На форму Form1 вставьте следующее содержимое:


procedure TForm1.FormCreate(Sender: TObject);
var
OSVersion: TOSVersionInfo;
begin
OSVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(OSVersion) then
begin
// Получаем информацию о версии Windows
if (OSVersion.dwMajorVersion = 10) and (OSVersion.dwMinorVersion = 0) then
// Windows 10
ShowMessage('Версия Windows: 10')
else if (OSVersion.dwMajorVersion = 6) and (OSVersion.dwMinorVersion = 3) then
// Windows 8.1
ShowMessage('Версия Windows: 8.1')
else if (OSVersion.dwMajorVersion = 6) and (OSVersion.dwMinorVersion = 2) then
// Windows 8
ShowMessage('Версия Windows: 8')
else if (OSVersion.dwMajorVersion = 6) and (OSVersion.dwMinorVersion = 1) then
// Windows 7
ShowMessage('Версия Windows: 7')
else if (OSVersion.dwMajorVersion = 6) and (OSVersion.dwMinorVersion = 0) then
// Windows Vista
ShowMessage('Версия Windows: Vista')
else if (OSVersion.dwMajorVersion = 5) and (OSVersion.dwMinorVersion >= 1) then
// Windows XP или более ранние версии
ShowMessage('Версия Windows: XP или более ранняя')
else
// Другая версия Windows
ShowMessage('Неизвестная версия Windows');
end;
end;


Шаг 2: Запуск и проверка версии Windows

Теперь вы знаете, как определить версию Windows с помощью Delphi. Это может быть полезно при разработке программного обеспечения, особенно учитывая требования к совместимости с различными версиями операционной системы Windows. Надеемся, данная инструкция помогла вам получить необходимую информацию.

Получение версии операционной системы Windows: шаги

Определение версии операционной системы Windows в Delphi может быть полезным для обеспечения совместимости программного обеспечения с конкретными версиями Windows. В этом руководстве мы рассмотрим, как получить версию операционной системы Windows с помощью Delphi.

Шаг 1: Получение основной версии Windows

Для получения основной версии операционной системы Windows можно использовать функцию GetVersionEx из модуля Windows. Ниже приведен код, который позволяет определить основную версию Windows:

uses
Windows;
function GetWindowsVersion: string;
var
osVersion: TOSVersionInfo;
begin
ZeroMemory(@osVersion, SizeOf(TOSVersionInfo));
osVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(osVersion);
Result := '';
case osVersion.dwMajorVersion of
5:
case osVersion.dwMinorVersion of
0: Result := 'Windows 2000';
1: Result := 'Windows XP';
2: Result := 'Windows Server 2003';
end;
6:
case osVersion.dwMinorVersion of
0: Result := 'Windows Vista';
1: Result := 'Windows 7';
2: Result := 'Windows 8';
3: Result := 'Windows 8.1';
end;
10:
Result := 'Windows 10';
end;
end;
...
var
windowsVersion: string;
begin
windowsVersion := GetWindowsVersion;
// Дальнейшая обработка версии Windows
end;

Шаг 2: Получение реальной версии Windows

Основная версия Windows может не всегда отражать реальную версию операционной системы, особенно в случаях, когда используется режим совместимости. Для получения реальной версии Windows можно использовать информацию из файла executable или manifest-файла Windows. Ниже приведен код, который позволяет получить реальную версию операционной системы Windows:

uses
Windows, System.SysUtils;
function GetRealWindowsVersion: string;
var
versionInfo: DWORD;
begin
versionInfo := GetFileVersion('kernel32.dll');
Result := Format('%d.%d.%d', [LOWORD(versionInfo), HIWORD(versionInfo) and $FF, HIWORD(versionInfo) shr 8]);
end;
...
var
realWindowsVersion: string;
begin
realWindowsVersion := GetRealWindowsVersion;
// Дальнейшая обработка реальной версии Windows
end;

Шаг 3: Проверка режима совместимости Windows

Также можно проверить режим совместимости Windows при помощи функции GetSystemMetrics и константы SM_CLEANBOOT. Если значение GetSystemMetrics(SM_CLEANBOOT) равно 1, значит, Windows была запущена в режиме совместимости. Ниже приведен код, который позволяет проверить режим совместимости Windows:

uses
Windows;
function IsCompatibilityModeEnabled: Boolean;
begin
Result := GetSystemMetrics(SM_CLEANBOOT) = 1;
end;
...
var
compatibilityModeEnabled: Boolean;
begin
compatibilityModeEnabled := IsCompatibilityModeEnabled;
if compatibilityModeEnabled then
ShowMessage('Windows запущена в режиме совместимости');
end;

Теперь вы знаете, как получить версию операционной системы Windows с помощью Delphi. Эта информация может быть полезна при разработке приложений для контроля совместимости с различными версиями операционной системы Windows.

Контрольные вопросы:
1. Как получить основную версию операционной системы Windows в Delphi?
2. Как получить реальную версию операционной системы Windows в Delphi?
3. Как проверить режим совместимости Windows в Delphi?

Как узнать реальную версию Windows из режима совместимости

Если ваше приложение разработано в Delphi 2019 и требуется узнать версию операционной системы Windows, но вы не можете получить эту информацию из режима совместимости, то следующее контрольные управления помогут вам определить реальную версию Windows:

1. Откройте форму Form1 в режиме дизайна.
2. Вставьте следующий код перед объявлением основного блока:

uses Windows;

3. Вставьте следующий код в блоке implementation:

function GetRealWindowsVersion: string;
var
OsInfo: TOSVersionInfo;
begin
FillChar(OsInfo, SizeOf(TOSVersionInfo), 0);
OsInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(OsInfo);
case OsInfo.dwMajorVersion of
10: Result := 'Windows 10';
6:
case OsInfo.dwMinorVersion of
3: Result := 'Windows 8.1';
2: Result := 'Windows 8';
1: Result := 'Windows 7';
0: Result := 'Windows Vista';
end;
5:
case OsInfo.dwMinorVersion of
2: Result := 'Windows Server 2003';
1: Result := 'Windows XP';
0: Result := 'Windows 2000';
end;
else
Result := 'Unknown Windows version';
end;
end;

4. Вставьте следующий код в блоке OnCreate события Form1:

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := GetRealWindowsVersion;
end;

Теперь при запуске приложения в режиме совместимости, вы получите реальную версию операционной системы Windows. Не забудьте добавить проверку на наличие Windows в модуль uses.

Определение версии Windows в Delphi 7: пример кода

Для определения версии операционной системы Windows в Delphi 7 можно использовать следующий код:

Шаг 1: Получение информации о версии Windows

В основной форме (Form1) добавляем следующий код:

var
MajorVersion, MinorVersion: Cardinal;
ProductType: Byte;
begin
// Получаем реальную версию Windows
MajorVersion := (WindowsVersion.dwMajorVersion and $FF);
MinorVersion := (WindowsVersion.dwMinorVersion and $FF);
ProductType := WindowsVersion.wProductType;
ShowMessage(
'Версия операционной системы Windows: ' +
IntToStr(MajorVersion) + '.' + IntToStr(MinorVersion)
);
// Проверка наличия определенных функций в зависимости от версии Windows
if (MajorVersion >= 6) then
begin
// Действия для Windows Vista и выше
ShowMessage('Операционная система Windows Vista и выше');
end
else if (MajorVersion = 5) and (MinorVersion = 1) then
begin
// Действия для Windows XP
ShowMessage('Операционная система Windows XP');
end
else
begin
ShowMessage('Другая версия операционной системы Windows');
end;
end;

Шаг 2: Проверка совместимости

Для обеспечения совместимости с более новыми версиями Windows, необходимо добавить файл «windowsmanifest.res» в проект:

Щелкните правой кнопкой мыши на проекте в окне «Управление проектом», выберите «Добавить» -> «Ресурсный файл».

Выберите файл «windowsmanifest.res» в папке Delphi 7 (обычно находится в папке «Lib») и нажмите «Открыть».

Теперь ваше приложение будет совместимо с различными версиями операционной системы Windows.

В результате вас попросят заказывать формат Манифеста. Тут надо выбирать «21».

Помогите, не могу найти рисунок «Реальная версия Windows»

Видео:

Лучший автосканер! ELM327 теперь может всё!

Лучший автосканер! ELM327 теперь может всё! by Авто Контроль 88,653 views 1 year ago 17 minutes