Function GetProcessName

source/script2.cpp:17490–17544

DWORD GetProcessName(DWORD aProcessID, LPTSTR aBuf, DWORD aBufSize, bool aGetNameOnly)
{
	*aBuf = '\0'; // Set default.
	HANDLE hproc;
	// Windows XP/2003 would require PROCESS_QUERY_INFORMATION, but those OSes are not supported.
	if (  !(hproc = OpenProcess(PROCESS_QUERY_LIMITED_INFORMATION, FALSE, aProcessID))  )
		return 0;

	// Benchmarks showed that attempting GetModuleBaseName/GetModuleFileNameEx
	// first did not help performance.  Also, QueryFullProcessImageName appeared
	// to be slower than the following.
	DWORD buf_length = GetProcessImageFileName(hproc, aBuf, aBufSize);
	if (buf_length)
	{
		LPTSTR cp;
		if (aGetNameOnly)
		{
			// Convert full path to just name.
			cp = _tcsrchr(aBuf, '\\');
			if (cp)
				tmemmove(aBuf, cp + 1, _tcslen(cp)); // Includes the null terminator.
		}
		else
		{
			// Convert device path to logical path.
			TCHAR device_path[MAX_PATH];
			TCHAR letter[3];
			letter[1] = ':';
			letter[2] = '\0';
			// For simplicity and because GetLogicalDriveStrings does not exist on Win2k, it is not used.
			for (*letter = 'A'; *letter <= 'Z'; ++(*letter))
			{
				DWORD device_path_length = QueryDosDevice(letter, device_path, _countof(device_path));
				if (device_path_length > 2) // Includes two null terminators.
				{
					device_path_length -= 2;
					if (!_tcsncmp(device_path, aBuf, device_path_length)
						&& aBuf[device_path_length] == '\\') // Relies on short-circuit evaluation.
					{
						// Copy drive letter:
						aBuf[0] = letter[0];
						aBuf[1] = letter[1];
						// Contract path to remove remainder of device name.
						tmemmove(aBuf + 2, aBuf + device_path_length, buf_length - device_path_length + 1);
						buf_length -= device_path_length - 2;
						break;
					}
				}
			}
		}
	}

	CloseHandle(hproc);
	return buf_length;
}

__int64 pow_ll(__int64 base, __int64 exp)
{