[Creat0R]

TERMINAL,

Держи-если просто хочешь отключить отображение языковой панели

Этот скрипт не очень практичен, и не надёжен, если у SAOPP не сработал скрипт по проще, то этот точно не сработает.

P.S
Юзай теги [Cоde][/Cоde]

[TERMINAL]

Creat0R, должен сработать, там хоть сама працедура не всегда срабатывает - поэтому мне скрипт побольше сделать чтобы обходил он ошибки. Вроде проверял раз 20 то пока он работает...

[Creat0R]

SAOPP,

не хочет нажимать ничего

Очень странно, может есть уже открыто подобное окошео где то? перезапустить систему пробовал?

TERMINAL,

проверял раз 20 то пока он работает...

У тебя работает

[Creat0R]

Diamond
Как это я раньше не подумал, ведь текущий курсор можно брать с реестра ...

Код:

Local $Old_EES = Opt("ExpandEnvStrings", 1)
Local $OldCursor = RegRead("HKEY_CURRENT_USER\Control Panel\Cursors", "Arrow")
_SetCursor(@WindowsDir & "\cursors\cross_m.cur", 32512)
_SetCursor($OldCursor, 32512)
If @error Then _SetCursor(@WindowsDir & "\cursors\3dwarro.cur", 32512)
Opt("ExpandEnvStrings", $Old_EES)

[SAOPP]

Creat0R, что бы во время выполнения скрипта был другой курсор?

[Creat0R]

SAOPP,
Это для пипетки, вот тут мы обсуждали эту тему

[amel27]

Creat0R,

у кого-то получится сделать функцию для скрытия иконки по PID, буду безмерно благодарен

если немного подправить UDF _SysTrayIconIndex(), то PID можно будет передавать наравне с именем:

Код:

Func _SysTrayIconIndex($name, $mode=0)
    Local $index = -1
    Local $process
    Local $i
    If $mode < 0 or $mode > 2 or Not IsInt($mode) Then
        SetError(1)
        return -1
    EndIf
        If $mode = 0 Then
        If IsString($name) Then
            $process = _SysTrayIconProcesses()
        Else
            $process = _SysTrayIconPids()
        EndIf
    Else
        $process = _SysTrayIconTitles()
    EndIf
        For $i = 0 to Ubound($process)-1
        If $process[$i] = $name Then
             $index = $i
    EndIf
    Next
    return $index
EndFunc

[Creat0R]

amel27,

если немного подправить UDF _SysTrayIconIndex(), то PID можно будет передавать наравне с именем:

Я это (почти) пробовал, но проблема не в этой функции, а в _SysTrayIconPids() - Если запущено приложение дважды (т.е две одинаковые иконки теперь в трее), то в массив попадает неверный порядок идентификаторов, и соответственно скрывается не всегда нужная иконка.. я уже как только не пробовал переделывать эти функии, но у меня не вышло , но в процессе написал функцию _SysTrayIconIndexArr() - возвращает массив всех индексов одного и того же процесса (имени процесса), чтобы скрыть все иконки (это лучше чем скрыть не ту иконку ) - Могу выложить если нужно.

[Maza Faka]

Creat0R

у кого-то получится сделать функцию для скрытия иконки по PID, буду безмерно благодарен

Так?:

Код:

#include <SysTray_UDF.au3>
$pid = ProcessExists("server.exe")
$index = _SysTrayIconIndex($pid)
MsgBox(64, "Hide", "Now hide server.exe icon")
_SysTrayIconVisible(1, $index)
MsgBox(64, "Visible", "Now visible server.exe icon")
_SysTrayIconVisible(0, $index)

[amel27]

Creat0R

проблема не в этой функции, а в _SysTrayIconPids() - Если запущено приложение дважды (т.е две одинаковые иконки теперь в трее), то в массив попадает неверный порядок идентификаторов

точно, так как _SysTrayIconPids() возвращает PID (в основном) по имени процесса, может эту UDF тоже подправить и обрабатывать ВСЕ иконки как безымянные, т.е. по индексу?

Код:

Func _SysTrayIconPids()
    Local $i
    Local $titles = _SysTrayIconTitles()
    Local $processes[UBound($titles)]
    Local $ret

    For $i=0 to Ubound($titles)-1
        $ret = DLLCall("user32.dll","int","GetWindowThreadProcessId", "int", _SysTrayIconHandle($i), "int_ptr", -1)
        If Not @error Then $processes[$i] = $ret[2]
    Next

    Return $processes
EndFunc