如何让某个文件拖到我所做的并运行中的程序的窗口放开后获取文件路径及文件名

2004-05-05 11:43:09 164 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

开源收银系统_大型收银系统源码_OctShop 开源收银系统正成为大型连锁企业数字化转型的关键工具。相比传统闭源系统，开源方案具有成本低（年均降本60%+）、定制灵活（支持多业态协同）、自主可控等优势，能有效解决高并发、多门店数据同步等痛点。核心价值在于：1）分布式架构适配规模化扩张；2）模块化设计实现个性化开发；3）开放接口打通ERP/CRM等系统。典型案例显示，连锁商超通过源码二次开发实现库存实时同步，补货效率提升50%；餐饮集团统一多业态收银流程后会员复购率增长35%。选型需关注源码成熟度、技术兼容性和安全合规，建议采用"开源+服务商&q 阅读详情

如何让某个文件拖到我所做的并运行中的程序的窗口放开后获取文件路径及文件名，最好提供代码，谢谢

...全文

探索robotics-toolbox-python：从基础安装到高级机器人运动学应用本文详细介绍了robotics-toolbox-python工具箱，从基础安装、环境配置到机器人运动学与动力学的核心应用。通过D-H参数、URDF导入和内置模型三种方式快速构建机器人模型，并演示了正逆运动学计算、关节空间与任务空间轨迹规划以及三维可视化仿真。该工具箱极大地简化了机器人算法开发流程，是进行机器人学研究和应用实践的强大工具。阅读详情

huiwww

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

huiwww 2004-05-05

打赏
举报

c++ builder?懂部分，但不是全部，在delphi里没有DropFile(TWMDropFiles &Msg)事件，帮自己up一下

bottom 2004-05-05

打赏
举报

void __fastcall DropFile(TWMDropFiles &Msg);
//---------消息映射----------------------------
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(MYWM_NOTIFY,TMessage,MyNotify)
MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,DropFile)
END_MESSAGE_MAP(TForm)
//---------消息映射--------------------------------------

bottom 2004-05-05

打赏
举报

void __fastcall TForm1::FormShow(TObject *Sender)
{
DragAcceptFiles(this->Handle ,true);
}

void __fastcall TForm1::DropFile(TWMDropFiles &Msg)
{
String FileName;
String FileStr;
int i;
if (tv1->Items->Count ==0)
{
MyMsgBox("没有分类，不能添加","*_*",2);
return;
}
TTreeNode * cnode ;
int DropCount=DragQueryFile((HDROP)Msg.Drop,0xFFFFFFFF,NULL,0 );

FileName.SetLength(256);

TfrmDrop1 *tmpfrm=new TfrmDrop1(NULL);
tmpfrm->canadd =false;
tmpfrm->lb1->Items->Clear() ;

for (i=0;i<DropCount;i++)
{ //1
DragQueryFile((HDROP)Msg.Drop,i,FileName.c_str() ,FileName.Length() );
tmpfrm->lb1->Items->Add(FileName) ;
} //2
DragFinish((HDROP)Msg.Drop);
tmpfrm->ShowModal() ;

hewei2003 2004-05-05

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI,
StdCtrls, MPlayer;

type
TForm1 = class(TForm)
Label1: TLabel;
ListBox1: TListBox;
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params:TCreateParams);override;
procedure WMDropFiles(var Message:TWMDropFiles);message WM_DropFiles;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

//重载CreateParams方法
procedure TForm1.CreateParams(var Params:TCreateParams);
begin

inherited CreateParams(Params);
Params.ExStyle:=Params.ExStyle or WS_EX_ACCEPTFILES;
end;

//响应WM_DROPFILES消息
procedure TForm1.WMDropFiles(var Message:TWMDropFiles);
var
FNumFiles,i,BufSize:Integer;
FFilePath:array of char;
FFileName:string;
begin
//取得文件个数
FNumFiles:=DragQueryFile(Message.Drop,$FFFFFFFF,nil,0);
//处理各个文件
for i:=0 to FNumFiles-1 do
begin
//获得存放文件名buffer的大小
BufSize:=DragQueryFile(Message.Drop,i,nil,0);
//获得文件名。文件名是以0结尾的字符串，包含路径。
SetLength(FFilePath,BufSize+1);
DragQueryFile(Message.Drop,i,PChar(FFilePath),BufSize+1);
//将文件名加入到listbox1中
listbox1.Items.Add(PChar(FFilePath));
end;
DragFinish(Message.drop);
end;

end.

My Email:cqhw2003@126.com

SeaWave 2004-05-05

打赏
举报

这个不能说是DropFile事件，呵呵，不能这么说

这是由WINDOWS发出的消息WM_DROPFILES，DELPHI里也能捕获这个消息：

procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

如何让某个文件拖到我所做的并运行中的程序的窗口放开后获取文件路径及文件名

相关推荐