Вниз
Скачать: CL | DM;

какой 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.054 c
4-42329
waw
2003-09-03 19:11
2003.11.13
Как использовать функции NetFileGetInfo и netFileEnum


1-41331
Grouzd[E]v
2003-10-30 22:29
2003.11.13
Загрузка Jpeg из Resурсов


1-41476
AndreyA
2003-10-28 14:05
2003.11.13
Минимайз окон


14-41969
Думкин
2003-10-20 04:51
2003.11.13
С днем рождения! 18 октября.


1-41457
Вера
2003-10-29 10:42
2003.11.13
Загрузка изобраджения




   Наверх