在程序中處理外部文件拖放

很多軟件都支持外部文件的拖放，比如winamp等音頻播放軟件，把mp3直接拖放到程序窗口就可以直接開始播放，實現這個功能其實很簡單。

首先在頭文件中加入消息映射:

private: // User declarations
    void __fastcall DragDropFiles(TMessage &msg); //自定義處理拖放的函數
public:  // User declarations
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DROPFILES, TMessage, DragDropFiles);
    END_MESSAGE_MAP(TForm); 

在Form的OnCreate事件中先加入允許拖放的代碼:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(Handle, true);
}
//函數DragDropFiles
void __fastcall TForm1::DragDropFiles(TMessage &msg)
{
    char FileName[_MAX_PATH];
    int i, Sum;
    Sum = DragQueryFile( HDROP(msg.WParam), 0xFFFFFFFF, NULL, 0);

    try {
        for(i=0; i<Sum; i++) {
            DragQueryFile(HDROP(msg.WParam), i, FileName, _MAX_PATH);
            Memo1->Lines->AddStrings(Files); //把文件名加入到Memo1中
        }
    }
    __finally {
        DragFinish(HDROP(msg.WParam));
    }
}

完成，得到了文件名，要怎麼處理就看具體功能而定了。