怎么实现像rar的拖放功能,要拖放后解压数据的

如何实现像rar的拖放功能,要拖放后解压数据的
注意:是把程序里的数据拖到桌面或文件夹的,内部拖放的答案就别来浪费时间了很简单的, 
光拖放也很简单也不用来乱了, 
具体:用户拖放后左 键弹起时开始出来解压进度条,数据解压后存放到临时文件夹,然后拖放完成,解压后文件复制到用户拖放的目标文件夹 
最好是C#的解决方法哈, 
网上搜了无数,实在是找不到这类方法的解了,英文不大好,CSDN里没搜到...找到的都是拖进控件的... 
研究了好久,高手们别笑啊,我就分享下拖放出去的经验,如果不存在解压,把文件拖放到桌面是很简单的,直接用DoDragDrop,然后把数据填成WINDOWS的文件类型,系统就自动完成拖放了,不过中间有个解压问题就来了,希望高手们不吝给个法子哈,,搞了几天了,,累死了

[解决办法]
下面是转贴的代码，主要说明Drag Drop过程需要处理的事项。
其实lz已经找到了方法，只是很多案例是拖放到控件，而不是进行目录和文件操作的。其实是一样的，只是修改拖放所激发的过程就行了！

再简单一些，可以通过执行带参数的命令行解压文件到指定的目录即可。

C# code

 
 using System; 
 using System.Drawing; 
 using System.Collections; 
 using System.ComponentModel; 
 using System.Windows.Forms; 
 using System.Data; 
  
 namespace DragDrop 
 { 
  ///  <summary> 
  /// Form1 的摘要说明。 
  ///  </summary> 
  public class Form1 : System.Windows.Forms.Form 
  { 
 private System.Windows.Forms.ListBox listBox1; 
 private System.Windows.Forms.ListBox listBox2; 
 ///  <summary> 
 /// 必需的设计器变量。 
 ///  </summary> 
 private System.ComponentModel.Container components = null; 
  
 public Form1() 
 { 
  // 
  // Windows 窗体设计器支持所必需的 
  // 
  InitializeComponent(); 
  
  // 
  // TODO: 在 InitializeComponent 调用后添加任何构造函数代码 
  // 
 } 
  
 ///  <summary> 
 /// 清理所有正在使用的资源。 
 ///  </summary> 
 protected override void Dispose( bool disposing ) 
 { 
  if( disposing ) 
  { 
   if (components != null) 
   { 
    components.Dispose(); 
   } 
  } 
  base.Dispose( disposing ); 
 } 
  
 #region Windows 窗体设计器生成的代码 
 ///  <summary> 
 /// 设计器支持所需的方法 - 不要使用代码编辑器修改 
 /// 此方法的内容。 
 ///  </summary> 
 private void InitializeComponent() 
 { 
  this.listBox1 = new System.Windows.Forms.ListBox(); 
  this.listBox2 = new System.Windows.Forms.ListBox(); 
  this.SuspendLayout(); 
  // 
  // listBox1 
  // 
  this.listBox1.ItemHeight = 12; 
  this.listBox1.Location = new System.Drawing.Point(32, 24); 
  this.listBox1.Name = "listBox1"; 
  this.listBox1.Size = new System.Drawing.Size(120, 280); 
  this.listBox1.TabIndex = 0; 
  this.listBox1.MouseDown += new System.Windows.Forms.MouseEventHandler(this.listBox1_MouseDown); 
  // 
  // listBox2 
  // 
  this.listBox2.ItemHeight = 12; 
  this.listBox2.Location = new System.Drawing.Point(248, 24); 
  this.listBox2.Name = "listBox2"; 
  this.listBox2.Size = new System.Drawing.Size(120, 280); 
  this.listBox2.TabIndex = 0; 
  this.listBox2.DragDrop += new System.Windows.Forms.DragEventHandler(this.listBox2_DragDrop); 
  this.listBox2.DragEnter += new System.Windows.Forms.DragEventHandler(this.listBox2_DragEnter); 
  // 
  // Form1 
  // 
  this.AutoScaleBaseSize = new System.Drawing.Size(6, 14); 
  this.ClientSize = new System.Drawing.Size(408, 333); 
  this.Controls.Add(this.listBox1); 
  this.Controls.Add(this.listBox2); 
  this.Name = "Form1"; 
  this.Text = "Form1"; 
  this.Load += new System.EventHandler(this.Form1_Load); 
  this.ResumeLayout(false); 
  
 } 
 #endregion 
  
 ///  <summary> 
 /// 应用程序的主入口点。 
 ///  </summary> 
 [STAThread] 
 static void Main() 
 { 
  Application.Run(new Form1()); 
 } 
  
 private void Form1_Load(object sender, System.EventArgs e) 
 { 
  this.listBox1.AllowDrop = true; 
  this.listBox2.AllowDrop = true; 
  this.listBox1.Items.Add("a"); 
  this.listBox1.Items.Add("b"); 
  this.listBox1.Items.Add("c");  
 
 } 
  
 private void listBox1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e) 
 { 
  this.listBox1.DoDragDrop(this.listBox1.Items[this.listBox1.SelectedIndex],DragDropEffects.Move); 
 } 
  
 private void listBox2_DragEnter(object sender, System.Windows.Forms.DragEventArgs e) 
 { 
  if(e.Data.GetDataPresent("Text")) 
  { 
   e.Effect = DragDropEffects.Move; 
  } 
 } 
  
 private void listBox2_DragDrop(object sender, System.Windows.Forms.DragEventArgs e) 
 { 
  this.listBox2.Items.Add(e.Data.GetData("Text")); 
  this.listBox1.Items.Remove(e.Data.GetData("Text")); 
 } 
  } 
 } 
 

