如何使用XeTeX获取所有可用（TTF-）字体的列表？

%!TEX TS-program = xelatex
%!TEX encoding = UTF-8 Unicode
documentclass[]{article}
usepackage{xltxtra,fontspec,xunicode}
defaultfontfeatures{Scale=MatchLowercase}
title{Fonttest}   
begin{document} 
  section{Section Title} {
    setromanfont{Palatino Linotype}
      The quick brown fox jumps over the lazy dog.
  }
  section{Section Title} {
    setromanfont{ProggyCleanTTSZBP}
      The quick brown fox jumps over the lazy dog.
  }
end{document}

setromanfont