Es soll auf allen Rechnern laufen, egal ob Win 32 oder 64. Und es soll auch erkennen, ob Winrar für aktuellen Benutzer, oder für alle Benutzer installiert ist. Dementsprechend ändert sich auch der Registry Pfad.
Deshalb die ganzen If´s. Es soll halt überall laufen. 
Bin da noch Anfänger und freu mich, wenn es überhaupt läuft.
EDIT: Habe Dein Script mal getestet. Da wird lediglich die Ini erstellt, mehr passiert da nicht.
Und ich sitze an diesem Code-Schnipsel schon seit heute Morgen. 
EDIT:
Dank Euch ist es nun fertig. Dieser Script erkennt, ob Winrar installiert ist oder nicht. Es überprüft, ob WinRar gerade im Hintergrund läuft und schließt es gegebenenfalls. Dann wird eine Rar.ini mit dem installiertem WinRar Pfad erstellt (kann man weiter mit arbeiten, ist aber eigentlich unnötig).
Dann wird der Reg. Zweig mit allen WinRar Einstellungen ausgelesen und im Scriptverzeichnis im Unterordner "Backups\WinRAR" erstellt. Im nächsten Schritt werden dann alle installierten Winrar Themes in das selbe Verzeichnis kopiert.
Und so siet es dann fertig aus:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.4.0
Author: PolytroX
Programmname: WinRar Backup
Script Function: Sichert alle vorhandenen WinRar Einstellungen und installierten Themes.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]$HLM = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\WinRar", "exe64")
$HCU = RegRead("HKEY_CURRENT_USER\Software\WinRAR", "")
$themes = @AppDataDir &"\WinRAR\Themes"
if Not FileExists($HLM) Or ($HCU) Then
MsgBox(0,"Fehler!", "Winrar ist zur Zeit nicht installiert! Das Programm wird nun beendet.")
Exit
EndIf
If FileExists($HLM) Or ($HCU) Then
IniWrite ("rar.ini","Rar_local_machine", "Install_Pfad", $HLM)
IniWrite ("rar.ini","Rar_all users", "Install_Pfad", $HCU)
EndIf
If ProcessExists ( "WinRAR.exe") Then
MsgBox (0,"Hinweis!", "WinRAR ist derzeit geöffnet. Der Prozess wird nun geschlossen")
ProcessClose ( "WinRAR.exe")
Run('Regedit /e ' & @ScriptDir & '\Backups\WinRAR\winrar.reg HKEY_CURRENT_USER\Software\WinRAR') ; Liest die Reg aus und speichert sie
DirCopy ($themes , @ScriptDir & "\Backups\WinRAR" ,1 )
MsgBox (0,"WinRAR Backup!", "Die komplette WinRAR sicherung ist nun abgeschlossen Sie können WinRAR nun starten.")
Exit
EndIf
If Not ProcessExists ( "WinRAR.exe") Then
MsgBox (0,"WinRAR Backup!", "WinRAR Einstellungen und gespeicherte Themes werden nun gesichert.")
Run('Regedit /e ' & @ScriptDir & '\Backups\WinRAR\winrar.reg HKEY_CURRENT_USER\Software\WinRAR'); Liest die Reg aus und speichert sie
DirCopy ($themes , @ScriptDir & "\Backups\WinRAR" ,1 )
MsgBox (0,"WinRAR Backup!", "Die komplette WinRAR sicherung ist nun abgeschlossen Sie können WinRAR nun starten.")
Exit
EndIf
Vielen Dank an alle, die mir dabei geholfen haben. *freu*
Hmm... leider geht das so scheinbar nicht. Bekomme dabei folgenden Fehler:
[Blockierte Grafik: http://www.abload.de/img/unbenannt0sjx5.png]
Die Benutzerkontensteuerung ist bei mir deaktiviert.
EDIT: Mein Fehler. Nun klappt es perfekt. 
Vielen DANK !!
Ich habe folgendes Problem. Ich möchte ein Script schreiben, welches mir alle WinRAR Einstellungen die in der Registry liegen komplett speichern.
Das klappt leider nur mit direkter Pfadangabe. Ich möchte es aber so haben, dass es über "ScriptDir" funktioniert.
So funktioniert es:
[autoit];Run("Regedit /e C:\Users\PolytroX\Desktop\winrar.reg " & "HKEY_CURRENT_USER\Software\WinRAR")
[/autoit]Aber dieses leider nicht:
[autoit]Run('Regedit /e @ScriptDir" & "\winrar.reg" & "HKEY_CURRENT_USER\Software\WinRAR')
[/autoit]Es soll im Script Verzeichnis mit Unterordnern gesichert werden, auch wenn ich den Script verschiebe.
Ganzer Code sieht so aus:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.4.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]$HLM = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\WinRar", "exe64")
$HCU = RegRead("HKEY_CURRENT_USER\Software\WinRAR", "")
$themes = @AppDataDir &"\WinRAR\Themes"
$regsave =
if Not FileExists($HLM) Or ($HCU) Then
MsgBox(0,"Fehler!", "Winrar ist zur Zeit nicht installiert! Das Programm wird nun beendet.")
Exit
EndIf
If FileExists($HLM) Or ($HCU) Then
IniWrite ("rar.ini","Rar_local_machine", "Install_Pfad", $HLM)
IniWrite ("rar.ini","Rar_all users", "Install_Pfad", $HCU)
EndIf
If ProcessExists ( "WinRAR.exe") Then
MsgBox (0,"Hinweis!", "WinRAR ist derzeit geöffnet. Der Prozess wird nun geschlossen")
ProcessClose ( "WinRAR.exe")
Run("Regedit /e C:\Users\PolytroX\Desktop\winrar.reg " & "HKEY_CURRENT_USER\Software\WinRAR") ; diese Stelle soll keine feste Pfadangabe haben
DirCopy ($themes , @ScriptDir & "\Backups\WinRAR" ,1 )
MsgBox (0,"WinRAR Backup!", "Die komplette WinRAR sicherung ist nun abgeschlossen Sie können WinRAR nun starten.")
Exit
EndIf
If Not ProcessExists ( "WinRAR.exe") Then
MsgBox (0,"WinRAR Backup!", "WinRAR Einstellungen und gespeicherte Themes werden nun gesichert.")
Run("Regedit /e C:\Users\PolytroX\Desktop\winrar.reg " & "HKEY_CURRENT_USER\Software\WinRAR"); diese Stelle soll keine feste Pfadangabe haben
DirCopy ($themes , @ScriptDir & "\Backups\WinRAR" ,1 )
MsgBox (0,"WinRAR Backup!", "Die komplette WinRAR sicherung ist nun abgeschlossen Sie können WinRAR nun starten.")
Kann mir da bitte Jemand helfen, wie ich es hin bekomme, dass ich es auch verschieben kann?
Hallo alle zusammen.
Mein Name ist Mike und ich besuche dieses Board schon ein paar Jahre. Allerdings habe ich mich erst jetzt registriert, weil ich nun selber Hilfe benötige und mir als registrierter mehr Möglichkeiten bereit stehen.
LG Mike
