Iconos del sistema en un TListView

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

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