Найти одинаковые процессы и записать в listbox

[Человек_Борща]

всем доброго времени суток!

Задачка у меня такого рода:
Пользователь запускает процесс, нужно преверять не запускает ли он уже запущенный процесс.

т.е. в системе запущено 4 эземпляра exe но с разными параметрами. Таким образом нудно получить коммандные строки и сравнить из с той что задал юзер запускаемой им копии.

Застрял на получении списка процессов:

Function GetProcesssdffgh(ExeFileName: String): string;
Var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
Begin
  Result := '';
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  While Integer(ContinueLoop) <> 0 Do
  Begin
    If ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile))
          = AnsiUpperCase(ExeFileName)) Or
        (AnsiUpperCase(FProcessEntry32.SzExeFile) = AnsiUpperCase(ExeFileName))
      ) Then
      Result := FProcessEntry32.SzExeFile + String(':') + IntToStr
        (FProcessEntry32.th32ProcessID);
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  End;
  CloseHandle(FSnapshotHandle);
End;

procedure TForm2.sButton1Click(Sender: TObject);
begin
  sListBox1.Items.Add(GetProcesssdffgh('hlds.exe'));
end;

В системе запущено 4 экземпляра hlds.exe , в листбокс поподает только 1 запись из 4х, почему?

[Пепел Феникса]

почему?

функция устроена так что попадает только последний процесс.

[Человек_Борща]

А что нужно изменить?

[Пепел Феникса]

procedure GetProcesssdffgh(ExeFileName: String;Strings:TStrings);
Var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
Begin
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  While ContinueLoop Do//чуть изменил, ибо не вижу смысла в данном приведении типов, мало ли что верните на место.
  Begin
    If ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile))
          = AnsiUpperCase(ExeFileName)) Or
        (AnsiUpperCase(FProcessEntry32.SzExeFile) = AnsiUpperCase(ExeFileName))
      ) Then
      Strings.Add(FProcessEntry32.SzExeFile + String(':') + IntToStr
        (FProcessEntry32.th32ProcessID));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  End;
  CloseHandle(FSnapshotHandle);
End;

procedure TForm2.sButton1Click(Sender: TObject);
begin
 GetProcesssdffgh('hlds.exe',sListBox1.Items);
end;

если что то я не проверял, не на чем.

[Человек_Борща]

Благодарен, спасибо! Ставлю +