delphi中文件拖入功能的实现
来源:互联网 发布:人工智能培训机构 编辑:程序博客网 时间:2024/04/30 21:13
procedure TForm1.WMDropFiles(var message : TMessage );
varp : Array[0..254] of Char;
i : Word;
begin
i:=DragQueryFile(message.WParam ,$ffffffff,nil,0); //返回的是文件名的字符数
For i:= 0 To i-1 Do
begin
DragQueryFile(message.WParam,i,p,255); //p为获取的文件名的字符串
ShowRecord(p);
end;
end;
另外 还需在 public上定义这个过程
procedure WMDropFiles(var Message :TMessage) ;message WM_DropFiles;
而且还要调用SHELLAPI函数(在前面use上加入)
0 0
- delphi中文件拖入功能的实现
- 在Delphi中编程实现中文输入的功能
- 实现文件的拖放功能(Delphi)
- Delphi中实现系统托盘的功能
- delphi的拖拽功能实现
- delphi实现全局快捷键的功能
- Delphi实现文件的拖放功能
- Delphi XE8 安卓摇一摇功能的实现
- delphi实现全局快捷键的功能
- PHP中文件上传功能的实现
- C#调用Delphi编写的Dll,实现绘图的功能
- Delphi 的绘图功能
- Delphi 的绘图功能
- 通过DELPHI实现计算器功能.
- Delphi实现截屏功能
- Delphi 实现右下角任务栏功能
- delphi Indy 实现天气预报功能
- Delphi中实现C++/Java类似静态变量的功能
- 深入浅出排序算法的多语言实现
- 2015-10-08 开篇
- win7下安装mysql
- [实践]Spring MVC——消息转换器的编码(防止中文乱码)
- 如何正确的完全卸载MySQL
- delphi中文件拖入功能的实现
- Chapter 3-01
- Java JVM(十二):指令重排序
- HDU 1599 find the mincost route(Floyd判最小环)
- Visual Studio2015错误C4996 'strcpy': This function or variable may be unsafe. Consider using strcpy_
- 分布式系统的Raft算法
- 微软涉足千元机市场 发布883元手机Lumia 550
- 结构体字节对齐
- 【威尔逊定理】HDOJ YAPTCHA 2973