переключение режима "read only" по комбинации клавиш

;mark all files in current directory as read only
If Not FileSetAttrib("*.*", "+R") Then
    MsgBox(4096,"Error", "Problem setting attributes.")
EndIf

$attrib = FileGetAttrib("*.*")
If @error Then
    MsgBox(4096,"Error", "Could not obtain  attributes")
    Exit
Else
    If StringInStr($attrib, "R") Then
    FileSetAttrib("*.*", "-R")
    EndIf
EndIf

HotKeySet('!{F7}', '_NotReadOnly') ;при нажатии Alt+F7 вызывается функция _NotReadOnly
HotKeySet('!{F8}', '_ReadOnly') ;при нажатии Alt+F8 вызывается функция _ReadOnly

While 1 ;Бесконечный цикл, висим в трее, ждём нажатия клавиш
	Sleep(25)
WEnd

Func _NotReadOnly()
	Local $hActiveWindow = WinGetHandle('[ACTIVE]') ;Получаем handle (идентификатор) активного окна
	Local $sPath = _GetWindowsExplorerPath($hActiveWindow) ;Получаем путь к открытой в этом окне папке (если окно не Explorer'а, а другой программы, получаем ошибку)
	If Not @error Then FileSetAttrib($sPath & '\*', '-R') ;Если при получении не было ошибок, устанавлеваем аттрибут для файлов лежащих по этому пути
EndFunc

Func _ReadOnly()
	Local $hActiveWindow = WinGetHandle('[ACTIVE]')
	Local $sPath = _GetWindowsExplorerPath($hActiveWindow)
	If Not @error Then FileSetAttrib($sPath & '\*', '+R')
EndFunc

; ==================================================================================================
; Func _GetWindowsExplorerPath($hWnd)
;
; Function to get the path currently being explored by a Windows Explorer window
;
; $hWnd = Handle to the Windows Explorer window
;
; Returns:
;   Success: String - Path being explored by this window
;   Failure: "" empty string, with @error set:
;      @error = 1 = This is not a valid explorer window
;      @error = 2 = DLL call error, use _WinAPI_GetLastError()
;
; Author: WideBoyDixon
; ==================================================================================================
Func _GetWindowsExplorerPath($hWnd)
    Local $pv, $pidl, $return = "", $ret, $hMem, $pid, $folderPath = DllStructCreate("char[260]"), $className
    Local $bPIDL = False
    Local Const $CWM_GETPATH = 0x400 + 12;

    ; Check the classname of the window first
    $className = DllCall("user32.dll", "int", "GetClassName", "hwnd", $hWnd, "str", "", "int", 4096)
    If @error Then Return SetError(2, 0, "")
    If ($className[2] <> "ExploreWClass" And $className[2] <> "CabinetWClass") Then Return SetError(1, 0, "")

    ; Retrieve the process ID for our process
    $pid = DllCall("kernel32.dll", "int", "GetCurrentProcessId")
    If @error Then Return SetError(2, 0, "")

    ; Send the CWM_GETPATH message to the window
    $hMem = DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hWnd, "int", $CWM_GETPATH, "wparam", $pid[0], "lparam", 0)
    If @error Then Return SetError(2, 0, "")
    If $hMem[0] = 0 Then Return SetError(1, 0, "")

    ; Lock the shared memory
    $pv = DllCall("shell32.dll", "ptr", "SHLockShared", "uint", $hMem[0], "uint", $pid[0])
    If @error Then Return SetError(2, 0, "")
    If $pv[0] Then
        $pidl = DllCall("shell32.dll", "ptr", "ILClone", "uint", $pv[0]) ; Clone the PIDL
        If @error Then Return SetError(2, 0, "")
        $bPIDL = True
        DllCall("shell32.dll", "int", "SHUnlockShared", "uint", $pv) ; Unlock the shared memory
    EndIf
    DllCall("shell32.dll", "int", "SHFreeShared", "uint", $hMem, "uint", $pid) ; Free the shared memory

    If $bPIDL Then
        ; Retrieve the path from the PIDL
        $ret = DllCall("shell32.dll", "int", "SHGetPathFromIDList", "ptr", $pidl[0], "ptr", DllStructGetPtr($folderPath))
        If (@error = 0) And ($ret[0] <> 0) Then $return = DllStructGetData($folderPath, 1) ; Retrieve the value
        DllCall("shell32.dll", "none", "ILFree", "ptr", $pidl[0]) ; Free up the PIDL that we cloned
        Return SetError(0, 0, $return) ; Success
    EndIf

    Return SetError(2, 0, "") ; Failed a WinAPI call
EndFunc