[Dementei]

Сочетания клавиш заработали при любой раскладке если писать так:

Код:

If @KBLayout = 0419 Then
Send("^ф")
Else
Send("^a")
EndIf

А вот с текстом проблемы, функция ControlGetText в этом приложении не работает и приходится его через буфер обмена передавать, но вот в таком варианте получается, что при:

en-ru, вместо допустим "tim" пишет "ешь"...
Как это побороть?

[Maza Faka]

Dementei,

вместо допустим "tim" пишет "ешь"...

У меня нормально указывает и получает текст при любой раскладке:

Код:

$string = "tim"
$title = "Безымянный"
WinWait($title)
ControlSetText($title, "", "Edit1", $string)

[Dementei]

Напишу еще раз:
(code)
Send("901")
;Вызывает окно, из которого с помощью ctrl-c копируется название файла, а ctrl-a закрывает это окно.
;Для программы, которой этот скрип управляет 901 - вызывает окно и делает выделенной строчку, в которой
;название файла. Сочетание клавиш ctrl-a закрывает это окно.
If @KBLayout = 0419 Then
Send("^с")
Else
Send("^c")
EndIf
If @KBLayout = 0419 Then
Send("^ф")
Else
Send("^a")
EndIf
$old_name = ClipGet()
;$old_name получает значение имени файла
$new_name = InputBox("Переименовать", "Введите новое название файла", $old_name)
;$new_name создает окно, в котором отображается страрое название файла и надо ввести новое
Send("901")
;Открываем снова окно для ввода имени файла и передаем ему новое имя, кот. ввели в диалоговое окно
Send($new_name)
;Посылаем новое имя в окно, кот. открылось по сочетанию клавиш 901
(/code)

Так вот при таком способе Send($new_name) пошлет Tim при английской раскладке и Ешь при русской.
Как добиться аналогичной функциональности, но чтоб это работало при любой раскладке?

[Maza Faka]

Dementei,
Посмотри здесь http://oszone.net/display.php?id=3663 про переключение раскладки.

[Dementei]

Maza Faka,
Смотрел, это не помогает в данном случаи.
Но я нашел выход:

ClipPut($new_name)

Вот уже с этим ничего не происходит, оно уже вводится как надо при любой раскладке... но это ограничивает возможности...

[Creat0R]

amel27,
А можно таким же методом (ну или другим), отображать свойства для любого файла? т.е мне нужен вот этот диалог для указанного в функции файла:



P.S
ShellExecute($File, "", "", "properties") не работает


Dementei

это ограничивает возможности

Чем ограничивает?

[amel27]

Creat0R,

А можно таким же методом (ну или другим), отображать свойства для любого файла? »

можно, только извини, некогда доводить до ума - без контроля ошибок и разделения пути:

Код:

Func _OpenFileProperties($sDir, $sFile)
    Local $oShellApp = ObjCreate('shell.application')
    Local $oDir = $oShellApp.Namespace ($sDir), $oName
    For $oName In $oDir.items
        If $oName.name = $sFile Then $oName.InvokeVerb('Сво&йства')
    Next
EndFunc

[Creat0R]

amel27,

без контроля ошибок и разделения пути

Но оно работает у тебя? у меня нет - если задать пустое значение для verb, то открывает файл в программе по умолчанию.

Вот версия с разделением путей, но у меня по прежнему не работает:

Код:

_OpenFileProperties("C:\Test.txt", "Сво&йства")

Func _OpenFileProperties($sFilePath, $Verb='Open')
    Local $sFileName = StringRegExpReplace($sFilePath, '.*\\|\.[^.]*$', '')
    Local $sPath = StringRegExpReplace($sFilePath, '\\[^\\]*$', '')

    Local $oShellApp = ObjCreate('shell.application')
    Local $oDir = $oShellApp.Namespace($sPath), $oName

    For $oName In $oDir.Items
        If $oName.Name = $sFileName Then
            ;$objVerbs = $oDir.Self.Verbs
            ;$Verb = $objVerbs.Item(0).Name
            $oName.InvokeVerb($Verb)
        EndIf
    Next
EndFunc

[Creat0R]

amel27,
Оно работает! но только пока скрипт активен - Т.е как только скрипт завершает работу, окно свойств исчезает, не очень удобно...

[Kenwood3D]

HotKeySet("{Esc}", "OnExit") _OpenConnProperties('Подключение по локальной сети') While 1 Sleep(1000) Wend Func _OpenConnProperties($sConnName) Local $oShellApp = ObjCreate('shell.application') Local $oCP = $oShellApp.Namespace (3), $item For $item In $oCP.items If $item.name = 'Сетевые подключения' Then For $item In $item.getfolder.items If $item.name = $sConnName Then $item.InvokeVerb('Сво&йства') Next EndIf Next EndFunc Func OnExit() Exit EndFunc »

Не хочет работать! После запуска вылетает системное окно "Приложение или библиотека C:\WINDOWS\system32\irprops.cpl не является образом программы для Windows NT. Проверьте назначение установочного диска. " И выполнение зависает на строке "Sleep(1000)"
Система WindowsXP