zoukankan      html  css  js  c++  java
  • 让自己的软件实现拖拽打开文件(覆盖WM_DROPFILES,使用DragQueryFile,DragFinish API函数)

                                 作者: 帅宏军

    //声明

    protected
        procedure WMDROPFILES(var Msg : TMessage); message WM_DROPFILES;

    ------------------------------------------------------------------------------------------------------------------------

    //实现

    procedure TFormMain.WMDROPFILES(var Msg: TMessage);
    var
      i, n: Integer;
      Buffer: Array[0..255] of Char;
    begin
      //得到拖拽文件数量
      n := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 255);

      //处理选择多个文件
      for i := 0 to n - 1 do
      begin
        //获取拖拽文件名
        DragQueryFile(Msg.wParam, i, Buffer, 255);

        //文件名就在Buffer里面了
        if UpperCase(ExtractFileExt(Buffer)) = '.BZLX' then
        begin
          //判断文件是否已经打开
          if UpperCase(Buffer) = UpperCase('test.bzlx') then
          begin
            MessageDlg('文件test.bzlx已经打开!', (mtInformation),[mbOK],0);
            exit;
          end;

          //打开文件
          OpenFile(Buffer);

          exit;
        end;
      end;

      //结束拖拽
      DragFinish(Msg.wParam);
    end; 

    ------------------------------------------------------------------------------------------------------------------------

    //初始化

    procedure TFormMain.FormCreate(Sender: TObject);
    begin
      //使窗口句柄可以接收拖拽操作

      DragAcceptFiles(Handle, True);

    end;

    版权声明:【敦格作品】,欢迎引用,注明出处:http://blog.csdn.net/shuaihj https://blog.csdn.net/shuaihj/article/details/7046515
  • 相关阅读:
    当教育成为一种商品
    怎样设置Solaris上网
    对象转为xml输出到页面,中文乱码问题
    Flex 深拷贝与浅拷贝笔记
    使用access数据库需要注意的问题
    根据数据库表结构生成xsd文件
    SendKeys.Send()输入中文
    VB6迁移到VB.NET的一些问题汇总
    技术文章转移完毕
    说说重复发明轮子的事儿
  • 原文地址:https://www.cnblogs.com/findumars/p/9113439.html
Copyright © 2011-2022 走看看