Hasta donde sé, el icono que tiene un mp3 en el explorador de windows, depende del programa que tenga registrada esa extensión. Así si tienes Windows Media Player, aparece un altavoz, pero si instalas winamp y lo abres, seguidamente tendrá el icono que winamp le indique.
la función para sacar el icono asociado a un archivo determinado es: ExtractAssociatedFileIcon creo que hay otra más que termina en "Ex". De todas formas, mira la ayuda de delphi para esa funcion.
Código Delphi
[-]
var
lpicon:Word;
hicono:hicon;
icono:Ticon;
begin
hicono:=extractassociatedicon(handle,pchar('c:\autoexec.bat'),lpicon);
icono:=Ticon.Create;
icono.Handle:=hicono;
nododato.ImageIndex:=imglistencontrados.AddIcon(icono);
icono.Free;
Saludos