让窗体接受拖放, 并获取拖过来的文件信息

问题来源: http://www.cnblogs.com/del/archive/2009/01/20/1353117.html#1435746

原理分析:

这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile;

用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放;

然后就等待 WM_DROPFILES 消息, 并用 DragQueryFile 函数处理消息参数, 从而获取信息.

代码文件:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;procedure FormCreate(Sender: TObject);protectedprocedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;end;varForm1: TForm1;implementation{$R *.dfm}uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);
beginDragAcceptFiles(Handle, True);
end;procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
varp: array[0..255] of Char;i,count: Integer;
begin{先获取拖拽的文件总数}count := DragQueryFile(message.Drop, $FFFFFFFF, nil, 0);{分别获取文件名}for i := 0 to count-1 dobeginDragQueryFile(message.Drop, i, p, SizeOf(p));Memo1.Lines.Add(p); {既然知道了文件名, 当然也可以随手打开它}end;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 154ClientWidth = 261Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Memo1: TMemoLeft = 0Top = 0Width = 261Height = 129Align = alTopLines.Strings = ('Memo1')ScrollBars = ssBothTabOrder = 0end
end

转载于:https://www.cnblogs.com/del/archive/2009/01/20/1379130.html

让窗体接受拖放, 并获取拖过来的文件信息 - 回复海浪问的问题相关推荐

macOS开发中用TagLib获取、修改音频文件信息
macOS开发中用TagLib获取.修改音频文件信息 1.概述 TagLib是KDE开源项目的一个很有用的C++函数库,它可以用于读取各种格式的音频文件的ID3信息,如歌名.歌手.专辑.采样率等,同时 ...
C# 获取文件大小,创建时间,文件信息,FileInfo类的属性表
OpenFileDialog openFileDialog1 = new OpenFileDialog(); if(openFileDialog1.ShowDialog() == DialogResu ...
向窗体中拖放图片并显示
Frm_Main.cs View Code 1 using System; 2 using System.Collections.Generic; 3 using System.ComponentMo ...
拖放获取文件信息的bat代码
参考:岁月如歌-通过拖曳获取文件信息的bat代码拖放获取文件信息的bat代码使用命令行配合7z解压文件时由于每次解压的文件不同,因此搜索了一下拖放识别文件信息的方法,以此方式来减轻工作量获取文件 ...
向模态窗体传递参数和获取返回值
1.向window.showModalDialog 传递参数: window.showModalDialog 方法的第二个参数就代表父窗体传递到模态窗体的参数值,可以为任何对象或数组),也可以不传 ...
js控制文件拖拽，获取拖拽内容。
在用户拖拽文件到浏览器的某个元素上时,js可以监听到与拖拽相关的事件,并对拖拽结果进行处理,本文讨论下和拖拽文件相关的一些问题,不过没有处理太多关于兼容性的问题. 拖拽事件 js能够监听到拖拽的事件有 ...
js控制文件拖拽，获取拖拽内容
在用户拖拽文件到浏览器的某个元素上时,js可以监听到与拖拽相关的事件,并对拖拽结果进行处理,本文讨论下和拖拽文件相关的一些问题,不过没有处理太多关于兼容性的问题. 拖拽事件 js能够监听到拖拽的事件有 ...
sortable使用小知识（vue）-- 使用sortable拖拽插件在初始化循环标签的状态下，如何获取拖拽的数据
废话大家搜索这个基本都知道这个插件是干啥的,那我就不废话了.如果真的有人不晓得的话,点这个: sortable.js中文文档. 问题场景当时产品拿着一个示例给我,我就要做成这样的. emmm,我看 ...
WPF实现窗体在屏幕内移动拖拽，不超过屏幕边界
WPF实现窗体在屏幕内移动拖拽,不超过屏幕边界最近在项目中遇到WPF弹出窗体只能在屏幕内移动的需求,使用WndProc截获系统消息.ClipCursor API函数控制鼠标可用区域解决了问题,特意记 ...

让窗体接受拖放, 并获取拖过来的文件信息 - 回复海浪问的问题

让窗体接受拖放, 并获取拖过来的文件信息 - 回复海浪问的问题相关推荐

最新文章

热门文章

让窗体接受拖放, 并获取拖过来的文件信息 - 回复 海浪问 的问题

让窗体接受拖放, 并获取拖过来的文件信息 - 回复 海浪问 的问题相关推荐

最新文章

热门文章

让窗体接受拖放, 并获取拖过来的文件信息 - 回复海浪问的问题

让窗体接受拖放, 并获取拖过来的文件信息 - 回复海浪问的问题相关推荐