Lista de procesos... pero 64 bits?

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