Благодарю.
Да, к сожалению таблетка для 4.22 не до конца отрабатывает, иногда открывается проводник отображая содержимое папки куда установлена программа.
Очень хочется увидеть доработанную таблетку.
Касательно самой версии 4.22 (на Win7Pro x64):
Ссылки на видео с ютуба у меня не заработали (может ютуб виноват).
Значки на рабочем столе всё еще перерисовываются не так быстро как хотелось бы а иногда и вообще картинка значка не соответствует действительности.
В свойствах программы пишет 4.21.
Добавлено позднее.
Поскольку таблетка в 4.22 отрабатывает не полностью и переодически открывается окно проводника с папкой в которую установлена Video Wallpaper то возникла необходимость это окно закрывать.
Ниже приведен код (Visual Basic 6.0) программы которая отслеживает и закрывает это окно. Точнее любое окно с заголовком "Video Wallpaper".
Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Const WM_CLOSE = &H10
Sub Main()
Shell "pushvideowallpaper.exe"
'Запускаем программу "Video Wallpaper" Sleep 3000
'Ждём 3 секунды пока "Video Wallpaper" запустится Dim hW As Long
Do While FindWindow(vbNullString, "PUSH Video Wallpaper" & Chr(0)) > 0
'Цикл работает пока существует\запущена "PUSH Video Wallpaper" Sleep 10
hW = FindWindow(vbNullString, "Video Wallpaper" & Chr(0))
'Ищем окно с заголовком "Video Wallpaper" If hW > 0 Then PostMessage hW, WM_CLOSE, 0, 0
'Если нашли то закрываем его Loop
'Программа завершенаEnd SubСсылка на готовую программу и исходники.
dropmefiles.com/iWiDL
Поместите "Проект1.exe" в одну папку с "pushvideowallpaper.exe".
Запускайте через "Проект1.exe".
Написано на коленке. Полноценное лечение пусть пишут полноценные специалисты
Сообщение отредактировал Egnmia - 4.05.2019 - 18:41