delphi中可以调用mfc写的dll么？

没有什么代码就是一个对话筐谈出的dll：
void __stdcall ShowDialog()
{
HINSTANCE hOldResHandle=AfxGetResourceHandle();
AfxSetResourceHandle(GetModuleHandle("mfcdll.dll")); CDlgTest dlg;
dlg.DoModal(); AfxSetResourceHandle(hOldResHandle);
}