fredcl
Messages postés547Date d'inscriptionmercredi 8 janvier 2003StatutMembreDernière intervention 7 octobre 20071 19 juil. 2003 à 14:34
Bonjour,
Ceci devrais répondre à ta question :
// Déclaration de la classe de fenêtre
//---------------------------------------------------------------------------
class TFormMain : public TForm
{
__published: // Composants gérés par l'EDI
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormCreate(TObject *Sender)
{
// Spécifie a Windows l'acceptation du glisser déposer de fichiers
::DragAcceptFiles(Handle, true);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormDestroy(TObject *Sender)
{
// Arrêter l'acceptation du glisser déposer
::DragAcceptFiles(Handle, false);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::WmDropFiles(TWMDropFiles& Message)
{
// Gestion des fichiers déposés dans la fenêtre (drag & drop fichiers)
char buff[MAX_PATH];
HDROP hDrop = (HDROP)Message.Drop;
int nbf = ::DragQueryFile(hDrop, -1, 0, 0);
for (int i = 0; i < nbf; i++)
{
::DragQueryFile(hDrop, i, buff, sizeof(buff));
// Le nom du fichier est dans buff on peut maintenant le traiter