getword.dpr

delphi 读取屏幕的源码

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.