【文件属性】：
文件名称：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)