Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

19th
Окт

Поиск одинаковых процессов

Posted by micher under Delphi

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



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;