| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Windows Name [D7, Win95/98, WinME, NT4, Win2k, WinXP]
Khabibulin © (2004-09-30 06:25:00)Как определить версию (Название) операционной системмы Microsoft Windows (только не через реестр!).
grom (2004-09-30 19:52:00) [1]procedure TForm1.Button1Click(Sender: TObject);
var dwVersion: DWord;
dwWindowsMajorVersion,dwWindowsMinorVersion, dwBuild: Word;
S: string;
begin
dwVersion := GetVersion;
dwWindowsMajorVersion := Byte(Word(dwVersion));
dwWindowsMinorVersion := HiByte(Word(dwVersion));
if (dwVersion < $80000000)
then begin
S := 'Windows NT';
dwBuild := HiWord(dwVersion);
end
else if (dwWindowsMajorVersion < 4)
then begin
S := 'Win32s';
dwBuild := HiWord(dwVersion) and $7FFFFFFF;
end
else begin
S := 'Windows 9.x';
dwBuild := 0;
end;
S := S + ', âåðñèÿ ' + IntToStr(dwWindowsMajorVersion) + '.' +
IntToStr(dwWindowsMinorVersion) + ', ìîäèôèêàöèÿ ' +
IntToStr(dwBuild);
Edit1.Text := S;
end;
easy (2004-09-30 07:48:00) [2]http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622288&n=15
| |
