sproxy
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Спасибо, ViSiToR.
При использование были ошибки,
написал сам, заодно и понял почему были ошибки...)
....у меня только проверок на ошибки нет..
Код:
#region: - Скопировать или переместить ключ реестра
Func reg_copy_move_key ($key_from, $key_to, $key_from_del)
reg_serch_key ($key_from, $key_to)
reg_copy_zn ($key_from, $key_to)
If $key_from_del == 1 Then RegDelete ($key_from)
EndFunc
Func reg_serch_key ($key_from, $key_to)
Local $i=1, $key_s
While 1
$key_s = RegEnumKey ($key_from, $i )
If @error == -1 OR @error == 1 Then ExitLoop
reg_copy_zn ($key_from & "\" & $key_s, $key_to & "\" & $key_s)
reg_serch_key ($key_from & "\" & $key_s, $key_to & "\" & $key_s)
$i+=1
WEnd
EndFunc
Func reg_copy_zn ($in_key, $to_key)
Local $n=1, $zn_name, $zn_data
Local $zn_type[8] = [7, "REG_SZ", "REG_EXPAND_SZ", "REG_BINARY", "REG_DWORD", "REG_DWORD_BIG_ENDIAN", "REG_LINK", "REG_MULTI_SZ"]
While 1
$zn_name = RegEnumVal ($in_key, $n)
If @error == -1 OR @error == 1 Then ExitLoop
$zn_data = RegRead ($in_key, $zn_name)
RegWrite($to_key, $zn_name, $zn_type[@extended], $zn_data)
$n+=1
WEnd
EndFunc
#endregion
|
|
. Спасибо.
