Iconos del sistema en un TListView

[[Gunman]]

Bueno, yo no dije ke no me servia, mi objetivo era saber si alguien lo podia volver a explicar, estoy aprendiendo, no me pongo límites de "esto es demasiado difícil" pero bueno... Ya he encontrado una buena forma!!! Y Breve!
Aquí la pongo:

procedure TForm1.Button1Click(Sender: TObject);
   var
     FInfo: TSHFileInfo;
     Icon: TIcon;
     i: Integer;
   begin
     ImageList1.Handle := SHGetFileInfo('C:\',0,FInfo,SizeOf(TSHFileInfo),SHGFI_SMALLICON or SHGFI_SYSICONINDEX);
     Icon := TIcon.Create;
     ImageList1.GetIcon(FInfo.iIcon,Icon);
     for i := 0 to ImageList1.Count do
     begin
       ListView.Items.Add.Caption := IntToStr(i);
       ListView.Items.Item[i].ImageIndex := i;
     end;
 end;

Provando este código me di cuenta de que se crean 5 items siempre que encuentra el archivo solicitado en SHGetFileInfo, y el icono correspondiente a ese archivo está en el ítem nº 4... Así que ahora solo queda hacer un par de cosilla y ya está... pero esto no termina de solucionarme el problema, pues este código no me sirve para coger el icono de un ordenador remoto (como por ejemplo un servidor ftp). Es una lástima, pero bueno... Alguien sabe si se podria hacer algo para remediar esto?

[roman]

Empezado por [Gunman]

pero esto no termina de solucionarme el problema, pues este código no me sirve para coger el icono de un ordenador remoto (como por ejemplo un servidor ftp).

Pero ¿por qué te preocupa esto? Normalmente un cliente FTP sólo mostrará iconos genéricos. Por ejemplo, mostrará los archivos .exe con el icono genérico que la pc cliente tenga configurado para este tipo de archivos. El despliegue de un directorio del servidor se haría mucho más lento si tuviera que tomar el icono real del cada archivo. Además, ¿qué pasa si el servidor es una máquina con sistema unix? ¿Cómo le dices desde una aplicación Windows que te de el icono de un archivo unix? No digo que no pueda hacerse, no lo sé; pero no es lo que normalmente hará un cliente FTP.

// Saludos

[[Gunman]]

Si, es cierto, el cliente no deberia coger los iconos des de el servidor, ya que esto haria lento el programa... Pero lo que yo me refiero es que el SHGetFileInfo no determina el icono segun su extensión o por lo menos no del todo... Si tu le pones en SHGetFileInfo un nombre de archivo que no existe (por ejemplo: 'C:\noexiste.txt'), el SHGetFileInfo no devuelve el icono de los archivos .txt. Me explico?

[roman]

Empezado por [Gunman]

Me explico?

Sí, te explicas. ¿Por qué no lo dijiste desde el principio?

Se puede obtener el icono basándote sólo en la extensión. No estoy absolutamente seguro pero creo que debes agregar la bandera SHGFI_USEFILEATTRIBUTES en la llamada a ShGetFileInfo.

// Saludos

[[Gunman]]

Muchísimas gracias Roman, muchas, muchas gracias tienes toda la razón:

ImageList1.Handle := SHGetFileInfo('C:\noexiste.txt',0,FInfo,SizeOf(TSHFileInfo),
SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);

Ahora me devuelve el tipo de icono segun sea su extensión aunque el archivo no exista! Ahora solo falta hacerle una función para que me devuelva solo el icono nº 4, que es el que contiene el icono.
Muchas, muchas gracias!

[roman]

No sé de dónde sacas esto del cuarto icono. Bueno, más o menos lo intuyo pero no creo que sea fiable este método y hoy te puede funcionar pero mañana no, quizá en otra pc.

Yo te recomiendo primero que nada olvidarte de extraer el icono. Lo que estás haciendo es copiar el icono a tu propio ImageList, pero es innecesario mantener un ImageList siendo que el sistema ya lo hace. Luego de la llamada a ShGetFileInfo lo único que tienes que hacer es asignar a Item.ImageIndex el valor de ShFileInfo.iIcon.

Eso sí, no te olvides de asignar al ListView los ImageList del sistema tal y como te dijo Federico en el otro hilo.

// Saludos

[[Gunman]]

Pero que imagelist mantiene el sistema? No sé qual es?