Medic84
06-06-2009, 21:10
Собственно при написании программы возникли вопросы.
1. Как сделать если нажата "Отмена", то выводил другое сообщение MsgBox? "Восстановление не удалось"
Func Restore_Proc()
$file = FileOpenDialog("Выберите файл...",@ProgramFilesDir,"Zip (*.Zip)")
_Zip_UnzipAll($file , StringTrimRight(GUICtrlRead($A2),8))
Run("Regedit.exe /s " & GUICtrlRead($A2) & "\key.reg")
FileDelete(GUICtrlRead($A2) & "\key.reg")
MsgBox(4160,"Успешно","Восстановление прошло успешно")
EndFunc
2. Как остановить в определенный момент весь скрипт? Допуситим: If GUICtrlRead($A1) = "" Then
Нужно ввести какую то команду которая останавливает скрипт, и возвращает в начальное положение.
OffTop
3. Как изменить иконку приложения?
GUISetIcon()
Действует только на иконку внутри приложения(Наверху слева), а на основную нет.
P.S. Если что еще вспомню насчет защиты расскажу.
1. Как сделать если нажата "Отмена", то выводил другое сообщение MsgBox? "Восстановление не удалось"
Func Restore_Proc()
$file = FileOpenDialog("Выберите файл...",@ProgramFilesDir,"Zip (*.Zip)")
_Zip_UnzipAll($file , StringTrimRight(GUICtrlRead($A2),8))
Run("Regedit.exe /s " & GUICtrlRead($A2) & "\key.reg")
FileDelete(GUICtrlRead($A2) & "\key.reg")
MsgBox(4160,"Успешно","Восстановление прошло успешно")
EndFunc
2. Как остановить в определенный момент весь скрипт? Допуситим: If GUICtrlRead($A1) = "" Then
Нужно ввести какую то команду которая останавливает скрипт, и возвращает в начальное положение.
OffTop
3. Как изменить иконку приложения?
GUISetIcon()
Действует только на иконку внутри приложения(Наверху слева), а на основную нет.
P.S. Если что еще вспомню насчет защиты расскажу.