Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для semiono

Ветеран


Сообщения: 842
Благодарности: 33

Профиль | Отправить PM | Цитировать


Извиняюсь, нашёл решение, какраз в том же SciTE скрипте...
Код: Выделить весь код
$sProperties = @ProgramFilesDir & '\AutoIt3\SciTE\Properties\au3.properties'
$sSession = @UserProfileDir & '\SciTE.session'

FileSetAttrib($sProperties, '-RASHNOT', 1)

_IniWriteProperty($sProperties, 'autoit3dir', @ProgramFilesDir & '\AutoIt3')

FileSetAttrib($sSession, '-RASHNOT', 1)

_IniWriteProperty($sSession, 'position.left', '0')
_IniWriteProperty($sSession, 'position.top', '0')
_IniWriteProperty($sSession, 'position.width', @DesktopWidth)
_IniWriteProperty($sSession, 'position.height', @DesktopHeight-52)
_IniWriteProperty($sSession, 'position.maximize', '0')

Func _IniWriteProperty($sIni, $sProperty, $sValue)
    Local $sSection, $sContent, $hWrite

    $sSection = 'Section'
    $sContent = '[' & $sSection & ']' & @CRLF & FileRead($sIni)

    $hWrite = FileOpen($sIni, 2)
    FileWrite($hWrite, $sContent)
    FileClose($hWrite)

    IniWrite($sIni, $sSection, $sProperty, $sValue)
    IniWrite($sIni, $sSection, $sProperty, $sValue)

    $sContent = FileRead($sIni)

    $hWrite = FileOpen($sIni, 2)
    FileWrite($hWrite, StringRegExpReplace($sContent, '^\Q[' & $sSection & ']\E(\r\n)*', ''))
    FileClose($hWrite)
EndFunc

ShellExecute(@ProgramFilesDir & "\AutoIt3\SciTE\SciTE.exe", $CmdLineRaw)

-------
Полезное сообщение


Отправлено: 16:53, 13-10-2011 | #2