J'ai essayé deux UDF différents, 7Zip et SevenZip, et je n'arrive toujours pas a extraire le contenu de mon archive téléchargée dans le dossier de mon choix, voici ma fonction:
Code : Tout sélectionner
Func _install()
GuiDelete($Gui)
$Gui2 = GUICreate("Installation SpoutCraft ...", 343, 47, 199, 153,$WS_CAPTION)
$Label5 = GUICtrlCreateLabel("Téléchargement des fichiers requis", 30, 16, 300, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Tahoma")
GUISetState(@SW_SHOW)
InetGet("http://dl.dropbox.com/u/38636534/7-zip32.dll",@ScriptDir & "7-zip32.dll")
Sleep(500)
InetGet("http://dl.dropbox.com/u/38636534/spout.zip",@AppDataCommonDir & "/asta/spout.zip")
$zip = @AppDataCommonDir & "/asta/spout.zip"
$mcdir = @AppDataDir & "\.minecraft\"
GuiCtrlSetData($Label5,"Extraction...")
_SevenZipExtract($zip, $mcdir, '*', '', $Gui2)
Sleep(1000)
MsgBox(0,"test","lance ton client",5)
Exit
EndFunc
Merci d'avance !
EDIT: Ah oui, j'ai modifié la fonction _SevenZipExtract car elle ne trouvait pas la dll 7-zip sur mon PC, donc la voila:
Code : Tout sélectionner
Func _SevenZipExtract($sArchive, $sOutDir = ".", $sFilter = '*', $sCMDLine = '', $hWnd = 0)
$dll = DllOpen(@ScriptDir & "7-zip32.dll")
DllCall($dll, "int", "SevenZip", "hwnd", $hWnd, "str", 'x ' & $sCMDLine & ' -o' & $sOutDir & ' ' & $sArchive & ' ' & $sFilter, "int", 0)
$error = @error
DllClose($dll)
If $error Then
Return 0
Else
Return 1
EndIf
EndFunc ;==>_SevenZipExtract
