谭志宇 - 博客园

2008年12月16日

摘要： procedure TForm1.Button1Click(Sender: TObject); var P: Pointer; begin P := nil;{洗得干干净净一尘不染} with TButton.Create(Self) do begin asm mov P, eax end; TButton(P).Caption := 'All R... 阅读全文

posted @ 2008-12-16 11:34 谭志宇阅读(323) 评论(0) 推荐(0) 编辑

2008年12月15日

钩子学习心得

摘要：闲来无事，自己花了一天时间学习了下钩子在DELPHI中的使用,这只是一个局部变量的钩子， 1 首先定义钩子的基本变量 type THookDataOutputProc = procedure(PBuffer: PChar);stdcall; THookData = record Installed: Boolean; Hhk: HHook; CallBackProc: THookDataOut... 阅读全文

posted @ 2008-12-15 21:35 谭志宇阅读(535) 评论(0) 推荐(0) 编辑

公告