如何将文件从自己的应用软件里拖拽或“复制”“粘贴”到windows资源管理器里? ( 积分: 200 )

hehanyang · 2007-04-17

我的一个办公管理软件里要用到上传下载文件到数据库里，为了操作方便，用户可以使用拖拽和复制，实现与windows的资源管理器方便结合。 如果在windows的资源管理器里选择几个文件后点了“复制”，到我的应用程序里要粘贴，我可以得到这些文件名，然后自己写代码把这些文件上传到服务器上去就可以了。这一步好实现我已经做出来了。但是反过来，如果在我的应用程序里选择了几个文件名后点了“复制”，如何在windows的资源管理器里点“粘贴”时将文件从服务器里下载到“粘贴”的目录里呢？ 哪位高手知道呢？我现在的笨方法是：当在点了“复制”后，就立即将文件输出到临时目录，然后 用下面给出的ClipCutOrCopyFiles函数将文件名传给windows的资源管理器，问题是如果用户不“粘贴”了呢？岂不是白白输出文件浪费资源了吗？ type DROPFILES = record    pFiles

WORD ; // offset of file list    pt : TPOINT ;     // drop point (coordinates depend on fNC)    fNC : BOOLean ;     // see below    fWide : BOOLean ;   // TRUE if file contains wide characters, end;                  // FALSE otherwise LPDROPFILES = ^DROPFILES; const DROPEFFECT_COPY = 1;       DROPEFFECT_MOVE = 2; procedure ClipCutOrCopyFiles(lpFiles

char;uBufLen:UINT; bCopy:boolean); var uDropEffect,uGblLen, uDropFilesLen: UINT ;     dpFiles : DROPFILES;     hGblFiles,hGblEffect:HGLOBAL;     szData,szFileList

char;     dwDropEffect : PDword; begin       uDropEffect:=RegisterClipboardFormat('Preferred DropEffect');       hGblEffect:=GlobalAlloc(GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_DDESHARE,sizeof(DWORD));       dwDropEffect:=GlobalLock(hGblEffect);       if(bCopy)  then             dwDropEffect^:=DROPEFFECT_COPY       else             dwDropEffect^:=DROPEFFECT_MOVE;       GlobalUnlock(hGblEffect);       uDropFilesLen:=sizeof(DROPFILES);       dpFiles.pFiles :=uDropFilesLen;       dpFiles.pt.x:=0;       dpFiles.pt.y:=0;       dpFiles.fNC :=FALSE;       dpFiles.fWide := TRUE ; //   False;       uGblLen:=uDropFilesLen+uBufLen*2+8;       hGblFiles:= GlobalAlloc(GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_DDESHARE, uGblLen);       szData:=GlobalLock(hGblFiles);       copymemory(szData,(@dpFiles),uDropFilesLen);       szFileList:=szData+uDropFilesLen;       MultiByteToWideChar(CP_ACP,MB_COMPOSITE,                   lpFiles,uBufLen,PWCHAR( szFileList),uBufLen);       GlobalUnlock(hGblFiles);       if( OpenClipboard(0)&nbsp

