// (1) 在form 的class 內加入以下程式碼:    class TForm1 : public TForm
{
...........
public:
        void __fastcall OnDropFiles(TWMDropFiles & Msg);
        // 自訂一個接收檔案後, 處理檔案的函式. 在這裡我訂為OnDropFiles.
protected:
    BEGIN_MESSAGE_MAP
                VCL_MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, OnDropFiles)
                // WM_DROPFILES : 拖曳檔案時, Window 會自動送出的訊息.
                // TWMDropFiles 為OnDropFiles函式的參數型態.
                // VCL_MESSAGE_HANDLER 為 BCB 獨有的鑲入指令。                    // 把OnDropFiles包進BEGIN_MESSAGE_MAP內, 則拖曳檔案時
                // window 會執行OnDropFiles函式. 並把WM_DROPFILES 傳入OnDropFiles函式。
    END_MESSAGE_MAP(TForm) 
};    // (2) 在c,cpp 檔案中寫入:
void __fastcall TForm1::FormCreate(TObject *Sender)
{        DragAcceptFiles(Handle,true);
    // 將form 註冊為可拖曳.
}    void __fastcall TForm1::OnDropFiles(TWMDropFiles & Msg)
{
  int  count=DragQueryFile( (HDROP)Msg.Drop,0xFFFFFFFF,NULL,0);  // 取得拖曳過來的個數
  for(int i=0;i