2
  • Delphi XE 10.2.3

Нужно проверить наличие (или отсутствие) процесса. Например есть процесс Wireshark.exe и нужно при его наличии вырубать программу.

Просмотрел тонну страниц - там все для x86 битной системы, а мне нужна подобная функция на x64

2
  • Скрипт на вырубание программы не нужен
    – SlimRG
    12 мая 2018 в 14:25
  • Нужна boolean функция ProccessExists(S: String)
    – SlimRG
    12 мая 2018 в 14:27

1 ответ 1

2

Нашел решение.
И с 64 бит отлично работает TLHELP32

Вот код:

Function IsProcesssRun(processname: string): boolean;
var 
  Snapshot: Thandle;
  proc: TprocessEntry32;
begin
  result := false;

  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  if snapshot = INVALID_HANDLE_VALUE then 
    exit;

  proc.dwSize := sizeof(TprocessEntry32);
  if Process32First(snapshot, proc) then
  repeat
    if proc.szExeFile = processname then
    begin
      result := true;
      break;
    end;
  until not process32next(snapshot, proc);

  CloseHandle(snapshot);
end;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.