捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:让程序支持外来文件拖放的单元文件
cmd9x 498226 2015/7/28 16:28:21
Win7以后的带UAC该单元无法使用,需要加上消息过滤:
TChangeWindowMessage = function(message: UInt; dwFlag: DWORD): Bool; stdcall;
const
  MSGFLT_ADD = 1;
  MSGFLT_REMOVE = 2;
//私有成员
    FDLL: HMODULE;
    FCWM: TChangeWindowMessage;//过滤并允许UAC下拖放消息
//实现
  FDLL := LoadLibrary('User32.dll');
  if (FDLL <> 0) then
  begin
    @FCWM := GetProcAddress(FDLL, 'ChangeWindowMessageFilter');
    if @FCWM <> nil then
    begin
      FCWM($0049, MSGFLT_ADD);
      FCWM(WM_DROPFILES, MSGFLT_ADD);
    end;
  end;
hujiacheng 39341 2010/1/1 15:19:34
http://hi.baidu.com/hellowzr/blog/item/c333fe3c9b0b5ce73c6d9715.html
看下别人的分析吧 。
starsoul 33442 2008/3/23 16:51:52
FCP_FILEOPEN没有定义.
如果有两个Edit控件,怎样把文件拖到这两个控件里?
第一页 上一页 下一页 最后页 有 3 条纪录 共1页 1 - 3
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表