Проверка запущен ли процесс

Если нужно проверить, запущен ли какой ни, будь исполняемый файл можно воспользоваться следующей функцией

function IsRunning (sName: string): boolean; // проверяет, запущен ли процесс sName

var

han: THandle;

ProcStruct: PROCESSENTRY32;

sID: string;

begin

Result := false;

han := CreateToolhelp32Snapshot (TH32CS_SNAPALL, 0);

if han = 0 then

exit;

ProcStruct.dwSize := sizeof (PROCESSENTRY32);

if Process32First (han, ProcStruct) then

begin

repeat

sID := ExtractFileName (ProcStruct.szExeFile);

if uppercase (copy (sId, 1, length (sName))) = uppercase (sName) then

begin

Result := true;

Break;

end;

until not Process32Next (han, ProcStruct);

end;

CloseHandle (han);

end;

 

Вызвать функцию можно так:

//если файл найдет то выполняем следующее

if IsRunning (‘имя исполняемого файла с расширением’)=true then