判断是否有指定的进程名

//判断是否有指定的进程名
bool __fastcall TfromUpdate::ProcessIsRun(AnsiString imgName)
{
PROCESSENTRY32 uProcess;
uProcess.dwSize=sizeof(PROCESSENTRY32);
HANDLE ProListHan;
int res;
bool result=false;

ProListHan = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

if(ProListHan)
{
res=Process32First(ProListHan,&uProcess);
while(res)
{
if(memcmp(uProcess.szExeFile,imgName.c_str(),8)==0)
{

result=true;
break;
}
res=Process32Next(ProListHan,&uProcess);
}
}
else
{
result=false;
}

return result;
}