VPF::Узнать версию Windows (НОВОЕ!) - Форум программистов

atomen

Дата 5.1.2016, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 7.9.2010

Репутация: нет
Всего: нет

Доброго времени суток Всем друзья!

Подскажите пожалуйста новичку, если несложно..

как выяснить название/версию/номер сборки MS WINDOWS (одной строкой).
и
тоже самое касается MS OFFICE.
и
Антивирусного ПО установленного на ПК

с учётом что прогресс не стоит на месте не стоит.. Офис как минимум 2013 версия и Windows 10 уже появился..

Все примеры которые мне попались, описывают вывод информации о Windows не старше NT..

Будьте добры, покажите пример...

у меня:
Delphi 7
MS Windows 7-x64"

Спасибо Вам люди добрые!
Заранее благодарен!

Это сообщение отредактировал(а) atomen - 5.1.2016, 20:17

VolRus

Дата 6.1.2016, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 1
Регистрация: 29.7.2008

Репутация: 1
Всего: 1

С помощью WMI можно получить любую информацию о системе.
Воспользуйтесь инструментом Wmi Delphi Code Generator

Вот пример. Делал без делфи возможны ошибки.

Код



uses
  SysUtils,  ActiveX,  ComObj,  Variants;

procedure OperatingSystemInfo: string;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  Result:= '';
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_OperatingSystem','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Result:= String(FWbemObject.Caption)]) +
             String(FWbemObject.CSDVersion)]) +
             String(FWbemObject.Version)]));
    FWbemObject:=Unassigned;
  end;
end;

Так же можно считать напрямую с реестра
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

Этот ответ добавлен с нового Винграда - http://vingrad.com

atomen

Дата 26.1.2016, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 7.9.2010

Репутация: нет
Всего: нет

Спасибо!!

Добавлено через 19 секунд
VolRus, спасибо!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »