gistfile1.txt

void ListModules()
{
	PLIST_ENTRY InLoadOrderModuleList = &NtCurrentTeb()->ProcessEnvironmentBlock->Ldr->InLoadOrderModuleList;
	PLDR_DATA_TABLE_ENTRY cursor = CONTAINING_RECORD(InLoadOrderModuleList->Flink, LDR_DATA_TABLE_ENTRY, InLoadOrderLinks);

	while (InLoadOrderModuleList != &cursor->InLoadOrderLinks)
	{	
		DbgPrint("%p %wZ\r\n", cursor->DllBase, &cursor->BaseDllName);
		
		cursor = CONTAINING_RECORD(cursor->InLoadOrderLinks.Flink, LDR_DATA_TABLE_ENTRY, InLoadOrderLinks);	
	}
}