notidealrunner

пятница, 21 июня 2019 г.

Получаем версию операционной системы Windows в Delphi 7

Есть такая известная функция получения версии операционной системы Windows – GetVersionEx, но начиная с версии Windows 8 и выше данная функция работает должным образом только совместно с файлом манифеста.

Создайте новый проект. Сохраните проект с именем p21.dpr. Основной модуль назовите p21_unit1.pas. В каталоге проекта создайте файл манифеста Windows.manifest. Содержимое файла должно быть следующее:

Далее нам необходимо в каталоге проекта создать файл ресурсов компиляции с именем Windows.rc. Содержимое файла компиляции будет следующее:

1 24 «Windows.manifest»

То есть мы в качестве ресурсов нашего приложения указываем наш файл манифеста.

Файл ресурсов компиляции Windows.rc необходимо скомпилировать при помощи компилятора ресурсов brcc32.exe, этот компилятор ресурсов расположен в каталоге, где расположены бинарные файлы Delphi, у меня это каталог D:\Programs\Delphi7\Files\Delphi7\Bin. Убедитесь, что данный каталог добавлен в переменную окружения Path. Запустите командную строку Windows, перейдите в каталог проекта и выполните команду компиляции ресурсов (Смотрите рисунок 1).

В качестве результата в каталоге проекта вы получите файл ресурсов Windows.RES, который необходимо в файле проекта p21.dpr подключить. Смотрите код ниже:

Разместите на форме Form1 текстовую метку Lable1. В метке Label1 мы будем отображать версию операционной системы Windows (Смотрите рисунок 2).

В обработчике показа формы Form1 мы метке Label1 присваиваем результат возврата функции WinName.

Рассмотрим две функции, которые получают версию операционной системы Windows.

При помощи функции GetVersionEx мы получаем номер основной и второстепенный для нашей операционной системы Windows. Преобразуем основной и второстепенный номер в строку, выполняем соединение этих строк в одну и возвращаем результат выполнения функции WinVerNum.

При помощи функции WinName мы получаем версию операционной системы Windows и возвращаем ее в виде строки.

Результат работы программы (Смотрите рисунок 3).

Получить версию windows

Получить версию билда ехе-файла
Надо узнать и сравнить версии билда ехе файла, чтобы после каждого изменения не скидывать самому.

Установил Windows Vista SP2 бета версию, теперь не могу перейти на Windows XP
Всем Здравствуйте. Помогите может кто сталкивался с такой бедой, короче установил висту sp2 бета.

Как обновить версию Windows 10 Home до Windows 10 Pro?
Есть лицензионная Windows 10 Home. Хочу обновить ее до Pro версии. На сайте предлагают только.

Получить версию ОС
Почему данные не считываются? Выводятся нули. ЧЯДНТ? #pragma once #if !defined (__SAMPLE_DLL_H__).

в дельфе нет такого модуля

Добавлено через 22 минуты
нашел. может кому пригодится

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Получить версию продукта
Есть необходимость получить версию файла (exe / dll), которая отображается если в эксполере перейти.

Получить версию файла
Application.ProductVersion показывает версию в виде 0.0.5.7, а мне нужно получитьвесию без точек то.

Получить версию приложения
Как получить информацию о версии приложения программно? Т.е ту версию, которая устанавливается в.

Получить версию через WinAPI.
Нужно получить версию Windows, используя WinAPI, а конкретно функцию GetVersionEx. Функция.

Проверка на версию windows

Всем привет. Требуется определить версию ОС ниже win vista. Если ниже то False, если выше висты (7, 8, 8.1, 10) то True.
Версию определяю так: CheckWin32Version(), только вот как это совместить?

Добавлено через 11 минут
Сделал так:

Проверка на новую версию..
Помогите реализовать автоматическую проверку на обновление программы через интернет. Чтобы при.

Установил Windows Vista SP2 бета версию, теперь не могу перейти на Windows XP
Всем Здравствуйте. Помогите может кто сталкивался с такой бедой, короче установил висту sp2 бета.

Как обновить версию Windows 10 Home до Windows 10 Pro?
Есть лицензионная Windows 10 Home. Хочу обновить ее до Pro версии. На сайте предлагают только.

определить версию windows
гомпода програмисты возможно как то програмно определить версию windows,что бы потом это.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Получить версию windows
как получить версию windows без админ прав ?

Понизить версию windows
Доброго времени суток. Установлена Windows 7 Enterprise, хочу понизить версию до professional.

