Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar la Prioridad de un Proceso (https://www.clubdelphi.com/foros/showthread.php?t=72883)

kurono 17-03-2011 05:04:01

Cambiar la Prioridad de un Proceso
 
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] 17-03-2011 10:22:01

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 17-03-2011 19:13:12

ok lo revisare y hare algunas prueba luego te cuento


La franja horaria es GMT +2. Ahora son las 10:01:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi