在窗口中屏避WIN7的鼠标手势功能

procedure DisibleWindowsGesture;
var
  hDll: THandle;
  fnRegisterTouchWindow: function(hwnd: HWND; ulFlags: Cardinal): BOOL; stdcall;
begin
  hDll := LoadLibraryW(user32);
  if hDll <> 0 then
  begin
    try
      @fnRegisterTouchWindow := GetProcAddress(hDll, 'RegisterTouchWindow');
      if @fnRegisterTouchWindow <> nil then
        fnRegisterTouchWindow(Self.Handle, 0);
    finally
      FreeLibrary(hDll);
    end;
  end;
end;