Как скриптом автоита, висящем в трее - скопировать полный путь файла или папки, в тоталкомандере (при помощи хоткея)

[Dalm]

Здравствуйте.
Подскажите - как скриптом автоита, висящем в трее - скопировать полный путь файла или папки, в тоталкомандере (при помощи хоткея) ?
(В Windows10)

 

[InnI]

Как по хоткею переместить файл по сценарию - по относительному пути ?

Добрый день. Помогите решить вопрос. Нужно скопировать произвольный файл по определенному маршруту. Папка в которую по хоткею нужно скопировать файл - имеет не абсолютный путь, а относительный. Чтобы попасть в эту относительную папку - нужно подняться на уровень назад (БэкСпейс), потом зайти...

autoit-script.ru

 

[Dalm]

Как по хоткею переместить файл по сценарию - по относительному пути ?

Добрый день. Помогите решить вопрос. Нужно скопировать произвольный файл по определенному маршруту. Папка в которую по хоткею нужно скопировать файл - имеет не абсолютный путь, а относительный. Чтобы попасть в эту относительную папку - нужно подняться на уровень назад (БэкСпейс), потом зайти...

autoit-script.ru

Нет. Это не то.

Там перемещается файл, а тут ничего перемещать не надо - только скопировать полный путь - в буфер обмена.

 

[InnI]

только скопировать полный путь - в буфер обмена

Код, на который я дал ссылку, именно это и делает

Спойлер

WinActivate("Total Commander")
Send("^{ins}")
Sleep(333)
$FullPath = ClipGet()
MsgBox(0, "", $FullPath)

 

[Dalm]

Код, на который я дал ссылку, именно это и делает

Спойлер

WinActivate("Total Commander")
Send("^{ins}")
Sleep(333)
$FullPath = ClipGet()
MsgBox(0, "", $FullPath)

Ясно.
Спасибо.

Сообщение автоматически объединено: 27 Июн 2024

Вот такой в итоге получился код.

#pragma compile(Icon, 1.ico)

#include <file.au3>

HotKeySet("{LWIN}Z", "SendHK")

While 1
    Sleep(100)
WEnd

Func SendHK()
;WinActivate("Total Commander")
;Send("^{SPACE}")
Sleep(333)
$FullPath = ClipGet()
MsgBox(0, "", $FullPath)
EndFunc


Func _SendEx($sSend_Data)
    Local $hUser32DllOpen = DllOpen("User32.dll")
    While _IsPressed("10", $hUser32DllOpen) Or _IsPressed("11", $hUser32DllOpen) Or _IsPressed("12", $hUser32DllOpen)
        Sleep(30)
    WEnd
    Send($sSend_Data)
    DllClose($hUser32DllOpen)
EndFunc   ;==>_SendEx

Но он - не срабатывает.
Нажимаю Win+Z ... путь не копируется

Как его поправить, чтобы он срабатывал ?

 

[Prog]

#pragma compile(Icon, 1.ico)
if HotKeySet("{F10}", "SendHK") = 0 Then
    MsgBox(0, "", "Ошибка HotKeySet")
    exit
endif

While 1
    Sleep(100)
WEnd

Func SendHK()
    IF WinActivate("Total Commander") Then
        Send("^{ins}")
        Sleep(333)
        $FullPath = ClipGet()
        MsgBox(0, "", $FullPath)
    Else
        MsgBox(0, "", "Окно не найдено")
    endif
EndFunc

Нажимать нужно F10.
Win+Z регистрируется без ошибок, но не срабатывает.

 

[Dalm]

#pragma compile(Icon, 1.ico)
if HotKeySet("{F10}", "SendHK") = 0 Then
    MsgBox(0, "", "Ошибка HotKeySet")
    exit
endif

While 1
    Sleep(100)
WEnd

Func SendHK()
    IF WinActivate("Total Commander") Then
        Send("^{ins}")
        Sleep(333)
        $FullPath = ClipGet()
        MsgBox(0, "", $FullPath)
    Else
        MsgBox(0, "", "Окно не найдено")
    endif
EndFunc

Нажимать нужно F10.
Win+Z регистрируется без ошибок, но не срабатывает.

Спасибо. Так работает.
Но нужно именно сочетание Win+Z

 

[Prog]

Но нужно именно сочетание Win+Z

Если HotKeySet() регистрирует горячие клавиши используя WinAPI RegisterHotKey, работать не будет.
Эта функция сообщает об ошибке с кодом 1409 что в переводе на русский значит

Назначенная клавиша уже зарегистрирована.

Вероятно это сочетание клавиш зарезервировано системой.

Если нужно именно оно, следует рассмотреть другие варианты кроме HotKeySet(), например WinAPI функцией SetWindowsHookEx установить фильтр на клавиатуру и проверять нажатие требуемых клавиш.

 

[Dalm]

Не знаю как именно HotKeySet() регистрирует горячие клавиши, но если используя WinAPI RegisterHotKey, не будет работать.
Эта функция сообщает об ошибке с кодом 1409 что в переводе на русский значит

Вероятно это сочетание зарезервировано системой.

Не знаю.
У меня при нажатии Win+Z ничего не происходит

(в тотал коммандере - для Win7 - можно спокойно назначить внутренний хоткей для копирования полного пути).

 

[Prog]

можно спокойно назначить внутренний хоткей

Он для окна (когда оно активно). Речь про глобальный хоткей, работающий при неактивном окне приложения.

 

[Dalm]

Сочетание Sift+z тоже не работает
Ctrl+Shift тоже не работает.

 

[InnI]

сочетание Win+Z

#pragma compile(Icon, 1.ico)

#include <Misc.au3>

While Sleep(33)
    If _IsPressed("5B") And _IsPressed("5A") Then
        Send("{LWINUP}")
        Send("{z up}")
        If WinActivate("Total Commander") Then
            Send("^{ins}")
            Sleep(111)
            $FullPath = ClipGet()
            MsgBox(0x40000, "", $FullPath)
        Else
            MsgBox(0x40000, "", "Окно не найдено")
        EndIf
    EndIf
WEnd