外字フォントのインストール状況を確認したい。

Question

###前提・実現したいこと
タイトル通りですが、外字を利用したシステムを使用する前に、指定のフォントが入っているか判定。
フォントがインストールされていない場合はインストールしたいと考えております。

###発生している問題・エラーメッセージ

'下記で取得した、ユーザーごとのフォルダーパスに指定のフォント「aaa.ttf」が存在すればインストールされていることになるのか？。
'フォントはレジストリ登録する必要があるから完全な判定にはなりえない？。
System.Environment.GetFolderPath(System.Environment.SpecialFolder.Fonts)

###該当のソースコード

'C#(調査したサイトからの引用。)
Type shellType = Type.GetTypeFromProgID("Shell.Application");
dynamic shellApp = Activator.CreateInstance(shellType);
dynamic folder = shellApp.NameSpace(System.Environment.SpecialFolder.Fonts);
folder.CopyHere(System.IO.Path.GetFullPath(@".\aaa.ttf"));

vb.net版(変換中。)
Dim shelltype As Type = Type.GetTypeFromProgID("Shell.Application")
Dim shellApp = Activator.CreateInstance(shelltype)
Dim folder = shellApp.Namespace 'Option Strict Onでは遅延バインディングエラー。

###試したこと
C#のサンプルより変換しているのですが、dynamic型との際に難儀しております。
Option Strict offにせず別の手法でプログラム側からインストールすることは可能でしょうか。
※vbsでのサンプルは多く見受けられましたが、採用する予定はございません。

###補足情報(言語/FW/ツール等のバージョンなど)
vb.net vb2015

Comments

[hihijiji]

そのやり方は権限とかレジストリとかでとても面倒なので、アプリケーションで使う外字ファイルをリソースに持ってアプリケーションの中だけで適用するのをお勧めします。

[yuki00079]

追加情報になるのですが、.netからExcelVbaを実行し帳票を出すシステムを作成しております。Excel側で適用したいFontファイルになりますのでリソースファイルは・・・。

Answer 1

For Each mily In FontFamily.Families
    Console.WriteLine(family.Name)
Next

foreach(var family in  FontFamily.Families) {
    Console.WriteLine( family.Name );
}

で、フォント名が以下のようにずらずら～っと出るんですが、これではだめ？
Agency FB
Algerian
Arial
Arial Black
Arial Narrow
Arial Rounded MT Bold
Arial Unicode MS
・
・
・

ダメならAPIのEnumFontFamiliesExを呼ぶとか？(すごくめんどそうなAPIですが)

取得ではなく、インストールであれば非公開APIですが以下のような手もあります。(外道)

'宣言
<DllImport("fontext.dll", CharSet:=CharSet.Auto)> _
Private Shared Function InstallFontFile(hwnd As IntPtr, path As String, flags As Integer) As Integer
End Function
'実行
InstallFontFile(IntPtr.Zero, ここにパスを入れる, 0)

なお、InstallFontFileにはファイルをコピーする機能は無いようです。(flagsに何か渡せばやってくれるかもしれませんが)
そのためInstallFontFileの第2引数に渡すパスは、Fontsフォルダにコピーしたファイルのパスを渡してください。