Pid Correcto Con El GetProcessID

[Ðαяισš]

Hola.. ya me habran visto con el mismo tema.. pero puesto a varios inconvenientes.. tuve que crear otro hilo "Expresandome Mejor"

Esta ves quiero resolver este problema, aunque no sea algo urgente y ahora no es para la universidad... deseo ver mi proyecto andando y sirviendo

Aver mi proyecto ya varios saben de que trata.. pero solo tengo un error, es al elegir el proceso a editar en este caso "Tester.exe"

yo elijo los procesos con este code "GetProcessID"

Código Delphi [-]
function GetProcessID(Const ExeFileName: string; var ProcessId: integer;
Const ProcessNo :Integer): boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := false;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while integer(ContinueLoop) <> 0 do begin
  if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)
     or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0)  then begin
     ProcessId:= FProcessEntry32.th32ProcessID;
     result := true;
     break;
  end;
  ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

ajam ... esa funcion "GetProcessID" solo elige un proceso.. por lo cual el

WriteProcessMemory editara solo el primer proceso de los dos procesos que tiene el "Tester.exe"

el problema ocurre alli.. porque tengo que editar el PID correcto (el Tester.exe correcto)

porque Obviamente hay 2 procesos de igual nombre

entonces.. como haria para hacer que este codigo el "GetProcessID" elija el PID correcto? o almenos edite el 2do proceso que es el que contiene lo que deseo editar.

Ojala me haya expresado bien, y me halla dado a entender.

Bueno esperando vuestra ayuda me despido.

Gracias por todo.

Saludos .