http://www.eggheadcafe.com/microsoft/VBScript/36373752/getting-available-fonts.aspx
Windows7だといけるらしい。XPでやってみたが当然のごとくできなかったw。XPのエクスプローラはどうやってフォント出してるんだろうなぁ。
前困ってたメイリオ->Meiryoはgdiplusとかだと
Gdiplus::GdiplusStartupInput gdiSI; ULONG_PTR gdiToken; wchar_t fname[128]; Gdiplus::GdiplusStartup(&gdiToken, &gdiSI, NULL); Gdiplus::FontFamily *fm = new Gdiplus::FontFamily(L"メイリオ"); fm->GetFamilyName(fname,1033);
とするとmeiryoがとれる。フォントパスも取れないのかな。この辺要調査。でもgdiplusって今のクロスビルド用の環境に入ってないよな・・・