资料说明: 1.http://blog.csdn.net/diligentcatrich/article/details/7077294 说明: 实例代码: procedure TForm1.btn1Click(Sender: TObject); var p1: Pointer; p2: Pointer; begin if TObject(btn1) = TObject(btn2) then ShowMessage('The same as') else ShowMessage('Dfferen…
class function TObject.MethodAddress(const Name: ShortString): Pointer;asm { -> EAX Pointer to class } { EDX Pointer to name } PUSH EBX PUSH ESI PUSH EDI XOR ECX,ECX …
一分钟加入google站内搜索代码| 一分钟加入google站内搜索代码|只有7行最精简.网上有很多 google 站内搜索代码,但是出于某些目的,很多都加入了多余的代码,从seo的角度来讲,是很不优化的,我这里给出一个最精简的代码,只有7行,让您很容在一分钟之内,为您的网站.博客.论坛加入"搜索本站"的功能.对于很多网民来讲这是非常好用的功能,如果您希望方便.快捷的建立自己的站内搜索,不妨试试" Google 指定域名搜索".这样,您不必花费太多时间,就可以建立结…