Orion9
|
 Posted: Wed May 28, 2025 00:29 Post subject: |
 |
|
Loopback
Нет, до х64 я ещё не успел добраться ) Но проблему удалось локализовать. Заметил, что в трее версия в подсказке нормально отображается, а при наведении на функциональную кнопку поля остаются пустыми. Другими словами, проблема проявляется, когда FileGetVersion вызывается из функции, привязанной к контролу через ControlSetHint. Вот полный код:
| Code: | ControlSetHint /F /D:50 /B:7 17 "AutorunHints"
Func AutorunHints()
Local A_Version, A_Copyright, A_DateTime, _
A_Wdx = AUTORUN_PATH & "\Autorun.wdx", txt
If IsPressed (KEY_SHIFT) Then Return GetState("libs")
If IsPressed (KEY_CTRL) Then
txt = GetState("procs")
If StrLen(txt) > 0 Then txt = auCRLF & txt
Return GetState("threads") & txt
Endif
If IsPressed (KEY_ALT) Then Return GetState("paths")
A_Version = FileGetVersion(A_Wdx, "FileVersion")
A_Copyright = FileGetVersion(A_Wdx, "LegalCopyright")
obj = Plugin("FileDateTime")
If ERROR = 0 Then
obj.FileName = A_Wdx
A_DateTime = StrFormat("%.0f", obj.GetValue(3))
Free(obj)
Else
A_DateTime = "Error " & ERROR
Endif
Return "Версия: " & A_Version & auCRLF & "Дата изменения: " & A_DateTime & auCRLF & "Авторские права: " & A_Copyright
EndFunc
|
Если в любом месте файла конфигурации сделать простой вызов MsgBox(AutorunHints()), то проблем с FileGetVersion нет.
В общем, многое успел потестировать, вроде бы проблем пока нет. До новых функций, к сожалению, ещё не скоро доберусь, хотя хотелось бы побыстрее, но забыл в тот раз написать. Повесил ваш пример со сворачиванием окна ТС в трей на CTRL + "клик" - нравится эта идея. Но при разворачивании назад из трея, окно, которое было развернуто во весь экран до сворачивания в трей, назад во весь экран не разворачивается, а переходит в режим простого окна. У вас есть такая проблема? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
