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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

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

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

Популярность: 0 [?]

Рубрика: Delphi, Новости · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!