[解决办法]
利用Windows外壳扩展保护文件夹 


在Win32操作系统（包括Win9X、Windows NT、Windows 2000）不但有方便的图形用户（GUI）界面，微软还为windows用户界面保留了强大的可扩充性。其中对于Windows界面的操作环境（这里称为外壳Shell），微软提供了一种称为外壳扩展（Shell Extensions）的功能来实现文件系统操作的可编程性。如果你的机器中安装了Word 7.0以上的版本，当你鼠标右键单击一个DOC文件，在弹出菜单中选“属性”项，在属性页中不仅显示显示文件的大小、建立日期等信息，同时还增加了Doc文档的摘要、统计等信息；又例如安装了winZip 6.0以上版本后，当选中一个或多个文件或文件夹后在单击鼠标右键，在弹出的右键菜单中就增加了“Add To Zip”等一个zip文件压缩选项。上面的这些功能都是通过Windows外壳扩展来实现的。
Windows外壳扩展是这样实现的。首先要编写外壳扩展程序，一个外壳扩展程序是基于COM(Component Object Model)组件模型的。外壳是通过接口(Interface)来访问对象的。外壳扩展被设计成32位的进程中服务器程序，并且都是以动态链接库的形式为操作系统提供服务的。
写好外壳扩展程序后，必须将它们注册才能生效。所有的外壳扩展都必须在Windows注册表的HKEY_CLASSES_ROOT\CLSID键之下进行注册。在该键下面可以找到许多名字像{ACDE002F-0000-0000-C000-000000000046}的键，这类键就是全局唯一类标识符。每一个外壳扩展都必须有一个全局唯一类标识符，Windows正是通过此唯一类标识符来找到外壳扩展处理程序的。在类标识符之下的InProcServer32子键下记录着外壳扩展动态链接库在系统中的位置。

