Черный фон мигающей иконки трея

[RaZum]

При мигании значка скрипта в системном трее, он меняется на черный квадрат.
Можно ли сменить этот черный квадрат на другой значек или на прозрачный ?

 

[Andrey_A]

на другой значек

Думаю тут можно не передавать параметр мигания, а контролировать это самому через TraySetIcon - пример в справке смены значка там есть.

 

[RaZum]

Хотелось бы конечно подменить черный квадратик, но видимо это затратно.
Придется играть с заменой.
Как-нибудь так

Спойлер

Local $File = @SystemDir & "\netshell.dll"

Func Example_1 () ; одно-направленный
	While 1
		For $i = 152 To 157
			TraySetIcon ($File, -$i)
			Sleep (500)
		Next
	WEnd
EndFunc

Func Example_2 () ; дву-направленный
	Local $j = 1
	While 1
		For $i = 1 To 5 ; если c 0, то задержка на краях (двойной показ)
			TraySetIcon ($File, -154.5 - 2.5 * $j + $i * $j)
			Sleep (500)
		Next
		$j *= -1
	WEnd
EndFunc