Drag the Windows message mechanism that the file contains

When a file is dragged and dropped into the form, the system sends a Wm_drapfiles event to the form

Define the triggering process:

Procedure Wmdropfiles (var msg:tmessage); message wm_dropfiles;

Enable window support drag and drop

DragAcceptFiles (Handle, True);//true to support

Total Files returned: Dragqueryfile (Msg.wparam, $FFFFFFFF, nil, 0);

Return file name:

Dragqueryfile (Msg.wparam, I, FileName, 256);

I is the file ordinal, filename is an array of filenames

Release: Dragfinish (Msg.wparam);

Drag the Windows message mechanism that the file contains