Windows系统支持以下7类的外壳扩展功能：
(1)Context menu handlers向特定类型的文件对象增添上下文相关菜单； 
(2)Drag-and-drop handlers用来支持当用户对某种类型的文件对象进行拖放操作时的OLE数据传输； 
(3)Icon handlers用来向某个文件对象提供一个特有的图标，也可以给某一类文件对象指定图标； 
(4)Property sheet handlers给文件对象增添属性页，属性页可以为同一类文件对象所共有，也可以给一个文件对象指定特有的属性页； 
(5)Copy-hook handlers在文件夹对象或者打印机对象被拷贝、移动、删除和重命名时，就会被系统调用，通过为Windows增加Copy-hook handlers，可以允许或者禁止其中的某些操作； 
(6)Drop target handlers在一个对象被拖放到另一个对象上时，就会被系统被调用； 
(7)Data object handlers在文件被拖放、拷贝或者粘贴时，就会被系统被调用。
本文介绍的文件夹保护功能就是通过上面的第5类，既Copy-hook handlers来实现的。一个支持Copy-hook handlers的程序除了上面提到的要在注册表的HKEY_CLASSES_ROOT\CLSID下注册之外，还需要在HKEY_CLASSES_ROOT\Directory\shellex\CopyHookHandlers\下注册服务器程序的类。
由于Windows外壳服务器程序是基于COM组件模型的，所以编写外壳程序就是构造一个COM对象的过程，由于Delphi4.0以上的版本支持Windows外壳扩展和COM组件模型，所以可以利用Delphi来编写外壳扩展程序。
利用Delphi编写Copy-hook handle需要实现ICopyHook接口。ICopyHook是一个十分简单的接口，要实现的只有CopyCallBack方法。ICopyHook的CopyCallBack方法的定义如下：
UINT CopyCallback(
HWND hwnd, file://Handle/ of the parent window for displaying UI objects
UINT wFunc, file://Operation/ to perform.
UINT wFlags, file://Flags/ that control the operation
LPCSTR pszSrcFile, file://Pointer/ to the source file
DWORD dwSrcAttribs, file://Source/ file attributes
LPCSTR pszDestFile, file://Pointer/ to the destination file
DWORD dwDestAttribs file://Destination/ file attributes
);
其中的参数hwnd是一个窗口句柄，Copy-hook handle以此为父窗口。参数wFunc指定要被执行的操作，其取值为下表中所列之一：
常量 取值 含义
FO_COPY $2 复制由pszSrcFile指定的文件到由pszDestFile指定的位置。
FO_DELETE $3 删除由pszSrcFile指定的文件。
FO_MOVE $1 移动由pszSrcFile指定的文件到由pszDestFile指定的位置。
FO_RENAME $4 重命名由pszSrcFile指定的文件到由pszDestFile指定的文件名。
PO_DELETE $13 删除pszSrcFile指定的打印机。
PO_PORTCHANGE $20 改变打印机端口。PszSrcFile和pszDestFile为两个以Null结尾的字符串，分别指定当前和新的打印机端口名。
PO_RENAME $14 重命名由pszSrcFile指定的打印机端口。
PO_REN_PORT $34 PO_RENAME和PO_PORTCHANGE的组合。

参数wFlags指定操作的标志；参数pszSrcFile和pszDestFile指定源文件夹和目标文件夹。参数dwSrcAttribs和dwDesAttribs指定源文件夹和目标文件夹的属性。函数返回值可以为IDYES、IDNO和IDCANCEL。分别指示Windows外壳允许操作、阻止操作，但是其他操作继续、阻止当前操作，取消为执行的操作。
下面是具体的程序实现：
首先在Delphi的菜单中选 File|New选项，选择其中的DLL图标，按Ok键建立一个DLL工程文件，在其中添加以下代码：
library CopyHook;

uses
ComServ,
CopyMain in ’CopyMain.pas’;

exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;

{$R *.TLB}

{$R *.RES}

begin
end.
将文件保存为 CopyHook.dpr。再在Delphi菜单中选File|New选项，选择其中的Unit图标，按Ok键建立一个Pas文件，在其中加入以下代码：
unit CopyMain;

interface

uses Windows, ComObj, ShlObj;

type
TCopyHook = class(TComObject, ICopyHook)
protected
function CopyCallback(Wnd: HWND; wFunc, wFlags: UINT; pszSrcFile: PAnsiChar;
dwSrcAttribs: DWORD; pszDestFile: PAnsiChar; dwDestAttribs: DWORD): UINT; stdcall;
end;

TCopyHookFactory = class(TComObjectFactory)
protected
function GetProgID: string; override;
procedure ApproveShellExtension(Register: Boolean; const ClsID: string);
virtual;
public
procedure UpdateRegistry(Register: Boolean); override;
end;

implementation

uses ComServ, SysUtils, Registry;

{ TCopyHook }

