iconos junto a nombres de procesos en timagelist

[aguml]

hola amigos, me he creado una aplicacion la cual me lista todos los procesos que están ejecutandose en mi pc en un listview. Eso va perfecto pero me gustaria mostrar los iconos de los procesos en la primera columna al lado izquierdo del nombre y creo que tengo que añadir un timagelist y asociarlo a smallimagelist pero no tengo ni idea de como obtener el icono del proceso. Para colocarlo creo que tengo que usar imageindex pero no se nada mas. ¿Alguien puede ayudarme?

[Neftali [Germán.Estévez]]

En mi web, tienes una aplicación que se llama VProcess, que en su día hice para probar algunas clases de la WMI.
Muestra los procesos que hay funcionando y las características de cada uno.
El código está disponible, así que puedes mirar cómo se obtiene el icono para cada proceso funcionando, a partir del path del ejecutable.

En mi caso utilizo algo así (por si no quieres descargar todo el fuente);

Código Delphi [-]
  //···············································································
  procedure GetFileIconAndDescription(AFileName:string; AIcon: TIcon);
  var
    FileInfo : SHFILEINFO;
  begin

    // Obtener el tipo
    SHGetFileInfo(PChar(AFileName),
                  FILE_ATTRIBUTE_NORMAL,
                  FileInfo,
                  SizeOf(FileInfo),
                  SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES
                  );
    // Obtener el icono y copiarlo en un ImageList
    SHGetFileInfo(PChar(AFileName),
                  FILE_ATTRIBUTE_NORMAL,
                  FileInfo,
                  SizeOf(FileInfo),
                  SHGFI_ICON or SHGFI_SMALLICON or
                  SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
                  );
    AIcon.Handle := FileInfo.hIcon;
  end;
  //···············································································

[[escafandra]]

Te puede interesar este hilo que estudia la estructura de los iconos, como conocer y cambiar los iconos de ejecutables en la sección de recursos de ejecutables y dlls.

También debes mirar la API ExtractAssociatedIcon.

Si quieres saber la asociación en el shell de un archivo con su icono, te interesa esto

Todo ello en C/C++


Saludos.

[Neftali [Germán.Estévez]]

Empezado por escafandra

Todo ello en C/C++

Perdón!!!
No me había fijado en el foro. Lo que te he pasado está en Delphi.
Aun así la llamada a la API tal vez te pueda ser de ayuda.

[[escafandra]]

Neftali Claro que sirve de ayuda, al fin y al cabo no hay tanta diferencia, sobre todo cuando se usa API de Windows.


Saludos.

[aguml]

El principal problema que tenia era obtener las rutas completas de cada proceso pero al final lo he conseguido hacer así:

Código PHP:

TIcon *Icon; //Para el icono del proceso

char strPath[MAX_PATH - 1];
memset(strPath,0,(MAX_PATH-1));

if(GetPathFromPID(processInfo.th32ProcessID,strPath))
{  //SI OBTENGO LA RUTA COMPLETA DEL PROCESO
    // Creo un TIcon temporal
    Icon = new TIcon;

    //INTENTO COLOCAR EL ICONO DE CADA PROCESO
    GetFileIconAndDescription(strPath,Icon);
    ListItemsProcesos->Item[ListItemsProcesos->Count-1]->ImageIndex = Form1->ImageList1->AddIcon(Icon);

    delete Icon;
} 


Y las funciones:

Código PHP:

// Obtiene el Path de un ID de Proceso (PID) Activo en Memoria.
bool GetPathFromPID(int PID, char *FullPath)
{
   HANDLE hProcess;
   char Path[MAX_PATH - 1];
   bool retval = false;
   HINSTANCE hLib;

   hProcess = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, false, PID);
   if( hProcess != 0 ){
      try{
         hLib = LoadLibrary("psapi.dll");
         if(hLib!=0)
         {
            pGetModuleFileNameEx = (bool (__stdcall *) (void*, void*, char*, unsigned long)) GetProcAddress(hLib,"GetModuleFileNameExA");
            if(pGetModuleFileNameEx != NULL)
            {
               if( pGetModuleFileNameEx(hProcess, 0, Path, sizeof(Path)) != 0 ){
                  strcpy(FullPath,Path);
                  retval = true;
               }
            }
         }
      }catch(...){
      }
      CloseHandle(hProcess);
   }else{
      //raise Exception.Create('El Programa No Se Encuentra Activo en Memoria');
   }
   return retval;
}
//---------------------------------------------------------------------------

void GetFileIconAndDescription(AnsiString AFileName, TIcon *AIcon)
{
    SHFILEINFO FileInfo;

    // Obtener el tipo
    SHGetFileInfo(AFileName.c_str(),
                  FILE_ATTRIBUTE_NORMAL,
                  &FileInfo,
                  sizeof(FileInfo),
                  SHGFI_TYPENAME | SHGFI_USEFILEATTRIBUTES
                  );
    // Obtener el icono y copiarlo en un ImageList
    SHGetFileInfo(AFileName.c_str(),
                  FILE_ATTRIBUTE_NORMAL,
                  &FileInfo,
                  sizeof(FileInfo),
                  SHGFI_ICON | SHGFI_SMALLICON |
                  SHGFI_SYSICONINDEX | SHGFI_USEFILEATTRIBUTES
                  );
    AIcon->Handle = FileInfo.hIcon;
} 


Neftali lo del icono lo tenia igual que tu pero solo que yo no lo tenia en una funcion y despues de ver la tuya lo he puesto igual. Gracias.
¿Alguien me dice si hay algo que se me pasa? Funcionar funciona pero no se si hago algo que no deba.
El dolor de cabeza mas grande fue obtener la ruta como ya dije ya que para que pueda hacerlo necesitaba psapi.lib y no pude encontrarlo pero si pude encontrar la dll y usar la funcion dinamicamente jejeje.
Muchas gracias amigos.