| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
WinXP [D7, WinXP]
Ufo © (2003-04-28 09:47:00)Какой код нужен для того чтобы программа шла только на XP.
REA (2003-04-28 10:33:00) [1]Сделать дистрибутив, в котором галочками отметить только XP.
DVM (2003-04-28 10:18:00) [2]function IsXP: Boolean;
var
OS: TOSVERSIONINFO;
begin
OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
GetVersionEx(OS);
Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1);
end;
....
IF not(IsXP) then Application.Terminate;
Слесарь Матерящийся (2003-04-28 10:10:00) [3]>Какой код нужен для того чтобы программа шла только на XP
Качественный, безглючный + Babay © (28.04.03 09:48) + jel © (28.04.03 09:49)
jel (2003-04-28 09:49:00) [4]GetVersion?
Babay (2003-04-28 09:48:00) [5]проверить версию виндовс и ежели это не xp то зарываем прогу :=))
| |
