| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение Windows [D5, Win95/98, WinXP]
Luxer © (2002-06-22 21:56:00)Добрый вечер мастера!
Подскажите пожалуйста как написать, чтобы программа могла програмно определить винды?
И, например: если не WinXP, то запретить работу программы?
Кто ответит буду признателен!
С Уважением.
Игорь Шевченко (2002-06-24 09:56:00) [1]Luxer (22.06.02 21:56)
UBPFD - раздел определение параметров системы
Viewer (2002-06-22 22:57:00) [2]function isWinXP: boolean;
var fOS:TOsVersionInfo;
begin
fOS.dwOsVersionInfoSize:=SizeOf(fOS);
GetVersionEx(fOS);
Result := Boolean((fOS.dwPlatformId=VER_PLATFORM_WIN32_NT) and
(fOS.dwMajorVersion=5) and
(fOS.dwMinorVersion=1));
end;
Anatoly Podgoretsky (2002-06-22 22:50:00) [3]В ЧаВо смотрел?
Luxer (2002-06-22 22:17:00) [4]Подскажите Please...!
| |
