Procedure DragDropFiles(Var message: TMessage); Message WM_DropFiles; Procedure Tfm_main.DragDropFiles(Var message: TMessage); Var p: Array[0..254] Of char; i: word; Begin Inherited; i := DragQueryFile(Message.wParam, $FFFFFFFF, Nil, 0); For i := 0 To i - 1 Do Begin D...[ 查看全文 ]