用delphi实现rar文件的解压的方法

准备工作  
  下载winrar提供的动态链接库unrar.dll  
  http://www.rarlab.com/rar/UnRARDLL.exe（需解压）  
  下载为delphi提供的组件并安装  
  http://www.rarlab.com/rar/TDFUnRar.zip  
   
  在界面上添加安装的组件DFUnRar1  
  解压的代码为  
   
      with   DFUnRar1   do  
      begin  
          Directory   :=   ExtractFilePath(Application.ExeName);   //解压的目标目录  
          FileName   :=   'aa.rar';       //你需要解压的文件名，如果不放在相同目录下，需要设置全路径  
          Mode   :=   DFRAR_EXTRACT;  
          OverrideEvent   :=   OR_ALWAYS;  
          //Password   :=   '文件的密码';  
          Extract;  
      end;  
   
  以上只是提供简单的说明，  
  事实上能做到更多，大家自己看demo吧，就在上面第二个文件中