Poner un icono en un TListView según el tipo de archivo

[delphi.com.ar]

Tienes que asignarle como lista de imágenes, las imágenes del buffer del sistema

Código Delphi [-]
  ilHandle := SHGetFileInfo('C:\', 0, shFileInfo, SizeOf(shFileInfo),
                            SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

  SendMessage(tvFileSystem.Handle, TVM_SETIMAGELIST, TVSIL_NORMAL, ilHandle);
  SendMessage(lvFileSystem.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ilHandle);

Luego cada el índice de cada ícono tienes que averiguarlo con la función SHGetFileInfo.

Te recomiendo ver el código de los ShellCtrls que trae de ejemplo Delphi, o un ejemplo llamado "Virtual Listview"

Saludos!