Pues usemos la versión Unicode para el builder xe (y para bcb6)
:
Código:
bool IsRuningW(WCHAR* FileName)
{
PROCESSENTRY32W Proceso;
HANDLE ProcessHandle;
bool Result = false;
Proceso.dwSize = sizeof(PROCESSENTRY32W);
ProcessHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if(Process32FirstW(ProcessHandle, &Proceso)){
do{
if(!_wcsicmp(Proceso.szExeFile, FileName)){
Result = true;
break;
}
}while(Process32NextW(ProcessHandle, &Proceso));
}
CloseHandle(ProcessHandle);
return Result;
}
Saludos.