拖拉打开文件

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

DragQueryFile(Message.wParam, i, p, 255);

End;

Try

If FileExists(strPas(p)) Then

OpenFile(strPas(p));

Finally

DragFinish(HDROP(Message.WParam));

End;

End;