Dateisymbole ohne *.exe

[silentAMD]

Hi,
ich möchte in einer listview die shell-symbole auslesen AUSSER die "speziellen" und dateispezifischen icons von exe-dateien.
ich möchte das ganze machen OHNE sowas:

if not ExtractFileExt(rec.name) = '.exe' then ... wie in den zip-archiven von windows xp (da wird ja auch nicht für jede exe-datei im archiv das symbol ausgelesen.)


PLEASE HELP!!!!!!!!!!!!!!!

mfg