在窗口中屏避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;