一般的个人小程序几乎都带拖拽功能,因为拖拽太方便了,要知道浏览文件夹的方式去打开文件有多遭罪。
不依赖任何第三方,直接用代码实现。
核心代码:
procedure TForm3.WMDROPFILES(var Message: TWMDROPFILES);
const
cnmaxfilenamelen = 255;
var
i, ncount : integer;
acfilename: array [0 .. 255] of char;
begin
ncount := dragqueryfile(message.drop, $FFFFFFFF, acfilename, cnmaxfilenamelen);
for i := 0 to ncount - 1 do
begin
dragqueryfile(message.drop, i, acfilename, cnmaxfilenamelen);
ListBox1.items.add(acfilename);
end;
dragfinish(message.drop);
end;