Пользуетесь ли Вы такой возможностью Рабочего стола - как Active Desktop? Скорее всего нет, а даже если он и включен, то только для того, чтобы выводить в качестве обоев рисунок в формате отличном от bmp. Если на Вашем рабочем столе так много значков, что новые уже не помещаются, то Вы можете использовать в качестве фона своего рабочего стола Web-страницу инструкции, по созданию которой даны ниже, тем самым загрузив работой Active Desktop по полной программе. Это не только позволит сделать работу за компьютером более комфортной, но и добавит больше интерактивности Рабочему столу, а также даст толчок Вашей фантазии в дальнейшем развитии этой темы.
Итак, начнем:
1. Запустите Ваш любимый текстовый редактор.
2. Создайте новый документ.
3. Вставьте в него приведенный ниже код.
WebDesk
<!--
Dim Iid
Sub bd_onload
Iid=setInterval("bd_onclick",interval)
bd_onclick
End Sub
Sub bd_onhelp
Dim hs, NL, x
NL = Chr(13) & Chr(10)
hs = "Quick Desktop v1.1" & NL
hs = hs & Chr(9) & "Author: Tarasov Costja"
hs = hs & Chr(9) & "Click me to change my background."
x = MsgBox(hs, 0, "About QuickDesktop")
End Sub
Sub bd_onunload
clearInterval Iid
End Sub
Sub bd_onclick
Randomize
Const PicPath = "file://path\"
Const PicLast = LastIndex
ReDim PP(PicLast)
PP(0)="picture0"
PP(1)="picture1"
PP(Index)="pictureN"
...
p=fix(rnd*PicLast*5)
bd.background=PicPath+PP(p mod (PicLast+1))
'bd.tracingsrc=PicPath+PP(p mod (PicLast+1))
End Sub
-->
4. Создайте папки "Системные", "Программы" и "Игры", а затем перенесите в них соответствующие ярлыки с рабочего стола.
5. Замените ниже перечисленные выделенные в коде слова нужными Вам значениями:
interval - на интервал смены обоев рабочего стола в миллисекундах (1 секунда = 1000 миллисекунд)
path - на путь к обоям рабочего стола
LastIndex - на количество используемых обоев МИНУС один
Picture0, Picture1, PictureN - на имя файла (с расширением) обоев для рабочего стола
Index - на индекс обоев
... - на строки вида PP(индекс_обоев) = "имя_файла_обоев_(с_расширением)"
DefaultBGpath - на путь к обоям по умолчанию
PathSys - на путь к папке раздела "системные"
PathUtil - на путь к папке раздела "программы"
PathGames - на путь к папке раздела "игры"
5. Сохраните файл под любым именем, но обязательно с расширением .htm.
6. Щелкните правой кнопкой по пустому пространству рабочего стола.
7. В появившемся контекстном меню выберите пункт "Свойства".
8. Перейдите на вкладку "Веб" и убедитесь, что установлен флажок "Отображать веб-содержимое на рабочем столе".
9. Перейдите на вкладку "Фон" и щелкните по кнопке "Обзор".
10. Выберите сохраненный в пункте 5 файл и нажмите кнопку "Открыть".
11. Нажмите кнопку "Ok" в окне "Свойства: Экран".
12. Щелкните правой кнопкой по пустому пространству рабочего стола.
13. В появившемся контекстном меню снимите галочку "Отображать значки рабочего стола".
Панель инструментов, созданная из папки содержащей папки разделов, может заменить панель инструментов "Рабочий стол"
Если Вы хотите хранить такие обои в той же папке, что и папки разделов, то файл обоев должен быть скрытым. Это предотвратит появление файла обоев в меню панели инструментов.
Для удобства добавления ярлыков в созданные нами папки можно создать ярлыки на папки разделов в папке SendTo.
Комментарий от ведущего раздела: никто не мешает Вам разнообразить эту страницу различными скриптами. Так например я делал доступ к различным программам с помощью меню вверху экрана, добавлял календарь, часы, напоминалку и другие украшательства. Благо, различных скриптов на просторах интернет просто море и все ограничивается исключительно Вашей фантазией и желанием этим заниматься. Так что не держите приведенный выше шаблон страницы за догмат веры, а активно меняйте ее, настраивайте под себя, и у Вас получится очень удобный и функциональный Рабочий стол.
