文件名称：Delphi以拖动的方式打开文件.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 03:26:25
Delphi源码-文件操作
Delphi以拖动的方式打开文件，把文件拖放到程序窗口中，就可打开文件，这是一种比较快捷的打开文件的方式，可避免用户去一级一级选择文件路径的麻烦，拖放部分核心代码如下： NumFiles := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0); //有多少文件被放下 for i := 0 to (NumFiles - 1) do begin //循环处理放下的文件，此处只是显示其文件名 DragQueryFile(Message.Drop,i,@buffer,sizeof(buffer)); //获取文件名，保存到buffer Form1.Memo1.Lines.Add(buffer); //显示文件名 end; DragFinish(Message.Drop); //拖放完毕，释放系统在传输文件名时分配的内存。 end;
【文件预览】：
codesc.net
----文件的拖放()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dfm(611B)
--------Project1.dpr(188B)
--------Unit1.pas(1KB)