Определение версии Windows
Часто в программах системного плана приходится определять, какая версия операционной системы Windows установлена на компьютере.
Предлагаю работающий алгоритм, который определяет версию Windows. Среда программирования: Borland Delphi 5.
Описание типов:
type TWinVersion = (wvUnknown,wv95,wv98,wvME,wvNT3,wvNT4,wvW2K,wvXP,wv2003);
Функция определения версии операционной системы:
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; // Windows NT 3
4: case OSVersionInfo.DwMinorVersion of
0: if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT
then Result := wvNT4 // Windows NT 4
else Result := wv95; // Windows 95
10: Result := wv98; // Windows 98
90: Result := wvME; // Windows ME
end;
5: case OSVersionInfo.DwMinorVersion of
0: Result := wvW2K; // Windows 2000
1: Result := wvXP; // Windows XP
2: Result := wv2003; // Windows 2003
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',
'Windows 2003');
begin
Result := VersStr[DetectWinVersion];
end;
Вышеописанный алгоритм тестировался на Windows 98, Windows NT 4, Windows XP и Windows 2000, точно определяя версию операционной системы.
С появлением в широких массах новой операционной системы Windows Longhorn (Windows Vista) алгоритм будет обновлен и переписан.
Дополнительная информация на тему "работа с операционной системой Windows":
Apache — это кросплатформаенное программное обеспечение, относящееся к классу http-серверов. Поддерживается множеством операционных систем: Windows, Linux, MacOS и т.д. Одним из ключевых факторов в вопросе использования данного web-сервера является гибкость настройки и надежность выполнения операций. Apache включает в себя множество дополнительных модулей, позволяющих работать с различными базами данных, контролировать аутентификацию пользователей и т.д.
Интересные материалы на сайте:
Если на компьютере в почтовой программе "летучая мышка" завелись вирусы, то можно легко и безболезненно их оттуда убрать.
Статья для системных администраторов и администраторов безопасности сети.
Описание работы программы, позволяющей копировать файлы из расшаренных каталогов с компьютеров в локальной сети, которые искусственно блокируются различными программными комплексами.
Описание работы поискового алгоритма, который внедрен в этот сайт.
