UWSC >> Autoitに変換 : インストールされているフォントを取得

UWSCサンプルコード　少し修正

Windowsのフォント何がインストールされているのか一覧取得します。

DIM Shell = CREATEOLEOBJ("Shell.Application")
CONST ssfFONTS = 20 //windows特殊フォルダ定数
DIM Folder = Shell.NameSpace(ssfFonts)
DIM FolderItems = Folder.Items
dim sList = ""

FOR n = 0 TO FolderItems.Count - 1
	sList = sList + n + "<#TAB>" + FolderItems.Item(n).Name + "<#CR>"
NEXT
SENDSTR(0,sList)

せっかく取得したデータすぐに消えてしまうので、クリップボードにセットしどこかテキストに貼り付けられるようにしました。

Local $Shell = ObjCreate("Shell.Application")
CONST $ssfFONTS = 20 ;//windows特殊フォルダ定数
Local $Folder = $Shell.NameSpace($ssfFonts)
Local $FolderItems = $Folder.Items
Local $sList = ""

FOR $n = 0 TO $FolderItems.Count - 1
	$sList = $sList & $n & @TAB & $FolderItems.Item($n).Name & @CRLF
NEXT
ClipPut($sList)

ｗindowsの特殊ホルダの名前一覧：