Total Commander

Orion9 писал(а): Да, в AHK есть примеры, как сделать обработку двойного или даже тройного нажатия клавиш, но и в Autorun можно сделать что-то похожее. Самый простой пример:

Код: Выделить всё

SetHotkeyAction /H:F12 F12DoublePress

Func F12DoublePress()
    Static t1 = 0
    If (GetUptime() - t1) < 300 Then
       ShowHint("F12 double pressed")
    EndIf
    t1 = GetUptime()
EndFunc

В примере не учитывается обработка одиночного нажатия, но если она нужна, то её можно добавить.

Loopback писал(а):Если имя файла, то у меня работает, а если имя каталога - то действительно, что-то не копируется

dest Полный путь к целевому файлу или каталогу. 

Loopback писал(а):Во втором - eng и 1by1 это же скорее всего каталоги? Тогда надо использовать DirCopy.

При указании каталога без маски будут скопированы все файлы, находящиеся в нём.

AkulaBig писал(а):То-есть в справке написано, что можно использовать целевой каталог.

AkulaBig писал(а):Ну я опять-же прочитал:

AkulaBig писал(а):Новые команды, синтаксис пока не обкатан. Не знаю, ошибка это или нет.

AkulaBig писал(а):Может тогда убрать не совсем понятные опции FileCopy и оставить возможность только одиночного копирования файла?

- исправлено копирование файлов в существующий каталог с FileCopy
- исправлена установка размера буфера в параметрах DllCall (регресс с версии 2.2.17)

		Local txt_SumatraPDF = COMMANDER_PATH & "\Plugins\wlx\TCSumatraPDF\SumatraPDF\SumatraPDF-settings.txt"
		Local LangSumatraPDF = TextFile(txt_SumatraPDF, rw)
		Local UiLang
		LangSumatraPDF.Begin()
		While Not LangSumatraPDF.AtEOF
			UiLang = obj.ReadLine()
			OutputDebugString(UiLang)
		Wend

Loopback писал(а):DirCopy копирует рекурсивно с подкаталогами, это не всегда требуется.

AkulaBig писал(а):Почему вот это не работает?

Loopback писал(а):obj.ReadLine() -> LangSumatraPDF.ReadLine()

		Local LangSumatraPDF = TextFile(txt_SumatraPDF, "rw")
		Local UiLang
		LangSumatraPDF.Begin()
		While Not LangSumatraPDF.AtEOF
			UiLang = LangSumatraPDF.ReadLine()
			If StrPos(UiLang, "UiLanguage") > 0 Then
				LangSumatraPDF.WriteLine("UiLanguage = en")
			Endif
		Wend

AkulaBig писал(а): Очень странно.

AkulaBig писал(а): Можно-ли это сделать в рамках объекта TextFile?

Local txt_SumatraPDF = COMMANDER_PATH & "\Plugins\wlx\TCSumatraPDF\SumatraPDF\SumatraPDF-settings.txt"
Local lst = List()
lst.LoadFromFile(txt_SumatraPDF)
For i = 0 to lst.Count-1
    If StrPos(lst[i], "UiLanguage") > 0 Then
        lst[i] = "UiLanguage = en"
        Break
    Endif
Next
lst.SaveToFile(txt_SumatraPDF)
Free(lst)

Loopback писал(а):Более чем, у меня обе ошибки выдавало.

Loopback писал(а):Конкретно для этой задачи проще всего будет использовать List

AkulaBig писал(а):Окно сообщения об ошибке стало появляться в верхнем левом углу экрана, причем за пределами экрана:

AkulaBig писал(а):Просто хотелось попробовать новый функционал.

Loopback писал(а):какие получаются координаты окон в момент возникновения проблемы?

Loopback писал(а):Понятно, но для всего свои инструменты. Для этой задачи объект не подходит.

AkulaBig писал(а):Ну точно. Координаты минусовые

AkulaBig писал(а):Оно показывается и быстро исчезает

Loopback писал(а):Очень интересные координаты у окна тотала.

Loopback писал(а): проверьте, пожалуйста,