Помогите получить дату установки OC

[AppData]

Stilet, как я уже писал ранее. к сожалению windows будет на всех языках. от китайского до английского. от французского и русского. поэтому нужен именно функция. а не поиск по ключевым словам. очень надеюсь на вашу помощь. надеюсь мне здесь помогут!

[Vapaamies]

Сообщение от AppData

Stilet, спасибо что активно помогаете мне. но увы. см скрин

Значение может не читаться из-за 64-битной ОС. По скрину вижу, что Delphi 7. По-хорошему надо бы собрать 64-битное приложение в Delphi XE2+, а потом пороть горячку.

Из-под Delphi 7 можно попробовать вызвать Wow64DisableWow64FsRedirection, но я сомневаюсь, что поможет.

Как, с разрядностью ОС угадал? Код Stilet-а под 32-битной XP у меня работает.

[Человек_Борща]

Через WMI что угодно можно вытворять... держите халяву:

function WMI_NormalizeDaeTime(vDate: OleVariant): TDateTime;
var
  FWbemDateObj: OleVariant;
begin;
  FWbemDateObj := CreateOleObject('WbemScripting.SWbemDateTime');
  FWbemDateObj.Value := vDate;
  Result := FWbemDateObj.GetVarDate;
end;

function GetWMI_OSInstallDate: string;
var
  FSWbemLocator: ISWbemLocator;
  FWMIService: ISWbemServices;
  FWbemObjectSet: ISWbemObjectSet;
  FWbemObject: ISWbemObject;
  FWbemPropertySet: ISWbemPropertySet;
  TempObj: OleVariant;
  oEnum: IEnumvariant;
  iValue: Cardinal;
  val: OleVariant;
begin
  Result := '';
  FSWbemLocator := CoSWbemLocator.Create;
  FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '',
    '', '', 0, nil);
  FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM CIM_OperatingSystem',
    'WQL', $00000020, nil);
  oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumvariant;
  while oEnum.Next(1, TempObj, iValue) = 0 do
  begin
    FWbemObject := IUnknown(TempObj) as ISWbemObject;
    FWbemPropertySet := FWbemObject.Properties_;
    val := FWbemPropertySet.Item('InstallDate', 0).Get_Value;
    if VarIsNull(val) then
      break
    else
    begin
      Result := DAteTimeToStr(WMI_NormalizeDaeTime(val));
      break;
    end;
    TempObj := Unassigned;
  end;
end;

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

Приложил exe, проверьте у себя.

Stilet, с чего бы это вдруг WMI будет отсутствовать на ПК?

[Stilet]

с чего бы это вдруг WMI будет отсутствовать на ПК?

Та не отсутствовать, а отключено. Или по безопасности локальных политик или по урезанности винды. У меня на работе два таких компа с ДВДЗверем. Там WMI от ворот поворот дает.

[AppData]

Человек_Борща, огромное спасибо. а вот как сделал я)

Caption := (DateTimeToStr(GetDirTime(GetSpecialFolderPath($28))));

результат 1:1 такой же. дата и время)

но все же, твой вариант ЛУЧШЕ. Огромное Спасибо)

ОЧЕНЬ БЛАГОДАРЕН ВСЕМ КТО ПРИМИНАЛ УЧАСТИЕ.