How to get a list of all available (TTF-) Fonts with XeTeX?

Very neat that I can use any available Truetype font on my Windows machine with MikTeX and XeTeX.

%!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}

Is there a way to automatically generate a font test page for every available font? So that I do not have to type a test page for every available font by hand?

Actually, I do not even know how to get to the Long Font Name required for \setromanfont -- short of typing it from the screen:

• The Windows directory only lists the file names, obviously.
• Maybe this can be done in TeX itself, but I could manage it with a Python script or such like.
-
If you double click a font, Windows should preview it and show the full name (if I remember correctly; it has been a long time since I used Windows for anything but playing games :) ) –  Caramdir Mar 7 '11 at 20:15
possible duplicate of stackoverflow.com/questions/5109550 –  Philipp Mar 8 '11 at 16:27
Duplicate, yes. Sorry. I first set the bounty on stackoverflow, then after slow reaction found this Tex Board. I will remove the stackoverflow question after the bounty expires, to give everyone the change to earn their points. –  towi Mar 10 '11 at 8:27