拖拉打开文件

说明:DragDropFiles是在函数声明中定义的消息函

   DragQueryFile和DragFinish都是API函数,在调用之前要在pas头上引用shellAPI单元。

 OpenFile是你真正用来打开文件的的函数,其它所做的是得到拖拉进来的文件的文件名。


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;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值