用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吧，就在上面第二個文件中