引言： unit MLDE32Unit;
//Micro Length Disassembler Engine
interface
//作者忘记了，不好意思。
摘要：uses ..., typinfo;
function tform1.isapropexist(ainst: tobject; const propname: string): boolean;var propinfo: ppropinfo;begin result := false; propinfo := getpropinfo(ainst, propname); if propinfo &......
摘要：来源：delphi园地
不知道大家在使用qq时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。getcursorpos()是一个可以获得鼠标指针在屏幕中的坐标的api函数，利用它与findvclwindow()的结合就可以轻易地获得鼠标指针下的vcl可视组件，但当一个窗体中不只一个vcl可视组件，例如可能还有tpanel、t......
防止全局hook入侵Delphi版，2000以上系统适用（part3）
unit mlde32unit;
//micro length disassembler engine
interface
//作者忘记了,不好意思.好像出自29a-7....
下一页 摘要： [mental studio]猛禽[blog]
去年我花了很多时间尝试用delphi进行基于xml的web应用开发。起初的设想是很美好的，但结果做出来的东西很简陋。一部分原因就在于xml到object之间的数据绑定实现太麻烦（另一部分是因为对xslt不熟，学习它花了很多时间）。
之前我一直是用delphi提供的xml data binding来做的，基本做法是：先用工具（如xmlspy......
