呼び出し元プロセスと同じ名前で作成されたサブプロセスのPIDを取得するにはどうすればよいですか？

Question

私は、この2番目のインスタンスが呼び出しプロセスの名前が同じであるプロセスの2番目のインスタンスのpidを取得したいと思います。これはどうですか？

例：

古典的な例は、Google Chromeのである（同じ名前 "chrome.exe" との複数のインスタンスは、以下を参照します）。

私は、次のコードを使用しているが、私は唯一のプロセスを呼び出すのPID取得されています

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

は、反復を終了breakを削除します。そうすれば、すべての一致するプロセスが見つかります。明らかに、単一のIDではなくプロセスIDのリストを返す必要がありますが、その方法を知っていると思います。