[Ozerich]

Function check(processname:string):boolean;
var snapWORD;
pe:TprocessEntry32;
begin
result:=false;
snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if snap <>INVALID_HANDLE_VALUE then begin
pe.dwSize:=sizeof(TPROCESSENTRY32);
if process32First(snap,pe) then
repeat
if pe.szExeFile=processname then begin
result:=true;
break;
end;
until not process32Next(snap,pe);
closehandle(snap);
end;
end;

Не забываем добавлять модуль TlHelp32

Admin: Бан на 5 дней за несоблюдение правил форума по части оформления кода.