then       begin             EmptyClipboard();             SetClipboardData( CF_HDROP, hGblFiles&nbsp

;             SetClipboardData(uDropEffect,hGblEffect);             CloseClipboard();       end; end;

mazheng · 2007-04-17

guanzhu....

hehanyang · 2007-04-18

怎么没有人回答呢？我继续等。 大家用Delphi写软件不要只是使用数据库控件写纯数据库方面的软件，它同样可以写深层次的工具软件。在你的数据库软件里加一些“高级”一点的操作，你的软件档次就提高了。比如拖拽、复制、树结构显示、实时通讯（如业务员提交清单后给审批领导发一个消息）、视频显示、图像处理等。望各位高手给于指点。

TrustMe · 2007-04-18

我使用的是DoDragDrop函数，这个函数有返回值可以判断是否已经粘贴了。 原理和你的实现是一样的，也是将文件先拷贝到临时目录。

hehanyang · 2007-04-18

to TrustMe：能具体一点说明一下DoDragDrop函数的使用吗？是不是复制以后就调用DoDragDrop函数？这个函数是堵塞模式还是有回调事件让我知道已经“粘贴”了呢？最好给一段例子代码。谢谢。

maze · 2007-04-18

不需要用临时目录，可以直接拷贝到剪贴版的（当然只是文件信息） 具体你看一下SetClipboardData 函数就知道了

hehanyang · 2007-04-18

to maze： 如果不先将文件输出到临时目录而只将文件信息输出到剪贴板，则资源管理器的“粘贴”菜单是灰的。而且我不知道何时资源管理器已经点了“粘贴”菜单。

QSmile · 2007-04-18

我是直接用 TDropDrag 控件完成的，效果不错 www.2ccc.com 有下

TrustMe · 2007-04-18

我只能给你一部分代码：这段代码只是缺少IDataObject和IDropSource的声明，实现部分我提供给你。 procedure TMainFm.List1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin          Fmousedown:= Assigned(list1.GetItemAt(X, Y)); end; procedure TMainFm.List1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); var  effect: integer; begin  if Fmousedown and (list1.SelCount > 0) then begin   effect:= DROPEFFECT_NONE;   DoDragDrop(self, Self, DROPEFFECT_MOVE, effect);   // TODO : 在这里判断effect的值是否等于 DROPEFFECT_MOVE      Fmousedown:= False;  end; end; procedure TMainFm.List1MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  Fmousedown:= False; end;  { IEnumFormatEtc } type  TEnumFormatEtc = class(TInterfacedObject, IEnumFormatEtc)  private   Ffetched: boolean;  public   function Next(celt: Longint; out elt;     pceltFetched: PLongint): HResult; stdcall;   function Skip(celt: Longint): HResult; stdcall;   function Reset: HResult; stdcall;   function Clone(out Enum: IEnumFormatEtc): HResult; stdcall;  end; function TEnumFormatEtc.Next(celt: Longint; out elt;          pceltFetched: PLongint): HResult; begin  result:= S_FALSE;  if (not Ffetched) and (celt > 0) and (@elt <> nil) then begin   PFormatEtc(@elt)^.cfFormat:= CF_HDROP;   PFormatEtc(@elt)^.ptd:= nil;   PFormatEtc(@elt)^.dwAspect:= DVASPECT_CONTENT;   PFormatEtc(@elt)^.lindex:= -1;   PFormatEtc(@elt)^.tymed:= TYMED_HGLOBAL;   if pceltFetched <> nil then    pceltFetched^:= 1;   result:= S_OK;   Ffetched:= True;  end; end; function TEnumFormatEtc.Skip(celt: Longint): HResult; begin  if (Ffetched and (celt > 0)) or ((not Ffetched) and (celt > 1)) then   result:= S_FALSE  else result:= S_OK;  Ffetched:= True; end; function TEnumFormatEtc.Reset: HResult; begin  Ffetched:= False;  result:= S_OK; end; function TEnumFormatEtc.Clone(out Enum: IEnumFormatEtc): HResult; begin  Enum:= TEnumFormatEtc.Create;  result:= S_OK; end;  { TODO : IDataObject } function TMainFm.QueryGetData(const formatetc: TFormatEtc): HResult; begin  result:= DV_E_FORMATETC;  if (formatetc.cfFormat = CF_HDROP) and  //表示支持文件拖拽格式     (formatetc.tymed = TYMED_HGLOBAL) and     (formatetc.dwAspect = DVASPECT_CONTENT) then   result:= S_OK; end; function TMainFm.GetData(const formatetcIn: TFormatEtc;          out medium: TStgMedium): HResult; var  BufferText : String;  pGlobal    : Pointer;  i: integer;  fb: TFileBaseObj;  l: TListItem;  s: string; begin  result:= DV_E_FORMATETC; //不支持的格式  if Failed(QueryGetData(formatetcIn)) then Exit;  BufferText:= '';  ZeroMemory(@medium, SizeOf(TStgMedium));  medium.tymed:= formatetcIn.tymed;  for i:= 0 to list1.Items.Count - 1 do begin   l:= list1.Items;   if l.Selected then begin    fb:= TFileBaseObj(l.Data);    if fb = nil then fb:= trmObj.fileSys.selectFile(PChar(FcurDir + '/' + string(l.Caption)));    if fb <> nil then begin     l.Data:= fb;     BufferText:= BufferText + FtempDir + '/' + string(fb.name) + #0;    end;   end;  end;  // 只拷贝文件名  BufferText:= BufferText + #0;  Medium.hGlobal:= GlobalAlloc(GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_SHARE,                   Length(BufferText) + Sizeof(TDropFiles));  pGlobal:= GlobalLock(Medium.hGlobal);  if pGlobal <> nil then try   PDropFiles(pGlobal)^.pFiles:= Sizeof(TDropFiles);   PDropFiles(pGlobal)^.pt:= Point(0, 0);   PDropFiles(pGlobal)^.fNC:= False;   PDropFiles(pGlobal)^.fWide:= False;   Inc(Longword(pGlobal), Sizeof(TDropFiles)); //指针后移   CopyMemory(PGlobal, @BufferText[1], Length(BufferText));  finally   GlobalUnlock(Medium.hGlobal);  end;  Medium.unkForRelease := nil;  result:= S_OK; end; function TMainFm.EnumFormatEtc(dwDirection: Longint; out enumFormatEtc:          IEnumFormatEtc): HResult; begin  if dwDirection = DATADIR_GET then begin   enumFormatEtc:= TEnumFormatEtc.Create;   result:= S_OK;  end else begin   enumFormatEtc:= nil;   Result:= E_NOTIMPL;  end; end; function TMainFm.GetDataHere(const formatetc: TFormatEtc;          out medium: TStgMedium): HResult; begin  result:= E_NOTIMPL; end; function TMainFm.GetCanonicalFormatEtc(const formatetc: TFormatEtc;          out formatetcOut: TFormatEtc): HResult; begin  formatetcOut.ptd:= nil;  result:= E_NOTIMPL; end; function TMainFm.SetData(const formatetc: TFormatEtc; var medium: TStgMedium;          fRelease: BOOL): HResult; begin  result:= E_NOTIMPL; end; function TMainFm.DAdvise(const formatetc: TFormatEtc; advf: Longint;          const advSink: IAdviseSink; out dwConnection: Longint): HResult; begin  result:= OLE_E_ADVISENOTSUPPORTED; end; function TMainFm.DUnadvise(dwConnection: Longint): HResult; begin  result:= OLE_E_ADVISENOTSUPPORTED; end; function TMainFm.EnumDAdvise(out enumAdvise: IEnumStatData): HResult; begin  result:= OLE_E_ADVISENOTSUPPORTED; end;  { TODO :  IDropSource } function TMainFm.QueryContinueDrag(fEscapePressed: BOOL;          grfKeyState: Longint): HResult; var  ow: TtrustConfirmResult;  i: integer;  l: TListItem;  fb: TFileBaseObj; begin  result:= S_OK;  if fEscapePressed or (grfKeyState and MK_RBUTTON = MK_RBUTTON) then   result:= DRAGDROP_S_CANCEL  else if grfKeyState and MK_LBUTTON = 0 then begin   for i:= 0 to List1.Items.Count - 1 do begin    l:= list1.Items;    if l.Selected then begin     fb:= TFileBaseObj(l.Data);     if fb <> nil then begin      ow:= trcrAllYes;      // 解压数据      trmObj.inflate(fb, @FtempDir[1], ow, True);     end;    end;   end;   result:= DRAGDROP_S_DROP;  end; end; function TMainFm.GiveFeedback(dwEffect: Longint): HResult;  begin  result:= DRAGDROP_S_USEDEFAULTCURSORS; end;

