bool IsAppAlreadyRunning(const char* pExeName)
{
//------------------- если запущен исполняемый файл с именем pExeName функция возвращает true
//PROBLEMS & FIXES***************************************************************************
//									 требует psapi.dll
//*******************************************************************************************
	CString str(pExeName);
	char  exename[ 1025 ];//---------------------- вспомогательная, название exe файла без пути
//--------------------------------------------------- получим список идентификаторов процесса
	DWORD aProcesses[ 1025 ], cbNeeded, cProcesses;
	if(EnumProcesses(aProcesses, sizeof(aProcesses), &cbNeeded))
	{
		int		inst				=  0 ;
		char	szProcessName[ 1025 ] = "";
		CString	prc;
		HMODULE hMod;
		HANDLE  hProcess			= NULL;
		DWORD	dwSize				= sizeof(szProcessName) / sizeof(char);
		cProcesses = cbNeeded / sizeof(DWORD); //------------- кол-во возвращенных описателей
		for(UINT i =  0 ; i < cProcesses; i++)//---------------- перебираем хэндлы и сравниваем
		{
//------------------------------------------------------------------- получаем хэндл процесса
			hProcess = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, FALSE, aProcesses[i]);
			if(hProcess)//--------------------------------------------- получим имена модулей
			{
				if(EnumProcessModules(hProcess, &hMod, sizeof(hMod), &cbNeeded))
				{
					if(GetModuleBaseNameA(hProcess, hMod, szProcessName, dwSize))
					{//----------------------------------------------------------- сравниваем
						prc = szProcessName;
						if((str.Find(prc) ==  0 ) & (str.GetLength() == prc.GetLength())) 
						{
							CloseHandle(hProcess);
							return true;
						}
					}
				}
				CloseHandle(hProcess);
			}
		}
	}
	return false;
}