知识大全实现应用程序的文件拖放功能

Posted 2022-07-22 文件

篇首语：贵在坚持，难在坚持，成在坚持。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全实现应用程序的文件拖放功能相关的知识，希望对你有一定的参考价值。

　　在Delphi中有许多控件支持拖放操作但仅限于应用程序内部而不能实现从Windows环境里向应用程序拖放文件本文将要介绍的就是如何用Delphi编写支持文件拖放的应用程序由于主要使用WindowsAPI函数因此也可供其它语言使用者参考

　　首先要说明的是下面的三个API函数为通用起见函数说明使用C语言格式

　　 VOIDDragAcceptFiles(

　　HWNDhWnd

　　BOOLfAccept);

　　DragAcceptFiles函数是用来为拖放文件作初始化它的第一个参数hWnd指明目标窗体的句柄第二个参数fAccept是一个布尔型变量为True时则hWnd所指向的窗体可以接受拖放的文件

　　 UINTDragQueryFile(

　　HDROPhDrop

　　UINTiFile

　　LPTSTRlpszFile

　　UINTcch)

　　DragQueryFile函数用来查询拖放文件的文件名其本身的返回值是一个无符号整数参数hDrop是一个存放所拖放文件名称的数据结构的句柄也就是文件名缓冲区的句柄需要从Windows消息WM_DROPFILES中获得 iFile指明所要查询文件的序号它有两种取值方式值为十六进制数FFFFFFFF时 DragQueryFile的返回值为所拖放文件的数目; 值在到拖放文件总数之间时 DragQueryFile函数将相应序号的文件名放入参数lpszFile所指向的缓冲区内若此时lpszFile的值为NULL 则DragQueryFile会返回相应文件名的长度参数cch决定缓冲区的长度由于Windows 支持长文件名它的值不能设得太小

　　 VOIDDragFinish(HDROPhDrop);

　　使用DragFinish函数告诉Windows拖放操作结束使其释放文件名缓冲区它的参数hDrop与DragQueryFiles函数中的一样也由Windows消息WM_DROPFILES 的hDrop参数获得

　　下面将结合一个我编写的例子来说明具体的编程步骤本例中窗体上放置了一个Memo控件memo 在Windows中选取数个文件拖至程序窗体放下则memo 中便会显示所选文件的总数及每个文件的各自名称程序代码如下:

　　unitUnit ;

　　interface

　　uses

　　Windows Messages SysUtils Classes

　　Graphics Controls Forms Dialogs

　　StdCtrls;

　　type

　　TForm =class(TForm)

　　Memo :TMemo;

　　procedureFormCreate(Sender:TObject);

　　procedureLabel Click(Sender:TObject);

　　private

　　PROCEDUREFinishDropped(Varmsg:TMessage);

　　MessageWM_DropFiles;

　　Privatedeclarations

　　public

　　Publicdeclarations

　　end;

　　var

　　Form :TForm ;

　　implementation

　　usesshellapi;

　　$R* DFM

　　pro ureTForm FormCreate(Sender:TObject);

　　begin

　　//initializethedragprocess;

　　DragAcceptFiles(Handle True);

　　end;

　　ProcedureTForm FinishDropped(Varmsg:TMessage);

　　Var

　　hDrop:THandle;

　　iFile:Uint;

　　lpszFile:pchar;

　　CountOfFiles:integer;

　　FileIndex:integer;

　　ReSults:string;

　　begin

　　hDrop:=Msg WParam;

　　getmem(pchar );

　　iFile:=$FFFFFFFF;

　　CountOfFiles:=DragQueryFile(hDrop iFile lpszFile );

　　ReSults:=;

　　forFileIndex:= CountOfFiles do

　　begin

　　iFile:=FileIndex;

　　DragQueryFile(hDrop iFile lpszFile );

　　//GettheFilenamesbyorder;

　　ReSults:=ReSults+# # +lpszFile;

　　end;

　　Dispose(lpszFile);

　　memo Clear;

　　memo lines add(拖放了+IntToStr

　　(CountOfFiles)+个文件:+ReSults);

　　DragFinish(hDrop);

　　end;

　　end

　　从以上代码可以看出首先应该在窗体的OnCreate事件中用DragAccepteFiles来说明程序窗体支持文件的拖放

　　另外除了调用以上个API函数在Delphi中还应编写针对WM_DROPFILES的消息处理过程FinishDropped 截取了WM_DROPFILES 由其wParam 才能够得到文件名缓冲区的句柄

　　在FinishDropped过程里有两处DragQueryFile 函数第一处其iFile参数为$FFFFFFFF 得到拖放文件的总数;第二处iFile参数为每个文件的序号则可在lpszFile中可得到相应的文件名当然为了明显的对比iFile的值对DragQueryFile 函数的影响这里的代码不够简练有一点需要注意的是 lpszFile是Pchar型的变量为了程序运行安全它使用前需用getmem过程为其分配内存使用后再用dispose过程将其释放在FinishDropped过程的最后用DragFinish函数释放文件名缓冲区

cha138/Article/program/Delphi/201311/24695

知识大全 实现应用程序的文件拖放功能

知识大全实现应用程序的文件拖放功能