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.

[Ðαяισš]

Gracias.
Problema Resuelto.

Disculpas por la altaneria.

[[cHackAll]]

Empezado por Ðαяισš

...es si soy newbie.. como creen que voy a poder hacer ello? si a duras penas se que es un "IF" :S se que desean que uno aprenda pero si no se explican bien da casi lo mismo.. osea me dejan igual [nada en la mente]

es como si le preguntasen a un niño de 5 años hijo que es una ecuacion? como se hace? hasme una..

es practicamente lo mismo pero en mi caso es con el GetProcessID si no me explican bien no entiendo nada.. crees que se que es un while??? na.. no se
solo ando aprendiendo pero con la ayuda que me dan que me dicen "ponle un parametro" ¿¿¿¿¿¿¿????????? que se yo que es un parametro??? si a duras penas se hacer una calculadora con ayuda de uds mismos que me enseñaron.. Bah bueno no se si les parecio mal mi respuesta si es asi me disculpo.. hasta pronto.

Cálmate amiguito... si eres un newbie que haces intentando modificar un valor de otra aplicación en lugar de empezar con un "hello world" ?

ahh espera;

Empezado por Ðαяισš

Wwwwwow!!!...

Empezado por Ðαяισš

Wwwwwwwooooooowwwwww!!!!!!!!...

y finalmente;

Empezado por Ðαяισš

Wowowowo!!!...

"Ðαяισš" más que ser un newbie o un "Super Moderador" yo creo que eres un leecher, y en lugar de hacernos perder nuestro tiempo en tus hazañas de Script Kiddie en otros foros, deberías ser un poco menos altanero!

[Ðαяισš]

No Critiques Lo que los demas opinan "Sabiondo, Sabelotodo" pendejo es lo que eres..

PD: Disculpas si os ofendi.. ¬¬.

[[cHackAll]]

jajaja

Disculpe Ud. doctor!

[Ðαяισš]

.......

si no van a decir algo que sirva no escriban nada es mejor.

[[Al González]]

Hola inquieto y trasnochado compañero.

Lamento mucho que no hayas alcanzado a entregar tu tarea a tiempo. Tenía una etérea esperanza de que lograras el objetivo, acaso con ayuda adicional de otros foristas.

Me despierta curiosidad el por qué algún profesor le encargaría un trabajo de tal envergadura a alguien que no cuenta con el suficiente conocimiento y experiencia, o bien tiempo y habilidad, para afrontarlo, como parece ser el caso.

¿Cuál es esa universidad donde estudias y qué carrera y grado cursas?

Es inquietante pensar que es real todo lo que ilustra este hilo.

Saludos.

Al González.

[[egostar]]

Empezado por Al González

Hola inquieto y trasnochado compañero.

Lamento mucho que no hayas alcanzado a entregar tu tarea a tiempo. Tenía una etérea esperanza de que lograras el objetivo, acaso con ayuda adicional de otros foristas.

Me despierta curiosidad el por qué algún profesor le encargaría un trabajo de tal envergadura a alguien que no cuenta con el suficiente conocimiento y experiencia, o bien tiempo y habilidad, para afrontarlo, como parece ser el caso.

¿Cuál es esa universidad donde estudias y qué carrera y grado cursas?

Es inquietante pensar que es real todo lo que ilustra este hilo.

Saludos.

Al González.

A mi lo que mas me "intriga" es, que Universidad te pide entregar una tarea el 31 de Diciembre del 2008 a una hora específica del día, casi como si fuese uno de esas típicas Bombas Lógicas



Salud OS

[[cHackAll]]

A mi lo que me "intriga" es;

newbie = no saber hacer "tal cosa"
Lecher = persona que Hurta,Roba ciertas cosas para darse creditos de las mismas

y

sarcasmo = decir algo que "no es cierto", (pero que todos sabemos que en realidad si es cierto)

[Ðαяισš]

Gracias.
Problema Resuelto.

[[cHackAll]]

Empezado por Ðαяισš

...me ayudan a probarlo?...

[Ðαяισš]

Sarcasmo : Sarcasmo

[Ðαяισš]

Empezado por cHackAll

esto si me pone de mal humor.. :S:S si no van a decir nada para que escriben un comentario???


PD: porque han cambiado el nombre del Hilo???

[[Al González]]

Empezado por Ðαяισš

...PD: porque han cambiado el nombre del Hilo???

Tal vez por cojer.

[DarkMan]

Ðαяισš, si me permites un consejo, procura escribir con el menor número de faltas de ortografía y expresándote mejor. Piensa primero lo que vas a escribir y hazlo con una coherencia y cohesión. No solo te lo digo porque nos cuesta leer tus mensajes y ello dificulta que podamos darte una ayuda más eficaz, sino porque forma parte de la guía de estilo a la que ya te han remitido en varios hilos anteriores.