这个语句如何转化(100分)

这是vc的写法：<br> &nbsp;typedef int (*OrgIsLogin)(DWORD ptrIQQCore);<br>int PokeIsLogin(DWORD ptrIQQCore)<br>{<br> global_ptrIQQCore = ptrIQQCore;<br> return ((OrgIsLogin)(PROC)OrgIsLoginProc)(ptrIQQCore);<br>} <br><br>出处在http://www.csksoft.net/blog/catalog.asp?cate=5 <br><br>这个语句如何转化成delphi的代码?

VC不会。。。。可怜。

type<br> &nbsp;OrgIsLogin=function (ptrIQQCoreWORD):Integer; //声明函数类型<br>function PokeIsLogin(ptrIQQCoreWORD):Integer;<br>begin<br> &nbsp;global_ptrIQQCore:=ptrIQQCore;<br> &nbsp;Result:=OrgIsLogin(OrgIsLoginProc)(ptrIQQCore); //类型强制转换并调用函数<br>end;