- Delphi XE 10.2.3
Нужно проверить наличие (или отсутствие) процесса. Например есть процесс Wireshark.exe и нужно при его наличии вырубать программу.
Просмотрел тонну страниц - там все для x86 битной системы, а мне нужна подобная функция на x64
Stack Overflow на русском — это сайт вопросов и ответов для программистов. Присоединяйтесь! Регистрация займёт не больше минуты.
Присоединиться к сообществуНужно проверить наличие (или отсутствие) процесса. Например есть процесс Wireshark.exe и нужно при его наличии вырубать программу.
Просмотрел тонну страниц - там все для x86 битной системы, а мне нужна подобная функция на x64
Нашел решение.
И с 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;