Iconos del sistema en un TListView

[[Gunman]]

Hola! Ya escribí algo parecido a esto en otro post en los foros, pero no me quedó resuelto el problema, así que lo explico de nuevo...
Verán:
Estoy programando un cliente FTP donde hay dos ListView, en uno se mostraran las carpetas y archivos locales (esto he pensado hacerlo con el FindFirst y FindNext) y quiero que aparezcan los iconos predeterminados por windows en cada item dependiendo del tipo de archivo que sea este. Alguien me dijo que mirase el ejemplo VirtualListView y así lo he hecho, pero no consigo entender el programa de ejemplo (y no es cuestión de copiar y pegar)... Veo que hay un sinfín de funciones y procedimientos para hacer una tarea tan simple aparentemente y me pierdo entre tanta función, posiblemente porqué mis conceptos de las funciones que usan son desconocidas para mi, al igual que el concepto y aplicación de los punteros.
Agradeceria mucho si alguien sabe cómo diablos puedo llevar a cabo mi objetivo y si alguien conoce algun componente que simplifique las cosas. El TShellListView no me sirve, pues no se cómo programar un código para que se abran las carpetas (no encuentro ningún procedimiento para hacerlo).
Espero no haber extendido demasiado el hilo.
Estoy dispuesto a leer de todo, no es problema.

[[Lepe]]

Bueno, si no se trata de copiar y pegar, entonces esto no te hace falta

Código Delphi [-]
procedure TFrmBuscador.busca(InitialPath, Search: String);
var
  t:       TsearchRec; // t= todos archivos d= dentro directorios
  rest   : Integer;
  icono:      Ticon;
  //    niconos:Word;
  lpicono:    Word;
  elemento:   TListItem;
  strSearch: string;
  Index,realPos:Integer;
begin

  if length(search) < 1 then
    exit;
  // primero busco toda clase de archivos, puede que el nombre
  // de la carpeta no sea igual que lo que se busca

  rest := findfirst(InitialPath + '\*.*', faAnyFile, t); //      +faarchive
  while rest = 0 do
    begin
    if (t.name <> '.') and (t.name <> '..') then
      if (t.Attr >= fadirectory) and (t.Attr < faarchive) then
        busca(InitialPath + '\' + t.name, Search)
      else // se ha encontrado un archivo con posibles atributos
        begin
          strSearch := lowercase(Search);
          if Search[1] = '*' then
          begin
            strSearch := Copy(Search,2,255);
          end;
          Index := Pos(strSearch,LowerCase(t.Name));
          if (t.Attr <> fadirectory) and (t.name <> '.') and (t.name <> '..') and
              (
               ((Index > 0) and (Search[1]='*')) or
               ((Index = 1) and (Search[1]<>'*'))
               )then
            begin
            try
              encontrados.Add(t.name);
              icono := Ticon.create;
              try
                //              niconos := 1;
                lpicono      := 1;
                icono.Handle := ExtractAssociatedIcon(
                  handle, pchar(initialpath + '\' + t.name), lpicono);
                elemento := list.Items.Add;
                elemento.ImageIndex := Images.AddIcon(icono);
                Largeimages.AddIcon(icono);
                elemento.Caption := t.Name;
              finally
                icono.ReleaseHandle;
                FreeAndNil(icono);
                end;
            except // ya existe el archivo
                  //no lo incluimos en los resultados.
              end;
            label1.caption := inttostr(list.items.count) + ' elementos encontrados';
            label1.Refresh;
            end;
        end; // no es '.' o '..'
    rest := sysutils.FindNext(t);
    end; //while
  sysutils.FindClose(t);

end;

procedure TFrmBuscador.BorrarClick(Sender: TObject);
begin
  images.clear;
  largeimages.Clear;
  list.Items.Clear;
  label1.caption := '';
  Encontrados.Clear;
end;

List es un TlistView
Encontrados es un TStringList donde se guardan los archivos coincidentes con la búsqueda. tiene dupError en los duplicados.
Images es un Timagelist con tamaño de 16x16
largeImages es un Timagelist con tamaño de 32x32

Hay más cosas, pero son constantes y labels que puedes quitar.

Una posible llamada es:

Código Delphi [-]
  busca('c:\Documents and Settings\All Users\Menú Inicio\Programas\',
            '*expl');

con lo que aparecerá en el ListView:
- internet explorer
- explorador de archivos
- msn explorer
etc... con sus iconos asociados de windows.

No está optimizado y tiene algún error de concepto, pero soy muy vago y no me he puesto a arreglarlos.

Como estas viendo esto es el núcleo de un programa Buscador que uso desde hace 4 años, básicamente, pulsas la tecla F10 (hook de teclado para todo windows) y buscas el programa que quieras ejecutar; los resultados (5 o 6) aparecen en el ListView, en caso de que haya solo un resultado, hace un ShellExecute.

Como el programa guarda las búsquedas, con solo pulsar la tecla F10 y despues escribir en un combo "del" ya tengo el delphi abierto. Si escribo "Ner" ya tengo el nero abierto.
saludos

[[Lepe]]

Como ves hace búsquedas recursivas, cuidadin con llamarlo InitialPath := 'c:\'

saludos

[roman]

Empezado por Lepe

etc... con sus iconos asociados de windows.

Pero esto es demasiado para desplegar los iconos asociados. El sistema mantiene un ImageList con todos estos iconos que es el que usa para el explorador. Basta obtener el handle a este ImageList y asociarlo al ListView. Para cada archivo se usa ShGetFileInfo para obener el índice del icono que se necesita. Todo según explica delphi.com.ar en el hilo original de [Gunman]. Bastaba buscar en la ayuda acerca de ShGetFileInfo.

// Saludos

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