Форум: "Система";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Внизкакой Windows ? Найти похожие ветки
← →
som (2003-09-02 14:00) [0]Как програмно узнать какой виндовс ?
Надо узнать Win NT/2000/XP или Win95/98/Me ?
← →
Palladin (2003-09-02 14:03) [1]:)
GetVersion
← →
VMcL (2003-09-02 14:06) [2]GetVersionEx
← →
KSergey (2003-09-02 14:24) [3]Нет, ребяты ;)
Раз уж дельфи нам это дает, на мой взгляд правильнее использовать значения Win32Platform, Win32MajorVersion, Win32MinorVersion и Win32BuildNumber из модуля SysUtils. Там же даны комментарии что дополнительно где смотреть.
← →
VMcL (2003-09-02 14:31) [4]>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;
← →
VMcL (2003-09-02 14:33) [5]Это я в том смысле, что использование SysUtils не всегда желательно, и нужно знать первоисточник.
← →
KSergey (2003-09-02 14:35) [6]VMcL © (02.09.03 14:33)
Ну ежу понятно, что GetVersionEx там и используется ;)
Вот только на подобный вопрос всегда отвечают GetVersionEx, однако про указанные константы, по-моему, мало кто догадывается.
Впрочем, возможно в этом меньшенстве лишь я один.
← →
KSergey (2003-09-02 14:36) [7]Впрочем, возможно в этом меньшенстве лишь я один. до недавнего времени.
← →
VMcL (2003-09-02 14:40) [8]>KSergey © (02.09.03 14:35) [6]
> однако про указанные константы
это не константы.
← →
KSergey (2003-09-02 14:45) [9][8] VMcL © (02.09.03 14:40)
это не константы.
Ну т.е. прощу прощения, конечно. Глобальные переменные.
← →
DVM (2003-09-02 15:28) [10]http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=1000 2
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c