getword.~dp

屏幕取词的小例子 是Delphi下深入Windows核心编程 的一个经典例子 虽然简单 却是很实用

library Getword;
uses
  SysUtils,
  WinTypes,
  WinProcs,
  unit2 in 'UNIT2.PAS';
{更改函数入口，调用自定义TextOut、ExtTextOut}
exports TextHookCreate Index 1 Name 'TextHookCreate' resident;
{恢复函数入口}
exports TextHookFree Index 2 Name 'TextHookFree' resident;
{检查缓冲区的数据}
exports checkbuf Index 3 Name 'checkbuf' resident;

begin
  already:=false;
  exalready:=false;
end.