//-----В unit1.h----------------------- private: // User declarations
int number_of_item;
double default_width;
double default_height;
double default_cells;
double default_align;
virtual void __fastcall WMDropFiles(TWMDropFiles &message);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WMDropFiles)
END_MESSAGE_MAP(TForm);
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//---------------В Unit1.cpp-------------------------------
#include <math.h>
#include <dir.h>
//-------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Handle, True);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMDropFiles(TWMDropFiles &message)
{
bool f_once = true;
char FileName[MAX_PATH+1];
//--------------------------------------------------------------------
int Count = DragQueryFile((HDROP)message.Drop, -1, NULL, MAX_PATH);
//--------------------------------------------------------------------
for(int index=0; index<Count; ++index)
{
DragQueryFile((HDROP)message.Drop, index, FileName, MAX_PATH);
//Фильтрация расширения файлов
if(UpperCase(ExtractFileExt(FileName)) == ".JPG" ||
UpperCase(ExtractFileExt(FileName)) == ".BMP" ||
UpperCase(ExtractFileExt(FileName)) == ".TIF" ||
UpperCase(ExtractFileExt(FileName)) == ".GIF" ||
UpperCase(ExtractFileExt(FileName)) == ".CDR" ||
UpperCase(ExtractFileExt(FileName)) == ".WMF" ||
UpperCase(ExtractFileExt(FileName)) == ".EMF" ||
UpperCase(ExtractFileExt(FileName)) == ".PNG" ||
UpperCase(ExtractFileExt(FileName)) == ".PCX" ||
UpperCase(ExtractFileExt(FileName)) == ".EPS"
)
{
Form1->ListBox1->Items->Add(FileName);
//Добавляем имя файла с путём
char drive[MAXDRIVE];
char dir[MAXDIR];
char file[MAXFILE];
char ext[MAXEXT];
//int flags =
fnsplit(FileName,drive,dir,file,ext);
AnsiString full_name = file;
full_name += ext;
Form1->ListBox1->Items->Add(full_name);
//Добавляем имя файла без пути
}
}
}
//----------------