如何实现鼠标拖放文件

　　一.

　　1：取得要拖放的文件名与路径。

　　2：取得目标文件名与路径。

　　3：在拖动事件中把文件从原目录拷入目标目录。

　　4：取得文件图标放入TImageList。

　　5：以一种方式显示文件名和图标。

　　这里有些难度的是第四步，如何取得图标，现把刚学来的再告诉你（以在TListView显示图标为例）：

　　在头文件中加入：#define NO_WIN32_LEAN_AND_MEAN

　　在.cpp中加入：

　　SHFILEINFO FileInfo;
THandle ImageListHandle;
ImageListHandle = SHGetFileInfo("C:\\WINDOWS\\Start Menu\\Programs\\Microsoft FrontPage.lnk", 0, &FileInfo, sizeof(FileInfo),
　　　　　　　　　　　　 SHGFI_SYSICONINDEX ¦ SHGFI_LARGEICON);
SendMessage(lstvwVirtualList->Handle, LVM_SETIMAGELIST, LVSIL_SMALL,
　　　　　　　　 ImageListHandle);
TListItem * pItem;
SHGetFileInfo("C:\\WINDOWS\\Start Menu\\Programs\\Microsoft FrontPage.lnk", 0, &FileInfo, sizeof(FileInfo),SHGFI_ICON;SHGFI_LARGEICON);
pItem=lstvwVirtualList->Items->Add();
pItem->ImageIndex=FileInfo.iIcon;
SHGetFileInfo("C:\\WINDOWS\\Start Menu\\Programs\\DRVSPACE.EXE", 0, &FileInfo, sizeof(FileInfo),SHGFI_ICON;SHGFI_LARGEICON );
pItem=lstvwVirtualList->Items->Add();
pItem->ImageIndex=FileInfo.iIcon;

　　这样就可取得2个文件的图标，如果有其他文件可也再加。

　　二.

　　首先在FormCreate时调用DragAcceptFiles(this,true)注册你的程序，使得你的程序可以接受文件的DragDrop。然后处理WM_DROPFILES消息，获得DropDrag的消息，调用如下函数获得相关的参数：: