| [11569] Re:インストール済み.NET Framework | 返信 削除 |
| 2017/11/19 (日) 00:00:53 Mr.XRAY |
|
> インストール済みの .NET Framework のバージョンは ものはついでですので，Windows API を使用したコードです． JEDI の Windows API のユニットを使用しています． うまくいったと思ったら，検出できないバージョンがあります． WMI を使用したのも，このサンプルも MSI でインストールしたアプリです． そのあたりが誓うのかも... WMI とこのサンプルの動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) Pro です． implementation uses JwaMsi, StrUtils; {$R *.dfm} //----------------------------------------------------------------------------- // MSIでインストールしたアプリのプロパティの取得 // AProduct : インストールしたアプリのプロダクト名(GUID) // AProperty : 取得したいプロパティの識別子 // 識別子の名前はMSDNのMsiGetProductInfo関数の説明を参照 //----------------------------------------------------------------------------- function GetMsiPropertyValueStr(AProduct: PChar; AProperty: PChar): string; var LValue : PChar; LLen : DWORD; begin //取得に必要なバッファサイズを取得(第3引数をnilにする) LLen := 0; MsiGetProductInfo(AProduct, AProperty, nil, @LLen); //取得したバッファサイズにnul終端文字分が含まれないとのことなで追加 LLen := LLen + 1; LValue := StrAlloc(LLen); try MsiGetProductInfo(AProduct, AProperty, LValue, @LLen); Result := LValue; finally StrDispose(LValue); end; end; //============================================================================= // MSIでインストールしたアプリをリスト //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var LIndex : Integer; LProduct : PChar; LText : string; begin Memo1.Lines.Clear; Memo1.Lines.BeginUpdate; LIndex := 0; LProduct := StrAlloc(MAX_PATH); try while MsiEnumProducts(LIndex, LProduct) = ERROR_SUCCESS do begin LText := GetMsiPropertyValueStr(LProduct, INSTALLPROPERTY_PRODUCTNAME); if StrUtils.ContainsText(LText, 'NET Framework') then begin Memo1.Lines.Add(string(LProduct)); Memo1.Lines.Add(IntToStr(LIndex) + ' '+ LText); LText := GetMsiPropertyValueStr(LProduct, INSTALLPROPERTY_VERSIONSTRING); Memo1.Lines.Add(IntToStr(LIndex) + ' '+ LText); Memo1.Lines.Add(''); end; inc(LIndex); end; finally StrDispose(LProduct); end; Memo1.Lines.EndUpdate; end;  |