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
Télécharger UnRAR.zip