file://当/Windows外壳程序执行文件夹或者打印机端口操作时，CopyCallBack
file://方/法就会被调用。
function TCopyHook.CopyCallback(Wnd: HWND; wFunc, wFlags: UINT;
pszSrcFile: PAnsiChar; dwSrcAttribs: DWORD; pszDestFile: PAnsiChar;
dwDestAttribs: DWORD): UINT;
const
FO_COPY = 2;
FO_DELETE = 3;
FO_MOVE = 1;
FO_RENAME = 4;
var
sOp:string;
begin
Case wFunc of
FO_COPY: sOp:=format(’你确定要将 %s 拷贝到 %s 吗？’,[pszSrcFile,pszDestFile]);
FO_DELETE: sOp:=format(’你确定要将 %s 删除吗？’,[pszSrcFile]);
FO_MOVE: sOp:=format(’你确定要将 %s 转移到 %s 吗？’,[pszSrcFile,pszDestFile]);
FO_RENAME: sOp:=format(’你确定要将 %s 重命名为 %s 吗？’,[pszSrcFile,pszDestFile]);
else
sOp:=format(’无法识别的操作代码 %d’,[wFlags]);
end;
// 提示，让用户决定是否执行操作
Result := MessageBox(Wnd, PChar(sOp),
’文件挂钩演示’, MB_YESNOCANCEL);
end;

{ TCopyHookFactory }

function TCopyHookFactory.GetProgID: string;
begin
Result := ’’;
end;

procedure TCopyHookFactory.UpdateRegistry(Register: Boolean);
var
ClsID: string;
begin
ClsID := GUIDToString(ClassID);
inherited UpdateRegistry(Register);
ApproveShellExtension(Register, ClsID);
if Register then
file://将/clsid 加入到注册表的CopyHookHandlers中
CreateRegKey(’directory\shellex\CopyHookHandlers\’ + ClassName, ’’,
ClsID)
else
DeleteRegKey(’directory\shellex\CopyHookHandlers\’ + ClassName);
end;

procedure TCopyHookFactory.ApproveShellExtension(Register: Boolean;
const ClsID: string);
const
SApproveKey = ’SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved’;
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if not OpenKey(SApproveKey, True) then Exit;
if Register then WriteString(ClsID, Description)
else DeleteValue(ClsID);
finally
Free;
end;
end;

const
CLSID_CopyHook: TGUID = ’{66CD5F60-A044-11D0-A9BF-00A024E3867F}’;
LIBID_CopyHook: TGUID = ’{D2F531A0-0861-11D2-AE5C-74640BC10000}’;

initialization
TCopyHookFactory.Create(ComServer, TCopyHook, CLSID_CopyHook,
’CR_CopyHook’, ’文件操作挂钩演示’,ciMultiInstance, tmApartment);
end.
将文件保存为CopyMain.Pas文件，然后编译程序为CopyHook.Dll文件，然后注册CopyHook.Dll文件，你可以使用Windows提供的RegSvr32.exe来注册，注册的方法是在Dos窗口中进入Windows的System子目录，然后在其中输入Regsvr32 x:\xxx\xxx\copyhook.dll ，其中x:\xxx\xxx\是编译的CopyHook.dll所在的全路径名。也可以在Run菜单中选择Register ActiveX Server来注册。
当文件注册成功之后，在Windows的Explore中任意改变一个文件夹的名字或者移动一个目录，就会有一个提示框弹出，提示用户是否确定执行操作。如图所示：



按“是”将执行文件夹操作，按“否”或者“取消”将取消相应的文件夹操作。
上面介绍的只是Delphi实现Windows外壳扩展的一种，参照上面的程序和Delphi关于Windows的COM组件模型的编程，就可以编写出十分专业化的Windows外壳扩展程序。

[解决办法]
哈哈， 这个问题我也遇到过

后来搜的结果就是需要加一个 explorer 的扩展， 应该就是 3 楼的答案
[解决办法]
我可以说上面的答案都错,人家要的答案是要从里面拖出来,上面的答案都是从外面拖进去嘀
[解决办法]
楼主的问题可能需要利用钩子技术来解决吧

简单一点的处理就是在程序中直接浏览文件夹，然后完成所有的功能。楼主一定要用拖放技术吗？

[解决办法]
How to drag a virtual file from your app into Windows Explorer
http://www.codeproject.com/KB/tips/ExplorerDelayDrop.aspx
这个应该是想要的东西！我已经实现了！

查看更多 下一篇