一.
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等。