Обновить рабочую лицензионную версию Windows Vista обновить до Windows 7 бесплатно?
Доброго времени суток! Искала-искала, но так четких ответов и не нашла( Подскажите, пож., могу.

Какую версию Windows скачать?
Привет всем. Я решил поставить себе Windwos 7, какую из версий посоветуйте??

Определить версию Windows с условием
Необходимо определить издание Windows (XP, 7, 8, 8.1) и выполнить следуещее условие: Если издание.

Обновить домашнюю версию до Windows 10
подскажите у меня стоит 7 максимальная а ключ есть от домашней хотелось бы его поменять чтобы.

Информация об ОС в Delphi

Здравствуйте!
Как в Delphi получить информация об установленной на компе ОС? Ну так какая ОС сколько разрядов, когда установлена имя пользователя в системе!

Если сложно всех ОС дайте инфу хотя-бы по Windows! Ну чтобы определяло только какая Windows стоит.

Информация о Win на Delphi
Доброго времени суток всем!Надо открыть xml-файл. Путь: Xp -Диск с ОС:\documents and.

Расчет стипендии в Delphi 7 информация считываеться с БД
помогите разобраться нужно что бы расчитывал стипендию от отценки по нажатию на кнопку но у меня не.

Delphi post и GET запросы, базовая информация
Дайте ссылку на учебник на русском или приведите человеческие примеры, а то найти не получается.

Delphi и клиент-сервер. вся информация внутри
Прошу, помочь объяснениями и советами в 1 ом проекте. Нужен хороший специалист в delphi на тему.

Решение

Читаем все из реестра:

Заносим данные в файл(можно вывести на экран, занести в переменную и т.д):

Добавлено через 16 минут
Ну и вопрос! Это же не все:

Если не все, то как посмотреть что еще о системе можно вытащить с реестра?

Добавлено через 1 минуту
Ну например еще тип системы: Сколько разрядная и Имя ПК.

Добавлено через 1 час 51 минуту
Все нашел! Я просто искал в Windows а нужно WindowsNT!

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

В DBEdit остается информация с прежнего запуска (Delphi 7)
Здравствуйте ! подскажите пожалуйста ! у меня программа к ней привязана база данных ! я ее заполняю.

Как определить устаревшую версию Windows?

драстуйте как сделать устаревшую версию Windows? пример если windows 7 или windows 8 то добавить или показать скрытый текст ‘Ваш компьютер работает под управлением устаревшей версии Windows‘

Компонент WebBrowser отображает устаревшую версию страницы
Добрый день. При помощи вот такого кода: public partial class Browser : Form < .

как определить версию Windows из VBScript
Всем привет! Вопрос такой: как определить версию Windows из VBScirpt? Чтобы можно было 98 от XP.

Как определить версию и разрядность системы с помощью скрипта из среды windows pe ?
Приветствую ! Как при помощи батника загрузившись с live cd или любую среду PE определить какая.

определить версию windows
гомпода програмисты возможно как то програмно определить версию windows,что бы потом это.

Мне вот в течении этого года пришлось переводить все компы организации на Win10 — и это еще один повод оттянуть установку этой ОС на домашнем компе еще лет на несколько — такая дрянь.

D1973, а чем же конкретно, если не секрет? Мне вот было просто непривычно, сперва, многое слегка переместилось. Но в итоге в целом оказалось норм, переприспособился.

Меню пользователя @ GoodWeather

Читать блог

А на саму тему я уже ответил — надо делать через Манифест и/или VerifyVersionInfo*() .

Добавлено через 4 минуты
а. И ещё через установщик программы можно — например установщик свежих Делфи откажется устанавливать на неподдерживаемую версию ОС.

так-с. А что такое «подключится».

Добавлено через 1 минуту
Надо следовать свежей документации, то есть читать и выполнять вот это вот: MSDN :: Targeting your application for Windows

Добавлено через 1 минуту
Но по идее, если хотите, всё ещё можно дёргать VerifyVersionInfo() :

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить версию Windows с условием
Необходимо определить издание Windows (XP, 7, 8, 8.1) и выполнить следуещее условие: Если издание.

Определить версию windows используя Python
Суть вопроса такова, как используя Python, определить какая windows на установлена на ПК? Нужно.

Определить в какую директорию установлена Windows, и версию ОС
Определить в какую директорию установлена Windows, и версию ОС. Должно совпасть с этим