Проверка наличия .NET Framework и определение его версииDelphi , ОС и Железо , WindowsПроверка наличия .NET Framework и определение его версии
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка наличия .NET Framework и определение его версии Функция возвращает номер последней установленной версии .NET Framework на компьютере, или пустую строку, если платформа .NET не установлена, либо установлена криво. Зависимости: Registry, SysUtils Автор: Dimka Maslov, mainbox@endimus.com, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 19 января 2004 г. ***************************************************** } function DotNetVersion: string; var R: TRegistry; L: TStringList; S: string; i, MaxIndex, N, Code: Integer; V, MaxVersion: Double; const RegKey = 'Software\Microsoft\.NETFramework\Policy'; begin Result := ''; R := TRegistry.Create; try R.RootKey := HKEY_LOCAL_MACHINE; if R.KeyExists(RegKey) then begin R.OpenKeyReadOnly(RegKey); L := TStringList.Create; try R.GetKeyNames(L); MaxVersion := -1.0; MaxIndex := -1; for i := 0 to L.Count - 1 do begin S := L[i]; if UpCase(S[1]) = 'V' then begin Delete(S, 1, 1); Val(S, V, Code); if (Code = 0) and (V > MaxVersion) then begin MaxVersion := V; MaxIndex := i; end; end; end; if MaxIndex <> -1 then begin S := L[MaxIndex]; R.CloseKey; R.OpenKeyReadOnly(RegKey + '\' + S); R.GetValueNames(L); MaxIndex := -1; for i := 0 to L.Count - 1 do begin Val(L[i], N, Code); if (Code = 0) and (N > MaxIndex) then MaxIndex := N; end; Result := S; Delete(Result, 1, 1); if MaxIndex <> -1 then Result := Result + '.' + IntToStr(MaxIndex); end; finally L.Free; end; end; finally R.Free; end; end; Статья Проверка наличия .NET Framework и определение его версии раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |