双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

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

huiwww 墨衍会员 · AI 创作全网分发关注 + 加入社区

DRAM内存模拟持久化设备的方法由于持久化内存介质NVM技术的发展，越来越多的科研工作者投身到NVM相关的研究当中。但由于目前工业界并没有推出广泛使用的NVM介质设备，所以科研工作都需要自己以现有的条件，模拟NVM设备使用场景。一个简单的方法是：通过修改DRAM模拟器，达到模拟NVM的目的(可以参考:DRAMSim2模拟器分析与应用)。更高端的方式是：在真实系统中，将内存划分出一块儿，用来模拟NVM设备(类似于传统的ramdis 阅读详情

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

...全文

uds协议之can总线程序升级 uds协议简介如何利用uds协议升级升级流程 uds服务类型介绍阅读详情

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;

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促