hehanyang · 2007-04-18

to TrustMe： 你所给的代码只能实现拖拽功能，却不能实现在自己的软件里点“复制”按钮后，到windows资源管理器里点“粘贴”菜单的功能。 就是拖拽也还存在问题：下面的代码里 >>>>>>>>>>>>>>>>>>>>>>>> function TMainFm.GetData(const formatetcIn: TFormatEtc;          out medium: TStgMedium): HResult;    ......      BufferText:= BufferText + FtempDir + '/' + string(fb.name) + #0;    ....... >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 如果源文件“FtempDir + '/' + string(fb.name)”是不存在的，要等待从自己的软件里将数据输出后才有的，那么资源管理器就不会接受这个文件。 winrar软件也没有从它的软件里选择文件复制的功能，只有拖拽功能。我发现当将文件从winrar软件里拖出时，winrar先解压数据到临时文件夹，然后windows再将它复制文件到拖出的那个文件夹。 winrar软件都没有实现的功能，我们难道就一定无法实现吗？使用IE浏览器访问FTP时就可以这样做（在IE里选择文件后复制，然后到资源管理器里粘贴，粘贴时才从FTP站点下载文件，而且直接到目的文件夹）。

TrustMe · 2007-04-19

我给的代码，我使着没问题。 在GetData中只输出文件名没错，但浏览器接受。 数据输出是在QueryContinueDrag中实现的，这时候拖曳已经完成。 总不能，鼠标一开始拖就输出文件数据吧，如果数据输出了而用户取消了拖曳怎么办。 至于你要求的先“复制”再“粘贴”，没研究过，不好意思！

