{*********************************************************************** * * * wsUpdateDragDropPrivileges.pas * * * * * * Modification * * ============ * * * ***********************************************************************} Unit wsUpdateDragDropPrivileges ; interface Procedure UpdateDragDropPrivileges ; Implementation Uses Windows , Messages ; // function ChangeWindowMessageFilter(Message: UINT; dwFlag: DWORD): BOOL; stdcall; {*********************************************************************** * * * UpdateDragDropPrivileges * * * * Modification * * ============ * * * ***********************************************************************} Procedure UpdateDragDropPrivileges ; Begin { UpdateDragDropPrivileges } ChangeWindowMessageFilter(WM_DROPFILES , MSGFLT_ADD) ; ChangeWindowMessageFilter(WM_COPYDATA , MSGFLT_ADD) ; ChangeWindowMessageFilter(WM_COPYGLOBALDATA , MSGFLT_ADD) ; End ; { UpdateDragDropPrivileges } Initialization UpdateDragDropPrivileges ; End.