Ver Mensaje Individual
  #2  
Antiguo 01-01-2009
Avatar de DarkMan
DarkMan DarkMan is offline
Miembro
 
Registrado: jul 2006
Posts: 102
Reputación: 18
DarkMan Va por buen camino
Tu mismo te respondes, si lo que quieres es obtener el segundo proceso, una solución sería ignorar de alguna manera al primero que consiga.

Bueno, como te veo demasiado perdido respecto al tema, y parece ser que tienes miedo a investigar un poco, me he tomado la molestia de reformarte la función para que te permita obtener el PID que deseas:

Código Delphi [-]
Function GetProcessID(Const ExeFileName: string; var ProcessId: integer;
                      Const ProcessNo :Integer = 1): boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  Temp: Integer;
begin
  {Inicializamos result y temp}
  result := false;
  temp:=1;
  
  {Obtenemos cada proceso uno por uno}
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  
  {Si no es el final de la lista, comparamos el nombre del proceso con 'exefilename'}
  while integer(ContinueLoop) <> 0 do
  begin {1}
   if (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)
     or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0)  then
     begin {2}
       {Hemos encontrado un proceso con ese nombre, verificamos que es el que queremos con 'ProcessNo'}
       If Temp = ProcessNo then
       begin {3}
        ProcessId:= FProcessEntry32.th32ProcessID;
        result := true;
        break;
       end {3} else inc(Temp);
     end; {2}
   {Obtenemos el siguiente proceso}
   ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end; {1}
  CloseHandle(FSnapshotHandle);
end;

Un ejemplo de como usarlo:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var PID: Integer;
begin
 PID:= 0;
 If GetProcessID('svchost.exe', PID, 3) then
  ShowMessage(IntToStr(PID));
end;

En el tercer parámetro de GetProcessID indicas el número del proceso que quieres si tienen un mismo nombre de ejecutable, de forma que por defecto será 1; el 2 sería el segundo proceso que encontrase con un nombre igual, el 3, 4, 5... .

Investigar no hace daño.
Por cierto, tu post ha mejorado pero solo un poco tienes que practicar más.

Un saludo.

Edito: Feliz año a todos .
__________________
"La recompensa de una buena acción está en haberla hecho"

Última edición por DarkMan fecha: 01-01-2009 a las 03:48:37.
Responder Con Cita