hehanyang · 2007-04-19

非常感谢TrustMe的耐心帮助！ 但是我的问题仍然没有解决。希望各位高手继续帮我一把。 刚才我仔细研究winrar软件，结果在winrar“文件”菜单下有一个“复制文件到剪贴板”的菜单（我以前怎么就没有看到呢，真是的！）。我压缩了一个100多M的文件，用winrar软件打开后，选择这个文件后，点“复制文件到剪贴板”菜单，文件信息到剪贴板里了，但没有解压缩。当我在资源管理器里点右键时，菜单很久才弹出来，结果发现在C:/Documents and Settings/MyUsername/Local Settings/Temp/Rar$DR02.532目录下找到了这个文件，点了“粘贴”按钮后，资源管理器将这个目录下的文件剪切到了我“粘贴”的目录里。如果我在winrar软件里再次点“复制文件到剪贴板”菜单，然后在资源管理器里点右键时，菜单很久才弹出来，又在另外的C:/Documents and Settings/MyUsername/Local Settings/Temp/Rar$DR20.239目录下找到了解压缩后的文件。我不粘贴，再在资源管理器里点右键时，菜单很快弹出来，“粘贴”菜单是灰色的。 各位已经看到了，winrar软件是检测资源管理器的弹出菜单的消息，一弹就解压缩，即使用户这次不是选择“粘贴”菜单，再弹就不能粘贴了。   我哭！这样解决问题我也会。难道没有更好的方法了？

QSmile · 2007-04-20

有必要吗？用现成的控件多好

hehanyang · 2007-04-21

QSmile总是提到用现成的控件，却不提供控件的功能与详细下载地址。

QSmile · 2007-04-25

Look this http://www.2ccc.com/article.asp?articleid=462

hehanyang · 2007-05-04

我看了QSmile提供的控件，好像没有将自己系统里的文件“复制文件到剪贴板”的功能，只有“从剪贴板粘贴文件进来”的功能。所以不能解决我的问题。

zjgrd888 · 2007-05-08

请参考<<DELPHI深度探索>>一书中的SHELL部分

墨剑 · 2007-05-11

我也正在研究这个问题,不过纯属研究,已经明确回答客户做不到了.呵呵. 你们说的这些我都试过,但还是没辙.  最后一位仁兄说的shell,是否指的时shell钩子? 我也试过,不行. windows的粘贴这个动作时截获不了的,不管你用shell钩子,还是鱼钩,铁构,都勾不住. 看我的帖子.http://www.delphibbs.com/delphibbs/dispq.asp?lid=3709818

hehanyang · 2007-05-12

墨剑也许说得对，从自己的软件里“复制”文件然后到资源管理器“粘贴”文件是没有办法的，windows没有提供相应API接口，windows只给自己的IE浏览器留了个后门，其他软件都没有办法了。Winrar软件是捕捉windows点右键时进行解压缩操作的，我们也只有这样做了。

白河愁 · 2007-05-12

不给接口,就自己 Hook 一个出来咯。

如何将文件从自己的应用软件里拖拽或“复制”“粘贴”到windows资源管理器里? ( 积分: 200 )

hehanyang

Unregistered / Unconfirmed

mazheng

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

TrustMe

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

maze

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

TrustMe

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

TrustMe

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

zjgrd888

Unregistered / Unconfirmed

墨剑

Unregistered / Unconfirmed

hehanyang

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

Similar threads