ushare.pas

hook简单应付用,希望可以给大家一些帮助. 谢谢大家,我要下载一个东西,所以传一个源码

unit UShare;

interface

uses Windows, Messages;

const
  cMapFileName = 'HookSG_SharedData';

const
  CM_MSGWNDCREATED = WM_USER + 1000;
  CM_QUERYROW      = WM_USER + 1001;
  CM_QUERYCOL      = WM_USER + 1002;
  CM_HOOKCELL      = WM_USER + 1003;

type
  PShareData = ^TShareData;
  TShareData = record
    hkMsg: HHook;
    HostPID: DWORD;
    HostWnd: HWND;
    DestWnd: HWND;
    MsgWnd: HWND;
    Text: array[0..1024] of Char;
  end;

var
  hMapFile: THandle;
  P: PShareData;

implementation

end.