請教：如何實現在delphi中拖曳控件（如listView）到windows資料夾，取得資料夾的路徑？

[scott21cn]

？？?

[scott21cn]

up!

[Eyes12]

GZ.

[scott21cn]

不會的，也幫我up！
謝謝！

[WANGYISE]

api 里有相应函数 你再多加分我告诉你！

[scott21cn]

to:WANGYISE
如果你先回答了我的問題，我會考慮給你加分！
這什么世道啊，像做買賣似的！

[WANGYISE]

哈哈 OK
不过你的分真给的太少了 你比我多个三角呢

在FORM的PROTEDTED 中定义如下两个函数
procedure createparams(var params:tcreateparams);override;
procedure wmdropfiles(var message:twmdropfiles);message wm_dropfiles
// wm_dropfiles 是拖曳文件时系统给该窗口的消息
//实现部分
procedure tform1.createparams(var params:tcreateparams);
begin
inherited createparams(params);
//注册窗口为可以接收拖曳过来的文件
params.exstyle:=params.exstryle or ws_ex_acceptfiles
end;
//响应wm_dropfiles的消息
procedure tform1.wmdropfiles(var message:twmdropfies);
var
fnumfiles:integer;
i:integer;
bufsize:integer;
ffilepath:array of char;
ffilename:string;
begin
//取得文件个数
fnumfiles:=dragqueryfile(message.drop,$ffffff,nill,0);
//取得文件的路径
for i:=0 to fnumfiles-1 do
begin
bufsize:=dragqueryfile(message.drop,i,nil,0);
setlength(ffilepath,bufsize+1);
dragqueryfile(message.drop,i,pchar(ffilepath),bufsize+1);
//随便你如何处理
end;
//释放资源
dragfinish(message.drop);
end;
：） 现在是市场经济社会

[scott21cn]

TO:WANGYISE(蓝平)
你正好搞返了，我需要的结果是将Delphi的控件拖曳到windows资料夹时，取得windows资料夹的路径！

这个问题一直没有解决掉，请高手帮忙！！！

[Billy_Chen28]

这个问题比较难

[scott21cn]

看來沒希望了！