Moderators: white, Hacker, Stefan2
Versuch mal das Passwort in Anführungszeichen zu setzen.Markus Schebsdat wrote:Bei mir lassen sich rar Archive mit einem Passwort, dass Leerzeichen enthält, nicht entpacken. Auch nicht, wenn statt der unrar.dll das winrar Programm verwendet wird. Entpacke ich die Archive mit Winrar allein geht es.
Im Einsatz ist TCM 6.03a und Winrar 3.4B3
Ich glaube ich verstehe Deine Bedenken nicht.Hacker wrote:Wird wohl so leicht nicht moglich sein - woher soll man denn wissen, wo das Passwort aufhort?Wäre trotzdem schön, wenn das behoben wird.
Roman
Code: Select all
If $cmdline[0] = 0 then Exit
$archive = $cmdline[3]
$destination = $cmdline[4] & "\"
If $cmdline[0] > 5 then $pass = $cmdline[6]
$os = @OSType
$exe = "7zg.exe"
If $os = "WIN32_NT" then $exe = "7zgn.exe"
$commandline = $exe & ' x "' & $archive & '" -o"' & $destination & '"'
If $pass <> "" then $commandline = $commandline & " " & $pass
Run($commandline)Code: Select all
$exe = "7zg.exe"
If @OSType = "WIN32_NT" then $exe = "7zgn.exe"
$ini = @ScriptDir & "\7ztc.ini"
$ini_available = FileExists($ini)
$exe_available = FileExists(IniRead($ini, "Config", "Path", 0))
If Not BitAnd($ini_available, $exe_available) then
$initdir = RegRead("HKLM\Software\7-Zip", "Path")
if @error = 1 then $initdir = @ProgramFilesDir
$path = FileOpenDialog("7-Zip", $initdir, "7-Zip-Executable (" & $exe & ")", 3, $exe)
$path = StringLeft($path, StringLen($path) - StringLen($exe))
$success = IniWrite($ini, "Config", "Path", $path)
If $success = 0 then Exit
EndIf
If $cmdline[0] = 0 then Exit
$path = IniRead($ini, "Config", "Path", -1)
If $path = -1 then Exit
$archive = $cmdline[3]
$destination = $cmdline[4] & "\"
If $cmdline[0] > 5 then $pass = $cmdline[6]
$commandline = $path & $exe & ' x "' & $archive & '" -o"' & $destination & '"'
If $pass <> "" then $commandline = $commandline & " " & $pass
Run($commandline)Code: Select all
#NoTrayIcon
$exe = "7zg.exe"
If @OSType = "WIN32_NT" then $exe = "7zgn.exe"
$ini = @ScriptDir & "\7ztc.ini"
$ini_available = FileExists($ini)
$exe_available = FileExists(IniRead($ini, "Config", "Path", 0))
If Not BitAnd($ini_available, $exe_available) then
$initdir = RegRead("HKLM\Software\7-Zip", "Path")
if @error = 1 then $initdir = @ProgramFilesDir
$path = FileOpenDialog("7-Zip", $initdir, "7-Zip-Executable (" & $exe & ")", 3, $exe)
$path = StringLeft($path, StringLen($path) - StringLen($exe))
$success = IniWrite($ini, "Config", "Path", $path)
If $success = 0 then Exit
EndIf
If $cmdline[0] < 4 then Exit
$path = IniRead($ini, "Config", "Path", -1)
If $path = -1 then Exit
$unzip = " " & $cmdline[1] & " "
$filter = "*.*"
$overwrite = ""
$pass=""
$n=2
If $cmdline[2] = "-c-" then
$archive = $cmdline[3]
$n=4
Else
$archive = $cmdline[2]
$n=3
EndIf
$destination = $cmdline[$n] & "\"
if StringLeft($cmdline[$n+1],1) <> "@" then $filter = $cmdline[$n+1]
If $cmdline[0] > 4 then
if StringLeft($cmdline[$n+2],2) = "-p" then $pass = $cmdline[$n+2]
EndIf
If $cmdline[0] > 5 then
if StringLeft($cmdline[$n+2],3) = "-o+" then $overwrite = "-aoa"
EndIF
$commandline = $path & $exe & $unzip & '"' & $archive & '" -o"' & $destination & '" -ir!' & $filter & " " & $pass
Run($commandline)Hm, Suchwort "entpacken" führt direkt zum Treffer, der angegebene Shortcut ist Alt-F9, Alt-F6 ist eine Alternative dazu.(Das kannte ich bis eben übrigens noch gar nicht
und war einer meiner größten Kritikpunkte an TC. Wieso steht das nicht in
der Hilfe?).
Code: Select all
Dim $message
for $n = 1 to $cmdline[0]
$message = $message & $n & ": " & $cmdline[$n] & @CRLF
next
MsgBox(0, "Param-Test", $message)Den Test habe ich mit normalen rar-Archiven gemacht, nicht mit paßwortgeschützten. Bei paßwortgeschützten bekomme ich überhaupt keine Nachfrage nach dem Paßwort, offenbar hängt es da noch woanders.Besten Dank für deinen Test. Hast recht, ist eh nur für mich
und deine aufgeführten Bugs treten nur auf, wenn die Archive
passwortgeschützt sind.