Cómo averiguar el PID de un proceso

[Ðαяισš]

Pid Correcto Con El GetProcessID
Gracias.
Problema Resuelto.

[[Al González]]

¡Hola!

Algo que puedes hacer es agregar un tercer parámetro, de tipo Integer, a la función GetProcessID, para indicarle de cuál proceso quieres el ID, de entre todos los que llevan el mismo nombre de programa ejecuatable. Haciendo que su ciclo While se repita hasta coincidir, no sólo con el nombre de archivo ejecutable, sino también con el número de proceso dado.

De tal forma que TForm1.Button1Click quedaría más o menos así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Obtenemos el ID del primer proceso
  if GetProcessID(ProgramName, PidId, 1) then
  begin
    PidHandle  :=  OpenProcess(PROCESS_ALL_ACCESS,False,PidId);
    poke1($401000, $90);
    closehandle(PidHandle);
  end;

  // Obtenemos el ID del segundo proceso
  if GetProcessID(ProgramName, PidId, 2) then
  begin
    PidHandle  :=  OpenProcess(PROCESS_ALL_ACCESS,False,PidId);
    poke1($401000, $90);
    closehandle(PidHandle);
  end;
end;

Espero te haya orientado satisfactoriamente.

Un abrazo en proceso.

Al González.

[Ðαяισš]

Gracias.
Problema Resuelto.

[[Al González]]

Yo sí me voy a dormir ya, pero la ventaja que tienes es que ya amaneció en el Viejo Continente (que de viejo no tiene nada). Y algún forista de aquel lado de las Islas Azores podría echarte una mano.

Básicamente tienes que añadir un parámetro más, de tipo Integer en la cabecera de la función

function GetProcessID(Const ExeFileName: string; var ProcessId: integer;
Const ProcessNo :Integer): boolean;

Y usarlo en el If que está en el interior del While para compararlo contra una variable "Count" (que también hay que agregar e inicializar en 0 dentro de la función), para llevar el conteo de todos los procesos que van coincidiendo con el nombre buscado hasta que Count sea igual a ProcessNo.

Me retiro a descansar. Mucho éxito con los deberes.

Al.

[Ðαяισš]

Gracias.
Problema Resuelto.

[DarkMan]

Lo fácil es preguntar y esperar a que te lo den ya hecho, lo que te ha comentado el amigo Al González no es una tarea complicada y yo creo que en 2 horas tendrías que ser capaz de sacarlo por ti mismo, o almenos no quedes esperando la solución porque puede tardar más del tiempo que tu necesitas.