| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
резиденты под виндовс XP, не получается под виндовс резиденты Отображение времени из БД Access JPEG, Считывание JPEG без использования VCL Как вывести bitmap? Резидентная программа, Прога, удаляющая определенную инфу Как одновременно воспроизвести несколько Wav Как мне объявить структуру, не помню ключевых слов. СРОЧНО!!! Нужна спецификация Corba IDL Dll работает не всегда Как сдвинуть спектр звукового сигнала? Изменение kernel32.dll "Установка и удаление программ" Просто супер лёгкая вещица!!!, Компанент и мышь Игнорировать код при условии... Протокол обмена компа с мобильником ? Download Delphi7, Download Delphi7 Timer - тыртыртуртур, а нужно тррррррррррр., Timer - тыртыртуртур, а нужно трррррррр Kylix: Время создания файла Кто нибудь использует Rational Rose с Delphi?, Rational Rose Динамические структуры данных, Динамические структуры данных OnTimer и отладка, помогите в теории и практике Translater ..По Срочнякам, Помогите плизз System Tray, RxLib MENUS, ToolBar - HELP Как Вы относитесь к курящим девушкам? PopupMenu как в DELPHI7, PopupMenu как в DELPHI7 - HELP Как получить инфу о жестком диске? Средняя частота байт ListView, ListView - HELP! PropertySheet, Закладка свойств OpenGL, прозрачные объекты XPStyle Vs Standart, XPStyle Vs Standart - HELP QReport в Delphi7 порт lpt, как записать значение Как лучше писать БД?, Что использовать? Интернет и Web, IP-адресс Полезные примочки для ListBoxа и для ComboBoxа TStringGrid в переменной записано имя процедуры Как создать форму с визуальным компонентом, ручками windows Бизнес логика в хранимых процедурах... Изменение параметров BDE - алиаса, Как применить? QReport, основы Как заглушить системную службу? Запуск формы один раз Хранение изображений и их склеивание, Нужен способ Форма в центре экрана, Как сделать чтобы форма при запуске прил Подскажите, как считывать файл, открытый другой, программой? Mirror ListBox Дата в Win2000, Неправильный год в Win2000 API func's Версия Windows Инсталлятор для BDE - программы., Как перенести алиасовский PATH? Окно поверх всех окон, Как сделать Directory+Hidden IBInstall - как провести инсталляцию на чистой маш, Польза-то вообще есть? Outlook расширения, Кто писал? alternativa TEdit Работа с процессором, Помогите, чем можете... Запрет функции печати Создание компонента,, во время выполнения программы Копирование Ребята, где можно про DAO почитать? Настройки... ComboBox в ячейке StringGrid под углом 90 градусов, Как перевернуть ComboBox? Добавление компонента!, Не получается. Отправка почты в Дельфи 7, Помогите разобраться в приаттачивании Версии Delphi, Какая больше нравится ?? ФОРМА, Хочу чтобы форма была на весь экран |
Платные хостинги Раскрутка сайта Книги по программированию Версия Windows
- Как узнать версию Windows (Windows 95, Windows NT, Windows 98, Windows Me, Windows 2000, Windows XP...) - DWORD GetVersion(VOID)Описание смотри в helpe... - Отбой люди... Нашел в предыдущих вопросах. - В нашем FAQ я приводил процедуру которая определяет версию винды - Вот еще один пример. Мне он нравиться больше всего. Я его обычно использую в своих программах. Он гибкий и предоставляет максимум информации.Код {Объявление процедур и констант}function GetWindowsVersion1: string;function WhatWindowsIsInstalled : String;const VER_NT_WORKSTATION = 0; VER_NT_DOMAIN_CONTROLLER = 1; VER_NT_SERVER = 2; VER_SUITE_SMALLBUSINESS = 1; VER_SUITE_ENTERPRISE = 2; VER_SUITE_BACKOFFICE = 4; VER_SUITE_COMMUNICATIONS = 8; VER_SUITE_TERMINAL = $10; VER_SUITE_SMALLBUSINESS_RESTRICTED = $20; VER_SUITE_EMBEDDEDNT = $40; VER_SUITE_DATACENTER = $80; VER_SUITE_SINGLEUSERTS = $100; VER_SUITE_PERSONAL = $200; VER_SUITE_BLADE = $400;type TOsVersionInfoExA = packed record old : TOsVersionInfoA; wServicePackMajor : Word; wServicePackMinor : Word;{ wSuiteMask Набор битовых флагов, определяющих компоненты Windows VER_SUITE_BACKOFFICE Установлен компонент Microsoft BackOffice. VER_SUITE_BLADE Установлен компонент Windows .NET Web Server. VER_SUITE_DATACENTER Установлена Windows 2000 или компонент Windows .NET Datacenter Server VER_SUITE_ENTERPRISE Установлена Windows 2000 Advanced Server или компонент Windows .NET Enterprise Server. VER_SUITE_PERSONAL Установлена Windows XP Home Edition. VER_SUITE_SMALLBUSINESS Установлен Microsoft Small Business Server. VER_SUITE_SMALLBUSINESS_RESTRICTED Установлен Microsoft Small Business Server с ограничительной лицензией для клиентов VER_SUITE_TERMINAL Установлен компонент Terminal Services.} wSuiteMask : Word;{wProductType Дополнительная информация о типе операционной системыVER_NT_WORKSTATION Операционная система Windows NT 4.0 Workstation, Windows 2000 Professional, Windows XP Home Edition, или Windows XP Professional.VER_NT_DOMAIN_CONTROLLER Операционная система является контроллером домена.VER_NT_SERVER Операционная система является сервером.} wProductType : Byte; wReserved : Byte; end;...{Реализация}function WhatWindowsIsInstalled : String;var VerInfo : TOsVersionInfoExA;begin FillChar(VerInfo, sizeof(VerInfo), 0); VerInfo.old.dwOSVersionInfoSize := Sizeof(TOsVersionInfoExA); if NOT GetVersionExA(VerInfo.old) then begin VerInfo.old.dwOSVersionInfoSize := Sizeof(TOsVersionInfoA); GetVersionExA(VerInfo.old); end; case VerInfo.old.dwPlatformId of VER_PLATFORM_WIN32_WINDOWS: if (Verinfo.old.dwMajorVersion = 4) AND (Verinfo.old.dwBuildNumber = 950) then Result := 'Windows 95' else if (Verinfo.old.dwMajorVersion = 4) AND (Verinfo.old.dwMinorVersion = 10) AND (Verinfo.old.dwBuildNumber = 1998) then Result := 'Windows 98' else if (Verinfo.old.dwMinorVersion = 90) then Result := 'Windows Me'; VER_PLATFORM_WIN32_NT: if Verinfo.old.dwMajorVersion = 3 then Result := 'Windows NT 3.51' else if Verinfo.old.dwMajorVersion = 4 then Result := 'Windows NT 4.0' else if Verinfo.old.dwMajorVersion = 5 then if Verinfo.old.dwMinorVersion = 0 then Result := 'Windows 2000' else if Verinfo.old.dwMinorVersion = 1 then Result := 'Windows XP'; VER_PLATFORM_WIN32s: Result := 'Win32s'; end;end;function GetWindowsVersion1: string;{$IFDEF WIN32}const sWindowsVersion = '%.3d';var Ver: TOsVersionInfo; Platform: string[4];begin Ver.dwOSVersionInfoSize := SizeOf(Ver); GetVersionEx(Ver); with Ver do begin case dwPlatformId of VER_PLATFORM_WIN32s: Platform := '32s'; VER_PLATFORM_WIN32_WINDOWS: begin dwBuildNumber := dwBuildNumber and $0000FFFF; if (dwMajorVersion > 4) or ((dwMajorVersion = 4) and (dwMinorVersion >= 10)) then Platform := '98' else Platform := '95'; end; VER_PLATFORM_WIN32_NT: Platform := 'NT'; end; Result := Trim(Format(sWindowsVersion, [dwBuildNumber])); end;end;{$ELSE}const sWindowsVersion = 'Windows%s %d.%d'; sNT: array[Boolean] of string[3] = ('', ' NT');var Ver: Longint;begin Ver := GetVersion; Result := Format(sWindowsVersion, [sNT[not Boolean(HiByte(LoWord(Ver)))], LoByte(LoWord(Ver)), HiByte(LoWord(Ver))]);end;{$ENDIF WIN32}highlightSyntax('delphiY2RmMW','delphi');Пример вызоваКод Label1.Caption := WhatWindowsIsInstalled+' (Build '+GetWindowsVersion1+')';highlightSyntax('delphiEyZDFjN','delphi');  |