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

Question

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

Answer 1

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

Answer 2

哈哈 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;
：） 现在是市场经济社会 

Answer 3

TO:WANGYISE(蓝平)
你正好搞返了，我需要的结果是将Delphi的控件拖曳到windows资料夹时，取得windows资料夹的路径！这个问题一直没有解决掉，请高手帮忙！！！