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

            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);

      end;

    DLL_PROCESS_DETACH:

      begin

        //UninstallHook;

      end;

    else;

  end;

end;

exports

  InstallHook;

begin