Iconos del sistema en un TListView

[[Lepe]]

Pues me parece bien que se repitan hilos, pero que muy bien .

En mi defensa, que me toca, he de decir que despues de cada búsqueda se libera los iconos, y puesto que los resultados deben ser como máximo 10 o 12 por búsqueda, tampoco resultará tan costoso, digo yo.

Aunque eso si, se agradece enormemente la información prestada.

saludos

[roman]

Empezado por Lepe

Pues me parece bien que se repitan hilos, pero que muy bien .

Entiendo tu sentir. Éste es un claro ejemplo de lo que sucede cuando alguien decide abrir otro hilo en lugar de continuar con el original.

Tip general para el uso de los foros:

No dejar de leer los mensajes de delphi.com.ar.

// Saludos

[[Lepe]]

Empezado por roman

No dejar de leer los mensajes de delphi.com.ar.

Si leer los leo... la pena es que no los entiendo .

Lo más curioso del tema es que, teniendo la mejor respuesta posible y la disposición de delphi.com.ar a ayudarle, no ha demostrado que lo ha intentado y que quiere aprenderlo. Directamente abre otro hilo .

Empezado por Gunman

Veo que hay un sinfín de funciones y procedimientos para hacer una tarea tan simple aparentemente y me pierdo entre tanta función

¿Tarea simple adivinar los programas que hay instalados en cada ordenador, y las asociaciones de archivos?
No estoy de acuerdo si quieres usar un TListView. Mas bien usa el TshellListView.

Empezado por Gunman

El TShellListView no me sirve, pues no se cómo programar un código para que se abran las carpetas

Por la misma regla de tres, como no conoces ExtractAssociateIcon, ni sabes como funciona, tampoco te sirve .

Quizás Gunman esté haciendo afirmaciones erróneas, en lugar de hacer la pregunta correcta. Tip del momento: Existe varios mensajes sobre el ShellListView en los foros.

[[Gunman]]

Quzás hize mal en publicar un foro, pero no me quedó muy clara la explicación de delphi.com.ar, ya sé que me contestó y se lo agradezco mucíssimo, solo habria un nuevo hilo para saber si alguien más sabia otra forma de hacer esta tarea, que como he dicho PARECE senzilla, pero por lo que veo, no lo es tanto...
De todas formas, agradezco las "criticas" (o consejos) y la próxima vez os haré caso y primero me rastrearé toda la ayuda de Delphi (que por cierto, no conoceis alguien que la haya traducido al español?)
Muchas gracias de nuevo, ya investigo por mi cuenta... "SHGetFileInfo" y "ExtractAssociateIcon", de acuerdo...

[[Lepe]]

Empezado por [Gunman]

Muchas gracias de nuevo, ya investigo por mi cuenta... "SHGetFileInfo" y "ExtractAssociateIcon", de acuerdo...

Aclaro: Si tienes dudas puntuales con ellos puedes preguntar sin problema alguno, no hay ningún tipo de problema.

Simplemente lo dije como analógia a la actitud de: "no me sirve, porque no lo entiendo", por favor, no lo tomes a mal. De hecho, si despues de trabajarlo no lo entiendes, puedes postear un nuevo mensaje, (ahora si es un nuevo mensaje por que se trata de una pregunta distinta).

saludos y suerte en tu proyecto.

[[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