实现应用程序的文件拖放功能
来源:互联网 发布:华为商城源码 编辑:程序博客网 时间:2024/06/05 03:57
在Delphi中有许多控件支持拖放操作,但仅限于 应用程序内部,而不能实现从Windows环境里向应用程序拖放文件,本文将要介绍的就是如 何用Delphi编写支持文件拖放的应用程序,由于主要使用WindowsAPI函数,因此也可供其 它语言使用者参考.
首先要说明的是下面的三个API函数,为通用起见, 函数说明使用C语言格式,
1.VOIDDragAcceptFiles(HWNDhWnd,BOOLfAccept);DragAcceptFiles函数是用来为拖放文件作初始化, 它的第一个参数hWnd指明目标窗体的句柄,第二个参数fAccept是一个布尔型变量,为True时 则hWnd所指向的窗体可以接受拖放的文件.
2.UINTDragQueryFile(HDROPhDrop,UINTiFile,LPTSTRlpszFile,UINTcch)DragQueryFile函数用来查询拖放文件的文件名,其 本身的返回值是一个无符号整数,参数hDrop是一个存放所拖放文件名称的数据结构的句柄, 也就是文件名缓冲区的句柄,需要从Windows消息WM_DROPFILES中获得.iFile指明所要查询 文件的序号,它有两种取值方式,1.值为十六进制数FFFFFFFF时,DragQueryFile的返回值为 所拖放文件的数目;2.值在0到拖放文件总数之间时,DragQueryFile函数将相应序号的文件 名放入参数lpszFile所指向的缓冲区内,若此时lpszFile的值为NULL,则DragQueryFile会返 回相应文件名的长度.参数cch决定缓冲区的长度,由于Windows95支持长文件名,它的值不能 设得太小.
3.VOIDDragFinish(HDROPhDrop);使用DragFinish函数告诉Windows拖放操作结束,使 其释放文件名缓冲区,它的参数hDrop与DragQueryFiles函数中的一样,也由Windows消息WM_DROPFILES 的hDrop参数获得.
下面将结合一个我编写的例子来说明具体的编程 步骤.本例中窗体上放置了一个Memo控件memo1,在Windows中选取数个文件拖至程序窗体 放下,则memo1中便会显示所选文件的总数及每个文件的各自名称.程序代码如下:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Memo1:TMemo;procedureFormCreate(Sender:TObject);procedureLabel3Click(Sender:TObject);procedureLabel4Click(Sender:TObject);privatePROCEDUREFinishDropped(VARMsg:TMessage);MessageWM_DropFiles;{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesshellapi;{$R*.DFM}pro ureTForm1.FormCreate(Sender:TObject);begin//initializethedragprocess;DragAcceptFiles(Handle,True);end;ProcedureTForm1.FinishDropped(VARMsg:TMessage);VarhDrop:THandle;iFile:Uint;lpszFile:pchar;CountOfFiles:integer;FileIndex:integer;ReSults:string;beginhDrop:=Msg.WParam;getmem(pchar,255);iFile:=$FFFFFFFF;CountOfFiles:=DragQueryFile(hDrop,iFile,lpszFile,254);ReSults:=;forFileIndex:=0CountOfFiles-1dobeginiFile:=FileIndex;DragQueryFile(hDrop,iFile,lpszFile,254);//GettheFilenamesbyorder;ReSults:=ReSults+#13#10+lpszFile;end;Dispose(lpszFile);memo1.Clear;memo1.lines.add(拖放了+IntToStr(CountOfFiles)+个文件:+ReSults);DragFinish(hDrop);end;end.从以上代码可以看出,首先应该在窗体的OnCreate事 件中用DragAccepteFiles来说明程序窗体支持文件的拖放.
另外,除了调用以上3个API函数,在Delphi中还应 编写针对WM_DROPFILES的消息处理过程FinishDropped,截取了WM_DROPFILES,由其wParam 才能够得到文件名缓冲区的句柄.
在FinishDropped过程里,有两处DragQueryFile 函数,第一处其iFile参数为$FFFFFFFF,得到拖放文件的总数;第二处iFile参数为每个文 件的序号,则可在lpszFile中可得到相应的文件名.当然,为了明显的对比iFile的值对DragQueryFile 函数的影响,这里的代码不够简练.有一点需要注意的是,lpszFile是Pchar型的变量,为了 程序运行安全,它使用前需用getmem过程为其分配内存,使用后再用dispose过程将其释放. 在FinishDropped过程的最后,用DragFinish函数释放文件名缓冲区.
- 实现应用程序的文件拖放功能
- 实现应用程序的文件拖放功能〖源代码〗
- 实现文件的拖放功能(Delphi)
- 五步实现文件的拖放功能
- 实现窗口的文件拖放功能
- Delphi实现文件的拖放功能
- 拖放功能的实现
- 拖放功能的实现
- vc++中实现文件拖放功能
- VB的文件拖放实现
- 为应用提供文件的拖放功能
- ListView之间的拖放功能的实现
- 控件“树”中多选拖放功能的实现
- 实现拖放功能的javascirpt代码
- 控件“树”中多选拖放功能的实现
- 控件“树”中多选拖放功能的实现
- 实现页面元素拖放功能的JS
- 控件"树"中多选拖放功能的实现
- 文件夹,txt文件操作
- CSharp 基本知识-数组
- 关于游戏中数组的应用
- Tomcat5+Mysql文中乱码问题的解决方法
- flash里面的2维数组的简单应用
- 实现应用程序的文件拖放功能
- 应用题_将一数字分解连续整数和
- 一组很 cool 的菜单,组合起来非常的棒!
- 可控制式动态菜单的制作
- 用DHTML在Web页面实现多媒体显示效果
- 在 Web 页 面 上 制 作 WINDOWS 风 格 的 菜 单
- 告全体业主书
- 网 页 中 下 拉 菜 单 的 设 计
- 纯HTML 实现圆角表格