Lista de procesos... pero 64 bits?

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

En esta web tienes información de cómo instalar y reparar WMI en los diferentes sistemas Windows.
Ahí también hacen referencia a "The WMI Diagnosis Utility" de Microsoft (link)

Prueba a ve y dinos cual es el resultado.

[[escafandra]]

He tenido oportunidad de probar esto en un Windows 7 64 bits y funciona. Lista las aplicaciones de 32 y 64 bits.

Procedure TFTask.ProcList(Lista: TlistBox);
begin
   Lista.Clear;
   FTask.FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
   FTask.FProcessEntry32.dwSize:=Sizeof(FTask.FProcessEntry32);
   if Process32First(FTask.FSnapshotHandle,FTask.FProcessEntry32) then
   begin
     repeat
          Lista.Items.Add(FTask.FProcessEntry32.szExeFile);
     until integer(Process32Next(FTask.FSnapshotHandle,FTask.FProcessEntry32))=0;
   end;
   CloseHandle(FTask.FSnapshotHandle);
end;

Saludos.

[[escafandra]]

Perdón, ese código pertenece a una clase y aislado pierde sentido. Pongo el código aislado e independiente. Devuelve el listado en un TStrings con lo que se podrá usar un TMemo, TListBox, o cualquier objeto que tenga un TStringList.

Lo he probado en Windows XP 32 bits y Windows 7 64 bits pero no en Vista.

Se que es equivalente a CreateWin9xProcessList. Quizás el proceso global de listado sólo deba llamar a CreateWin9xProcessList y éste procedimiento debería perder el -Win9x- de su nombre, para evitar confusiones.

Código Delphi [-]
procedure ProcList(Lista: TStrings);
var
   FSnapshotHandle: THandle;
   FProcessEntry32: TProcessEntry32;
begin
   Lista.Clear;
   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
   if FSnapshotHandle <> THandle(-1) then
   begin
     if Process32First(FSnapshotHandle, FProcessEntry32) then
     begin
       repeat
          Lista.Add(FProcessEntry32.szExeFile);
       until not Process32Next(FSnapshotHandle, FProcessEntry32);
     end;
     CloseHandle(FSnapshotHandle);
   end;
end;

Saludos.