[amel27]

Creat0R

Вот оно! »

во замутил! ...у меня вроде получилось без RegExp:

Код:

Func ConvertProc()
    Send("^{Insert}")
    Local $strSelect = ClipGet()
    If $strSelect='' Then Return
    ClipPut(InvertText($strSelect, $objASC, $objANS))
    Sleep(100)
    Send("+{Insert}")
    RestoreSelection(StringLen($strSelect))
    ClipPut('')
EndFunc

Func RestoreSelection($iLen)
    Local $iOldLen=0, $iNewLen=0, $iFixLen=0
    Send("^+{RIGHT}^{Insert}")
    Local $sOld = ClipGet()
    Send("^+{LEFT}^{Insert}")
    Local $sNew = ClipGet()
    If $sOld<>$sNew Then
        $iFixLen = StringLen($sOld)
        $iNewLen = StringLen($sNew)
    EndIf
    While $iNewLen<$iLen
        Send("^+{LEFT}^{Insert}")
        $iOldLen = $iNewLen
        $iNewLen = StringLen(ClipGet())
    Wend
    If $iNewLen=$iLen Then Return
    If ($iNewLen-$iLen)<(1+$iFixLen+$iLen-$iOldLen) Then
        Send('+{RIGHT ' & ($iNewLen-$iLen) & '}')
    Else
        Send('^+{RIGHT}+{LEFT ' & ($iLen+$iFixLen-$iOldLen) & '}')
    EndIf
EndFunc

Как можно проверить системные элементы (типа «Мой компьютер», «Мои документы» и т.п) находящиеся на рабочем столе? »

Ранее уже постил свой вариант через API, потом аналогичная тема появилась на оффсайте, там вроде обошлись только штатными функциями:Restore Icon Positions, on the Desktop and in Windows

ADD:через реестр: http://wiki.oszone.net/index.php/%D0...D0%B0/HKCU.REG

З.Ы. А зачем Send('{CTRLDOWN}') Send('{CTRLUP}'), от залипаний Ctrl?