[carlosprotos]

Podria alguien ayudarme a convertir este codigo de C++ a delphi? He tratado de hacerlo por cuenta propia , pero no me fue bien , en esta pagina hay personas mas experimentadas que yo , ayuden por favor :'v

//----------------------------------------------------------------------------------------------------
MODULEINFO GetModuleInfo( char *szModule )
{
	MODULEINFO modinfo = {0};
	HMODULE hModule = GetModuleHandle(szModule);
	if(hModule == 0) 
		return modinfo;
	GetModuleInformation(GetCurrentProcess(), hModule, &modinfo, sizeof(MODULEINFO));
	return modinfo;
}

//-----------------------------------------------------------------------------------------------------
DWORD FindScan(char *module, char *pattern, char *mask)
{
	MODULEINFO mInfo = GetModuleInfo(module);

	DWORD base = (DWORD)mInfo.lpBaseOfDll;
	DWORD size =  (DWORD)mInfo.SizeOfImage;

	DWORD patternLength = (DWORD)strlen(mask);

	for(DWORD i = 0; i < size - patternLength; i++)
	{
		bool found = true;
		for(DWORD j = 0; j < patternLength; j++)
		{
			found &= mask[j] == '?' || pattern[j] == *(char*)(base + i + j);
		}
		if(found) 
		{
			return base + i;
		}
	}

	return NULL;
}