Вот так:
| Код |
// h-файл
TWndMethod m_lpfnOldProc;
void __fastcall NewProc(Messages::TMessage &Message);
// cpp-файл
// конструктор формы
DragAcceptFiles(Handle, true);
m_lpfnOldProc = WindowProc;
WindowProc = NewProc;
//функция обработчик
void __fastcall TForm1::NewProc(Messages::TMessage &Message)
{
HDROP hDrop;
int nIndex;
int nFilesCount;
char szFileName[MAX_PATH];
if(Message.Msg == WM_DROPFILES)
{
hDrop = (HDROP)Message.WParam;
nFilesCount = DragQueryFile(hDrop, 0xffffffff, NULL, 0);
//for(nIndex = 0; nIndex < nFilesCount; nIndex ++)
//{
DragQueryFile(hDrop, /*nIndex*/0, szFileName, sizeof(szFileName));
// Тут бы не помешало бы проверить файл на предмет это картинка или нет
Image1->Picture->LoadFromFile(szFileName);
//}
}
m_lpfnOldProc(Message);
}
|
|