自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(12)
  • 收藏
  • 关注

原创 Delphi也能解释执行吗?(下)

再加上已经注册了TApplication对象的各种属性如Title方法,那么本文系列第一篇中给Application.Title赋值的脚本,便能跑得通、便能正确地给集成了脚本引擎的EXE程序里的Application全局变量的Title属性赋值了。全局变量和属性、事件等则更有不同,它们在编译期注册的语法看上去还基本正常,比如TSizeConstraints类的MaxHeight属性也这样写:​​​​​​​。这个TObject_C是我们新声明的类,它有个ClassName_P方法:​​​​​​​。

2025-03-24 10:14:34 714

原创 Delphi也能解释执行吗?(中)

按互联网的黑话来说,“闭环”完成了,下面该打“组合拳”了。

2025-03-23 18:02:04 855

原创 Delphi也能解释执行吗?(上)

考察一个脚本引擎是否好用,主要需看以下各个方面。

2025-03-22 14:34:21 845

原创 你知道吗?Delphi中竟然有这四个古怪数字!

Delphi 7和Delphi 12之间,并不是只差5个版本,而是差了整整22个版本!

2025-03-14 15:05:40 300

原创 如何在Delphi7下手动支持64位无符号整数运算

“Delphi 5、6、7没有UInt64,简直是不可容忍的!”——沃·兹基·硕德

2025-03-08 07:39:09 567

原创 CnPack进入EMB的官方宣传视频

去年4月10日前后,Embarcadero在油管上发布关于RAD Studio的宣传视频,专家Ian Barker在片尾提了几个 IDE Add-ins,其中有我们CnPack IDE 专家包(52分10秒左右第一个出场)

2025-03-06 15:19:57 118

原创 你的Delphi组件支持64位吗?

设计期32位,运行期则可32可64也可其他平台,这是Delphi目前的特性。

2025-03-06 15:11:13 1091

原创 Delphi下如何实现32位和64位都能用的Inline Hook

Hook在计算机术语中无论是直译为“钩子”,还是意译为“挂接”,均指的是一种对于现有机制的拦截。这个拦截实现后,会在运行期拦住现有某个流程,拐进自己的流程,自己做完特定事儿后,再按需要决定是否走回原流程。

2025-02-26 12:38:53 916

原创 使用反射技术在Android平台上实现本进程内Activity切换时的拦截

有需求需要统计本应用内各Activity切换的次数与频度等,由于zhi

2014-05-26 23:08:09 2226

原创 Android下通过root实现对system_server中binder的ioctl调用拦截

Android下通过root实现对system_server中binder的ioctl调用拦截作者:passion2012-10-17关键字:Android, Hook, API, Binder, 注入, 拦截(转载请注明出处)〇、引言    Linux下的远程注入与HOOK网上已有不少文章与代码实现,而对于Android平台,注入有不少,但HOOK却不多。经过了两

2012-10-18 13:44:13 4624 1

原创 补充一下后来想出的半截子绕过前一篇提到的问题的办法

============ 补充一下后来想出的半截子绕过前一篇提到的问题的办法:这个问题在TCustomForm的CreateParams被调用时,如果当前Application的ActiveForm的Handle存在,并且这个Handle拿来GetWindowLong一下其GWL_EXSTYLE时具有WS_EX_TOOLWINDOW风格的话,即会产生这个死循环。在自己的窗体创建并显示的情况下,如要

2008-11-07 22:45:00 821

原创 发现 Delphi 2009 VCL 源码中一处可能导致死循环的 Bug

Delphi 2009/2007 的 source/Win32/vcl/Forms.pas 中,GetNonToolWindowPopupParent 函数实现部分:function GetNonToolWindowPopupParent(WndParent: HWND): HWND;begin  Result := GetParent(WndParent);  while (Result   

2008-11-06 19:23:00 795

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除