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

最新推荐文章于 2023-08-25 11:46:12 发布

weixin_33729196

最新推荐文章于 2023-08-25 11:46:12 发布

阅读量361

点赞数

文章标签： c/c++ c#

原文链接：http://www.cnblogs.com/khzide/articles/4429995.html

版权

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

作者：帅宏军

//声明

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;

转载于:https://www.cnblogs.com/khzide/articles/4429995.html