Obtenir le Handle et le PID d'un Process par son nom

Commenter

Contenu du snippet 

  
// uses Tlhelp32; 
 
function GetProcessIDandHDL(const ProcessName: string; var ProcessID, 
  ProcessHandle: Cardinal): boolean; 
var 
  ProcessEntry32: TProcessEntry32; 
  ShotHdl: THandle; 
begin 
  Result := False; 
  ProcessEntry32.dwSize := SizeOf(ProcessEntry32); 
  ShotHdl := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  try 
    if ShotHdl = -1 then 
      Exit; 
    if Process32First(ShotHdl, ProcessEntry32) then 
    begin 
      while Process32Next(ShotHdl, ProcessEntry32) do 
      begin 
        if AnsiSameText(ProcessEntry32.szExeFile, ProcessName) then 
        begin 
          ProcessID := ProcessEntry32.th32ProcessID; 
          ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID); 
          if ProcessHandle <> 0 then 
            Result := true; 
          Break; 
        end; 
      end; 
    end; 
  finally CloseHandle(ShotHdl); 
  end; 
end; 
 
//Exemple d'utilisation: 
 
var 
  ProcessHDL: THandle; 
  ProcessID: Cardinal; 
begin 
  if GetProcessIDandHDL('UnProcessus', ProcessID, ProcessHDL) then 
  begin 
    try 
      //... Utilisation de ProcessHDL et/ou de ProcessID ... 
    finally CloseHandle(ProcessHDL); 
    end; 
  end;

Compatibilité : Delphi 5

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Caribensila)