| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
какой Windows ? [D6]
som © (2003-09-02 14:00:00)
Как програмно узнать какой виндовс ?
Надо узнать Win NT/2000/XP или Win95/98/Me ?
DVM (2003-09-02 15:28:00) [1]http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10002
KSergey (2003-09-02 14:45:00) [2]
[8] VMcL © (02.09.03 14:40)
это не константы.
Ну т.е. прощу прощения, конечно. Глобальные переменные.
VMcL (2003-09-02 14:40:00) [3]
>KSergey © (02.09.03 14:35) [6]
> однако про указанные константы
это не константы.
KSergey (2003-09-02 14:36:00) [4]
Впрочем, возможно в этом меньшенстве лишь я один.до недавнего времени.
KSergey (2003-09-02 14:35:00) [5]
VMcL © (02.09.03 14:33)
Ну ежу понятно, что GetVersionEx там и используется ;)
Вот только на подобный вопрос всегда отвечают GetVersionEx, однако про указанные константы, по-моему, мало кто догадывается.
Впрочем, возможно в этом меньшенстве лишь я один.
VMcL (2003-09-02 14:33:00) [6]
Это я в том смысле, что использование SysUtils не всегда желательно, и нужно знать первоисточник.
VMcL (2003-09-02 14:31:00) [7]
>KSergey © (02.09.03 14:24) [3]
Не в тему.
procedure InitPlatformId;
var
OSVersionInfo: TOSVersionInfo;
begin
OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
if GetVersionEx(OSVersionInfo) then
with OSVersionInfo do
begin
Win32Platform := dwPlatformId;
Win32MajorVersion := dwMajorVersion;
Win32MinorVersion := dwMinorVersion;
Win32BuildNumber := dwBuildNumber;
Win32CSDVersion := szCSDVersion;
end;
end;
KSergey (2003-09-02 14:24:00) [8]
Нет, ребяты ;)
Раз уж дельфи нам это дает, на мой взгляд правильнее использовать значения Win32Platform, Win32MajorVersion, Win32MinorVersion и Win32BuildNumber из модуля SysUtils. Там же даны комментарии что дополнительно где смотреть.
VMcL (2003-09-02 14:06:00) [9]
GetVersionEx
Palladin (2003-09-02 14:03:00) [10]
:)
GetVersion
| |
