让自己的软件实现拖拽打开文件

让自己的软件实现拖拽打开文件

                             作者： 帅宏军

//声明

protected     procedure WMDROPFILES(var Msg : TMessage); message WM_DROPFILES;

------------------------------------------------------------------------------------------------------------------------

//实现

procedure TFormMain.WMDROPFILES(var Msg: TMessage); var   i, n: Integer;   Buffer: Array[0..255] of Char; begin   //得到拖拽文件数量   n := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 255);

  //处理选择多个文件   for i := 0 to n - 1 do   begin     //获取拖拽文件名     DragQueryFile(Msg.wParam, i, Buffer, 255);

    //文件名就在Buffer里面了     if UpperCase(ExtractFileExt(Buffer)) = '.BZLX' then     begin       //判断文件是否已经打开       if UpperCase(Buffer) = UpperCase('test.bzlx') then       begin         MessageDlg('文件test.bzlx已经打开！', (mtInformation),[mbOK],0);         exit;       end;

      //打开文件       OpenFile(Buffer);

      exit;     end;   end;

  //结束拖拽   DragFinish(Msg.wParam); end;

------------------------------------------------------------------------------------------------------------------------

//初始化

procedure TFormMain.FormCreate(Sender: TObject); begin   //使窗口句柄可以接收拖拽操作

  DragAcceptFiles(Handle, True);

end;