Orion9
|
 Posted: Wed Feb 12, 2025 17:54 Post subject: |
 |
|
| AkulaBig wrote: | | Не работает. Может у других работает. |
Пример в справке действительно не рабочий. Работает вот так:
| Code: | Func SwitchInternalAssociations(lParam)
Local Sections = List(), Mess, ini = %COMMANDER_PATH% & "\Ini\Associations.ini"
Sections.Text = IniReadSectionNames(ini)
If Sections.IndexOf('Associations') > -1 Then
IniRenameSection(ini, 'Associations', '-Associations')
Mess = 'ОТКЛЮЧЕНЫ!'
ElseIf Sections.IndexOf('-Associations') > -1 Then
IniRenameSection(ini, '-Associations', 'Associations')
Mess = 'ВКЛЮЧЕНЫ!'
Else
Mess = 'ОТСУТСТВУЮТ!'
EndIf
Free(Sections)
#SendMessage(AUTORUN_TCHANDLE, 147, 0, 1302100)
#SendCommand(2958)
SendMessage(AUTORUN_TCHANDLE, 1045, 0, 0)
ShowHint('Внутренние ассоциации ' & Mess, -1000, -1000, 1500, 1)
WinAlign(LAST_HINT_WINDOW, 0, RequestInfo(3), 0)
EndFunc |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
