文件不能直接拖到另一个文件夹

解决文件不能直接拖到另一个文件夹的具体步骤如下：

1、首先打开电脑，点击打开左下角开始菜单栏中的“运行”选项。

2、然后在d出来的窗口中点击输入“gpedit.msc”，回车确定。

3、然后在d出来的窗口中点击打开管理模板中的“Windows 组件”选项。

4、然后在d出来的窗口中点击打开任务计划程序中的“禁止拖放”选项。

5、然后点击选择“已禁用”选项，回车确定即可。

用鼠标拖动要复制的文件步骤：

1、打开要移动复制的文件所在的文件夹和目标文件夹，文件夹的窗口同时显示在屏幕上。

2、用鼠标右键单击文件，点击后文件名变成蓝底。

3、点击后，按住鼠标右键不放，鼠标指针移动到目标文件夹处，松开鼠标右键，会出现一个选项框，选项框内有复制和移动文件等选项。

4、将鼠标指针移动到需要的选项处，点击鼠标左键。则文件就复制到鼠标指针当前所处的文件夹。

在Delphi中有许多控件支持拖放 *** 作 但仅限于 应用程序内部 而不能实现从Windows环境里向应用程序拖放文件 本文将要介绍的就是如 何用Delphi编写支持文件拖放的应用程序 由于主要使用WindowsAPI函数 因此也可供其 它语言使用者参考

首先要说明的是下面的三个API函数 为通用起见 函数说明使用C语言格式

VOIDDragAcceptFiles(

HWNDhWnd

BOOLfAccept)

DragAcceptFiles函数是用来为拖放文件作初始化 它的第一个参数hWnd指明目标窗体的句柄 第二个参数fAccept是一个布尔型变量 为True时 则hWnd所指向的窗体可以接受拖放的文件

UINTDragQueryFile(

HDROPhDrop

UINTiFile

LPTSTRlpszFile

UINTcch)

DragQueryFile函数用来查询拖放文件的文件名 其 本身的返回值是一个无符号整数 参数hDrop是一个存放所拖放文件名称的数据结构的句柄 也就是文件名缓冲区的句柄 需要从Windows消息WM_DROPFILES中获得 iFile指明所要查询 文件的序号 它有两种取值方式 值为十六进制数FFFFFFFF时 DragQueryFile的返回值为 所拖放文件的数目值在 到拖放文件总数之间时 DragQueryFile函数将相应序号的文件 名放入参数lpszFile所指向的缓冲区内 若此时lpszFile的值为NULL 则DragQueryFile会返 回相应文件名的长度 参数cch决定缓冲区的长度 由于Windows 支持长文件名 它的值不能 设得太小

VOIDDragFinish(HDROPhDrop)

使用DragFinish函数告诉Windows拖放 *** 作结束 使 其释放文件名缓冲区 它的参数hDrop与DragQueryFiles函数中的一样 也由Windows消息WM_DROPFILES 的hDrop参数获得

下面将结合一个我编写的例子来说明具体的编程 步骤 本例中窗体上放置了一个Memo控件memo 在Windows中选取数个文件拖至程序窗体 放下 则memo 中便会显示所选文件的总数及每个文件的各自名称 程序代码如下:

unitUnit

interface

uses

Windows Messages SysUtils Classes

Graphics Controls Forms Dialogs

StdCtrls

type

TForm =class(TForm)

Memo :TMemo

procedureFormCreate(Sender:TObject)

procedureLabel Click(Sender:TObject)

procedureLabel Click(Sender:TObject)

private

PROCEDUREFinishDropped(Varmsg:TMessage)

MessageWM_DropFiles

{Privatedeclarations}

public

{Publicdeclarations}

end

var

Form :TForm

implementation

usesshellapi

{$R* DFM}

pro   ureTForm FormCreate(Sender:TObject)

begin

//initializethedragprocess

DragAcceptFiles(Handle True)

end

ProcedureTForm FinishDropped(Varmsg:TMessage)

Var

hDrop:THandle

iFile:Uint

lpszFile:pchar

CountOfFiles:integer

FileIndex:integer

ReSults:string

begin

hDrop:=Msg WParam

getmem(pchar )

iFile:=$FFFFFFFF

CountOfFiles:=DragQueryFile(hDrop iFile lpszFile )

ReSults:=

forFileIndex:= CountOfFiles do

begin

iFile:=FileIndex

DragQueryFile(hDrop iFile lpszFile )

//GettheFilename *** yorder

ReSults:=ReSults+# # +lpszFile

end

Dispose(lpszFile)

memo Clear

memo lines add(拖放了+IntToStr

(CountOfFiles)+个文件:+ReSults)

DragFinish(hDrop)

end

end

从以上代码可以看出 首先应该在窗体的OnCreate事 件中用DragAccepteFiles来说明程序窗体支持文件的拖放

另外 除了调用以上 个API函数 在Delphi中还应 编写针对WM_DROPFILES的消息处理过程FinishDropped 截取了WM_DROPFILES 由其wParam 才能够得到文件名缓冲区的句柄

在FinishDropped过程里 有两处DragQueryFile 函数 第一处其iFile参数为$FFFFFFFF 得到拖放文件的总数第二处iFile参数为每个文 件的序号 则可在lpszFile中可得到相应的文件名 当然 为了明显的对比iFile的值对DragQueryFile 函数的影响 这里的代码不够简练 有一点需要注意的是 lpszFile是Pchar型的变量 为了 程序运行安全 它使用前需用getmem过程为其分配内存 使用后再用dispose过程将其释放 在FinishDropped过程的最后 用DragFinish函数释放文件名缓冲区

lishixinzhi/Article/program/Delphi/201311/24695

---