Utilisation de unrar.dll (décompression d'un fichier winrar)

[falsam]

Inutile de réinventer la roue, ts-soft sur le forum anglais l'a fait pour vous sous la forme d'un module qui utilise unrar.dll.

Un exemple simple de code utilisant cette dll

Code : Tout sélectionner

XIncludeFile "unrar_module.pbi"

UseModule unrar

Define.s File, Path

File = OpenFileRequester("Selectionner le fichier à décompresser", "", "RAR-Archiv (*.rar)|*.rar", 0)
If file <> ""
  Path = PathRequester("Selectionner le dossier de Destination", "")
  
  If Path=""
    Path =  GetPathPart(File)
  EndIf
  
  RARUnpackArchiv(File, Path)
EndIf

L'include, cette simple demo ainsi que les dll (32 & 64 bits) se trouvent dans l'archive çi-dessous.

Télécharger UnRAR.zip

[graph100]

Je l'utilise depuis quelques années déjà ce code ! Très pratique !

Cependant pour l'adaptation Linux c'est une autre affaire... et c'est ça qui me chagrine