如何实现鼠标拖放文件

一.
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的消息，调用如下函数获得相关的参数：:
UINT DragQueryFile(
    HDROP hDrop,
    UINT iFile,
    LPTSTR lpszFile,
    UINT cch
);
BOOL DragQueryPoint(
    HDROP hDrop,
    LPPOINT lppt
);

最后用下面的函数接受DragDrop的动作。
VOID DragFinish(
    HDROP hDrop
);



三.

在头文件里加上：
private:    // User declarations
    void __fastcall AcceptFiles(TMessage& Msg);
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DROPFILES,TMessage,AcceptFiles)
    END_MESSAGE_MAP(TForm)

一段代码，希望对你有些帮助：
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    DragAcceptFiles(this->Handle,true);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::AcceptFiles(TMessage& Msg)
{
    const int m_nMaxFileNameLen=255;
    int i,m_nCount;
    char m_sFileName[m_nMaxFileNameLen];
    m_nCount=DragQueryFile((HANDLE)Msg.WParam,0xffffffff,m_sFileName,m_nMaxFileNameLen);
    for(i=0;i<m_nCount;i++)
    {
        DragQueryFile((HANDLE)Msg.WParam,i,m_sFileName,m_nMaxFileNameLen);
        MessageBox(this->Handle,m_sFileName,"Drop File",MB_OK);
    }
    DragFinish((HANDLE)Msg.WParam);
}


四.

在需要拖放的窗体类中加入消息处理映射，如下：
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
END_MESSAGE_MAP (TForm);

在相应的cpp文件进入消息处理函数，如下：
void __fastcall TForm1::WMDropFiles(TWMDropFiles &message)
{
  UINT filecount = DragQueryFile((HDROP) message.Drop, 0xFFFFFFFF, NULL, 0); //查询拖放的文件数量
  for(int n=0;n<=filecount-1;n++)
  {
  String filename;
  filename.SetLength(MAX_PATH);
  int length = DragQueryFile ((HDROP) message.Drop,n,filename.c_str (),     MAX_PATH);
  filename.SetLength (length);

  //在这儿替换你的处理代码

  }
  DragFinish ((HDROP) message.Drop);
}

在窗体类的OnCreate事件中加入如下代码，
DragAcceptFiles(Handle,true);

OK，就这么简单，另外其他窗体类控件同样可以，如ListView等。