拖拉打开文件

　　
　　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;