Lista de procesos... pero 64 bits?

[Firewind]

Hola.

Me he bajado el fichero : WindowsXP-KB933062-x86-ESN.exe , que contiene el el fichero : WGAPluginInstall.exe , lo he instalado en el portatil, reinicio y sigue sin funcionar.
El error que muestra es : Se ha intentando hacer referencia a un simbolo que no existe.
El la linea de comandos pongo : wmic process y no me muestra nada en el portatil, en el pc si. Pero lo raro es que no me da error de comando desconocido, simplemente me sale de nuevo el promt.
Alguna idea de algo más que pueda instalar?

Un saludo.

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