Comment obtenir pid d'un sous-processus créé avec le même nom de processus appelant?

Question

Je veux obtenir le pid de la deuxième instance d'un processus où cette seconde instance a le même nom de processus appelant. Comment ça?

Par exemple:

un exemple classique est Google Chrome (plusieurs instances avec le même nom "chrome.exe") voir ci-dessous.

J'ai utilisé ce code suivant, mais j'obtient pid seulement processus appelant:

Function ProcessIDFromAppname32(appname: String): DWORD; 
    Var 
    snapshot: THandle; 
    processEntry : TProcessEntry32; 
    Begin 
    Result := 0; 
    appName := UpperCase(appname); 
    snapshot := CreateToolhelp32Snapshot(
        TH32CS_SNAPPROCESS, 
        0); 
    If snapshot <> 0 Then 
    try 
     processEntry.dwSize := Sizeof(processEntry); 
     If Process32First(snapshot, processEntry) Then 
     Repeat 
     If Pos(appname, 
       UpperCase(ExtractFilename(
          StrPas(processEntry.szExeFile)))) > 0 
     Then Begin 
      Result:= processEntry.th32ProcessID; 
      Break; 
     End; 
     Until not Process32Next(snapshot, processEntry); 
    finally 
     CloseHandle(snapshot); 
    End; 
    End; 

Answer 1

Retirez le break qui met fin à l'itération. De cette façon, vous trouverez tous les processus correspondants. Évidemment, vous devrez retourner une liste d'ID de processus au lieu d'une seule, mais je suppose que vous savez comment faire cela.