Процессы и winapi

bool IsProcessRun(TCHAR * pName)
{
  //поиск запущенных процессов
  HANDLE Hndl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  if(Hndl == INVALID_HANDLE_VALUE) return false;//если процессы не запущены то возвращаем ложь
  //свойства процессов
  PROCESSENTRY32 ProcessEntry;//структура содержащая свойства и атрибуты процесса
  ProcessEntry.dwSize = sizeof(ProcessEntry);//размер структуры//обязательная инициализация иначе первый процесс не найден
  //начальная точка процессов
  //HANDLE hl = Process32First(Hndl, &ProcessEntry);//если первый процесс найден то true и цикл начинается
   bool Loop = Process32First(Hndl, &ProcessEntry);//если первый процесс найден то true и цикл начинается
  while(Loop)
   {
    //сравнение имя процесса с необходимым
     if(wcscmp(ProcessEntry.szExeFile, pName) != 0)//сравнение по имени процесса//как только находим нужный процесс удаляем дескриптор и возвращаем true
       {
          Count++;
          ShowMessageFmt("%d",OPENARRAY(TVarRec,(Count)));
       }
       Loop = Process32Next(Hndl, &ProcessEntry);
     }
 
 
 
  return false;
}