getword.dpr

来自「Delphi下深入Windows核心编程」· DPR 代码 · 共 18 行

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[0]:=false;
  already[1]:=false;
end.