[aslanbek1989]

Я так сделал, но TlHelp32 не потребовала.
Мне кажется что внутри цикла(в сравнении) есть что то лишнее? а так вообще работает, просто интересно.

Код:

function FindTask(ExeFileName:string):boolean;
  const
  PROCESS_TERMINATE=$0001;
  var
  Co:BOOL;
  FS:THandle;
  FP:TProcessEntry32;
  begin
    result:=false;
    FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    FP.dwSize:=Sizeof(FP);
    Co:=Process32First(FS,FP);
    while integer(Co) <> 0 do
      begin
        if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
            (UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
            Result:=true;
            Co:=Process32Next(FS,FP);
      end;
      CloseHandle(FS);
  end;

Admin: Пользуемся тегами, иначе последуют санкции!