正在阅读：QQ聊天记录器演示程序(一)QQ聊天记录器演示程序(一)

  DllEntry(DLL_PROCESS_ATTACH);

end.

procedure TForm1.Button1Click(Sender: TObject);

begin

  InstallHook;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  MemFile:= OpenFileMapping(FILE_MAP_WRITE,False,HOOK_MEM_FILENAME);

  if MemFile = 0 then

  MemFile := CreateFileMapping($FFFFFFFF,nil,

            PAGE_READWRITE,

            0,

            SizeOf(TShared),

            HOOK_MEM_FILENAME);

  Shared := MapViewOfFile(MemFile,

          File_MAP_WRITE,

          0,

          0,

          0);

  Shared^.MainWnd := Handle;   //保存窗体句柄

end;