摘要：
1 HHOOK WINAPI SetWindowsHookEx(2 __in int idHook,//勾子类型3 __in HOOKPROC lpfn,//回调函数的地址4 __in HINSTANCE hMod,//一般为HInstance5 __in DWORD dwThreadId,//关联进程的句柄,如果0则关联所有正在运行的进程，全局勾子时为06);勾子类型为下面的值2.定义勾子的回调函数（hook procedure），回调函数CallWndProc callback function的定义如下An application-defined or library-defined c 阅读全文
摘要：
unit Unit5;2 3 interface4 5 uses6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;8 9 type10 TForm5 = class(TForm)11 Button1: TButton;12 Button2: TButton;13 procedure Button1Click(Sender: TObject... 阅读全文
摘要：
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; Memo1: TMemo; Button1: TButton; procedure BitBtn1Cl 阅读全文
摘要：
library dll名称;uses SysUtils, Windows, Messages, Classes;{$R *.res}var 变量名；const 常量名{函数体：}function/procedure 名称{按DLL的要求输出函数}exports SetHook name 'SetHook', DelHook name 'DelHook', PrintHook name 'PrintHook';beginend. 阅读全文
摘要：
一直以为Delphi中没有分割字符串的函数，以前曾经自己写过，也用过RegExpr来分割，今天无意中发现Delphi本身就有ExtractStrings，而且功能还不弱，分割的同时还可以去空字符串和去空白（可以自定义）．ExtractStrings Routine Fills a string list with substrings parsed from a delimited list. Unit Classes Separators 参数指定一组分割符，所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略（参看下面的例子）。WhiteSpace 参数指定每个子串开头被忽略的字符 阅读全文