Da von Zeit zu Zeit immer mal Fragen zu 7zip auftauchen, biete ich hier einmal einen kleinen Service zu 7zip.
Exe-Dateien, Zip, 7z, mit und ohne Passwort in AutoIT werden kurz vorgestellt.
Hiermit sind Alle eingeladen, ihre Erfarungen hier einzustellen und so für Andere über Hilfe/Suchen leichter zugänglich.
Spoiler anzeigen
; by Ritzelrocker04
; Selbstentpackendes Archiv (EXE-Datei) erstellen mit 7zip
[/autoit] [autoit][/autoit] [autoit]; 1. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & "C:\TEST\*.*",@ScriptDir ,@SW_MINIMIZE)
; 2. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & "C:\TEST",@ScriptDir ,@SW_MINIMIZE)
; Zip-Archiv erstellen mit 7zip
[/autoit] [autoit][/autoit] [autoit]; 3. Format zip
RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
; 4. klassisch packen mit Variablen Format zip
$zip = '7z a -tzip ' ; Pfad zu 7zip
$archiv = 'archiv.zip ' ; Name des zu erstellenden ZIP-Archivs (anpassen)
$pfad = Chr(34) & @ScriptDir & '\test\' & Chr(34); Verzeichnis das gepackt werden soll (anpassen)
RunWait(@ComSpec & ' /c ' & $zip & $archiv & $pfad, @ScriptDir, @SW_HIDE)
; 5. klassisch packen mit Variablen in Funktion Format zip (by qon)
Func _zip($sZipname,$sFoldertozip)
If Fileexists(@scriptdir & "\7z.exe") <> 1 Then Seterror(1,0,0)
IF Fileexists($sFoldertozip) = 0 Then Seterror(2,0,0)
RunWait(@ComSpec & ' /c ' & '7z a -tzip ' & $sZipname & " " & Chr(34) & $sFoldertozip & "\" & Chr(34), @ScriptDir,@SW_HIDE)
IF @error <> 0 Then Seterror(3,0,0)
EndFunc
; packen mit Passwort und Verschlüsselung
[/autoit] [autoit][/autoit] [autoit]; 6. Format 7z
RunWait(@ComSpec & ' /c ' & "7z a -t7z " & "C:\TEST.7z " & '"C:\TEST" -pGeheim -mhe',@ScriptDir ,@SW_MINIMIZE)
; 7. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & '"C:\TEST" -pGeheim -mhe',@ScriptDir ,@SW_MINIMIZE)
Weiterhin viel Erfolg !