Cambiar la Prioridad de un Proceso

[[kurono]]

hola amigos como estan e hecho una aplicacion de prueba la cual me cambia la prioridad del programa pero solo me funciona para la misma aplicacion y no para proceso externo a delphi me gustaria cambiar la prioridad de cualquier proceso el codigo que utilizo es este

Código Delphi [-]
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

quiero saber como puedo modificar este codigo para que funcione con cualquier proceso

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

Yo la única forma que se de hacerlo es utilizando WMI.
La clase Win32_Process es la que se utiliza para acceder a los procesos que se están ejecutando.

Esta clase posee un método SetPriority (link) para modificar la prioridad de los procesos.

Si no quieres hacerlo directamente puedes utilizar los componentes que hay en mi Web; La librería GLibWMI posee el componente para trabajar con los procesos y posee el método implmentado (Componente CProcessInfo). Creo que en los ejemplos que acompañan hay uno exactamente donde se usa.

Bastaría con hacer algo como esto:

Código Delphi [-]
procedure TFormMain.Button2Click(Sender: TObject);
var
  str:string;
  i:Integer;
begin
  // Acceder a la columna que me da al Handle del  proceso
  Str := sgProcess.Cells[3, sgProcess.Row];
  // Modificar la prioridad
  i := ProcessInfo1.SetPriority('Handle', Str, 128);
end;

Si no recuerdo mal, enla aplicación VProcess que usa esa librería y de la que puedes revisar el código fuente, también se utiliza.

[[kurono]]

ok lo revisare y hare algunas prueba luego te cuento