Running Disk soll sich die Einstellungen der letzten Nutzung merken. Die Hilfe versprüht hier etwas englischen Charme und antwortet sinngemäß auf meine Frage: „Können Sie mir die Uhrzeit sagen ?“ mit einem einfachem: „Ja!“
Das im Anhang befindliche Beispiel ist, meiner Meinung nach, funktionstüchtig
1.Ist das so OK
2.In Zeile 20 „BitOR($BS_AUTORADIOBUTTON,“ die Automatik, kann sie jetzt weg
Spoiler anzeigen
; by Benjamin C. und Ritzelrocker04 ==> RDv2017.au3
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit];$var = IniRead("C:\Temp\myfile.ini", "section2", "key", "NotFound") ; Beispiel aus Hilfe
[/autoit] [autoit][/autoit] [autoit]$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "NotFound")
$var2 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichernUaus", "NotFound")
;GUICtrlSetState($rb_SichernUaus, $var1)
$GUI = GUICreate("Running Disk v 2.0.17", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
$bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
$bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
;GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
$rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 150, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
GUICtrlCreateGroup("", -99, -99, 1, 1) ; ==> BitOR($BS_AUTORADIOBUTTON,
GUICtrlSetState($rb_Sichern, $var1)
GUICtrlSetState($rb_SichernUaus, $var2)
;$GUI_UNCHECKED Markierung in Radio oder Checkbox wird entfernt
;$GUI_CHECKED Radio oder Checkbox wird markiert
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If $Sichern = 1 Then
$_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern"
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "1")
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichernUaus", "0")
_SichernFunc1()
MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
Exit
Else
$_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
If $_Userwahlout = 7 Then
MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern & Ausschalten"
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichernUaus", "1")
_SichernFunc1()
Shutdown(9)
EndIf
ExitLoop
EndSelect
EndIf
WEnd
Func _SichernFunc1()
RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
$logfile = FileOpen("RD.log", 1)
If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei RD.log konnte nicht geöffnet werden.", 3)
Exit
EndIf
FileWriteLine($logfile, "Letzte Sicherung (" & $Methode & ") der Eigenen Dateien am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
SoundSetWaveVolume(50)
SoundPlay("RDsys\Success.wav", 1)
EndFunc
Schönes WE und Danke