[アプリケーションの追加と削除] の情報 (ID:100807)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

K.J.K. さん、ご回答ありがとうございます。

> 意味が繋がりません。
> E_NOTIMPL を返す、ということは、
> 「このメソッドは中身・内容がないよう。」
> ということです。だから、どういう呼び出し方をしようが無駄です。

Dim cCategories As Long
    Dim pszCategory As Long
    Dim idCategory As Long

'ShellAppManager::GetPublishedAppCategories
    hr = Invoke_(ObjPtr(p), 5, cCategories, pszCategory, idCategory)

とすればS_OKを返しますが、単独のLong型変数に
何か入って来る訳でもありませんでした。

>     IIDFromString ByVal "{352EC2B7-8B9A-11D1-B8AE-006008059382}", _
>                   CLSID_ShellAppManager(0)
> 
>     IIDFromString ByVal "{C257690D-85DE-417C-B964-C22B1A6BB5F7}", _
>                   IID_IShellAppManager(0)
> 
>     hr = CoCreateInstance(CLSID_ShellAppManager(0), 0, CLSCTX_INPROC_SERVER, _
>                     IID_IShellAppManager(0), p)
>     If hr Then Exit Sub

IIDFromString ByVal StrPtr("{352EC2B7-8B9A-11D1-B8AE-006008059382}"), _
                  CLSID_ShellAppManager(0)

IIDFromString ByVal StrPtr("{C257690D-85DE-417C-B964-C22B1A6BB5F7}"), _
                  IID_IShellAppManager(0)

hr = CoCreateInstance(CLSID_ShellAppManager(0), 0, CLSCTX_INPROC_SERVER, _
                    IID_IShellAppManager(0), p)
    If hr Then Exit Sub

今更ですが、StrPtr関数を使ってませんでした。

Sub test()

Dim obj As ShellAppManager
    Dim piea As EnumInstalledApps
    Dim pie As IInstalledApp
    Dim refAppinfo As TSHAppDataInfo

ChDrive ThisWorkbook.Path
    ChDir ThisWorkbook.Path
    
    Set obj = New ShellAppManager
    Set peia = obj.EnumInstalledApps

Do
        Set pie = piea.Next
        If pie Is Nothing Then
            Exit Do
        End If

refAppinfo.StructureSize = LenB(refAppinfo)
        refAppinfo.Mask = shAppDisplayName
        pie.GetAppInfo refAppinfo
       
        Debug.Print SysAllocString(shappinfo.DisplayName)
        CoTaskMemFree shappinfo.DisplayName
        Set pie = Nothing
    Loop
End Sub

ブック(*.xlsm)と同じフォルダにK.J.K. さんの
タイプライブラリをコピーして、参照設定後、

>     Set obj = New ShellAppManager
>     Set peia = obj.EnumInstalledApps
の時点で、

---
実行時エラー '430':

クラスはオートメーションまたは予測したインターフェースをサポートしていません。
---
になります。

何か簡単な事を見落としているだけだと
思いますので何とかなりそうです。

> 規制・保護されているものでない限り、リンクに許可は不要だと考えています。

向こうの規約にファイルへのリンクを含むリンク先を載せる事を
禁ずる的な文言があるのを忘れてました。
すみませんです＜(_ _)＞

K.J.K. さん、ありがとうございました。
解決とさせて頂きます。

←解決時は質問者本人がここをチェックしてください。

戻る