Всем привет
Скрипт нормально работал, пока не решил запускать его с правами админа. Перестал работать Drag-and-drop.
Как можно исправить?
Скрипт нормально работал, пока не решил запускать его с правами админа. Перестал работать Drag-and-drop.
Как можно исправить?
Код:
;~ #RequireAdmin ; Если активизировать эту строку, то скрипт не будет работать
; Библиотеки
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
; GUI
$Form1 = GUICreate("", 335, 84, -1, -1,-1,BitOR($WS_EX_ACCEPTFILES,$WS_EX_TOPMOST) )
$Label1 = GUICtrlCreateLabel("Файл:", 8, 16, 82, 17)
$InpPath = GUICtrlCreateInput("", 50, 12, 217, 21)
GUICtrlSetState(-1, $GUI_DROPACCEPTED) ; Input наделённый свойством drag-and-drop (8)
$ButOK = GUICtrlCreateButton("ОК", 77, 48, 75, 25)
$ButCancel = GUICtrlCreateButton("Отмена", 165, 48, 75, 25)
$ButBrows = GUICtrlCreateButton("...", 275, 11, 48, 22)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE,$ButCancel
Exit
Case $GUI_EVENT_DROPPED ; Событие приходящееся на drag-and-drop (-13)
If @GUI_DropId = $InpPath Then GUICtrlSetData($InpPath, @GUI_DragFile)
EndSwitch
WEnd