Как поменять рабочий стол на свою программу

[Maxwellion]

Здравствуйте.
Я опять наверно спрошу, что уже спрашивали, но это потому, что я опять в поиске не нашёл чего хотел, так что извините и сильно не бейте, но...
Как сделать, чтобы моя программка была вместо заставки на рабочем столе?

[Tarik]

Шэлл что ли свой хочешь? Типа Aston'a?

[Maxwellion]

Шэлл что ли свой хочешь? Типа Aston'a?

М-ммм
А чего такое шэлл(наверное шЕлл пишется), не знаю, я хочу чтобы на фоне рабочего стола, под иконками мои кнопочки были и нажимались и работали.
Или может если кто знает, как во Flash 5-ом сделать чтобы пути в GetURL с пробелами понимались, хотя вопрос наверно не совсем в тему, но может кто знает.

[d3drm]

э... актив десктоп+html страница в качестве фона... не пойдет?

[Jenizix]

Ну тк сделай свое окно дочерним для Десктопа и все... поиск по форуму поможет! И Поиск! Поиск!!!!!

[Bonesnapper]

Или может если кто знает, как во Flash 5-ом сделать чтобы пути в GetURL с пробелами понимались, хотя вопрос наверно не совсем в тему, но может кто знает.

getURL("c:/w w/news.html","_blank")

ставь MX и все будет ок

[Maxwellion]

Ну тк сделай свое окно дочерним для Десктопа и все... поиск по форуму поможет! И Поиск! Поиск!!!!!

У меня по поиску постоянно что-то левое отъискивается, единственная в тему котрая нашлась эта моя и есть, мне бы ссылочку или примерчик в виде файла.

[Maxwellion]

Или может если кто знает, как во Flash 5-ом сделать чтобы пути в GetURL с пробелами понимались, хотя вопрос наверно не совсем в тему, но может кто знает.

getURL("c:/w w/news.html","_blank")

ставь MX и все будет ок

5-ый более распространён чем MX.
И где тут(в примере) в конечном итоге пробел находился, т.е. реальный-то путь какой?

[Bonesnapper]

MX тот же пятый только интерфейс улучшен
и пара но вых функций
вот путь:
c:/w w/ne ws.html
пробел в названии папки (между W и W)
и пробел в названии документа (между Е и W)
в МХ все работает

7 уже как год вышел а ты все на 5

[extHack]

Прива. Я делаю свой шелл и сталкивался с такой проблемой.

[HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System]
Параметр shell, меняй на свое значение, по дефлоту там стоит explorer.exe

А если надо экранную заставку, то [HKCU\Control Panel\Desktop]
SCRNSAVE.EXE="c:\your_screen_saver.exe"

И таймауты замути. Там-где то 1 ставится, что типа активная.

[Maxwellion]

MX тот же пятый только интерфейс улучшен
и пара но вых функций
вот путь:
c:/w w/ne ws.html
пробел в названии папки (между W и W)
и пробел в названии документа (между Е и W)
в МХ все работает

7 уже как год вышел а ты все на 5

Ну, тут пример открытия страницы, она-то без проблем открывается, но мне нужно немного другое, я хочу запустить экзешник(может он как-то иначе запускается?).
В общем я делаю через GetURL (FScommand:exec, путь) и у меня запускаются экзешники если только путь без пробелов. Попытался в MX 2004 так там вообще ни так ни эдак не пашет, ноль эмоций. В чём дело-то?

[Maxwellion]

Прива. Я делаю свой шелл и сталкивался с такой проблемой.

[HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System]
Параметр shell, меняй на свое значение, по дефлоту там стоит explorer.exe

А если надо экранную заставку, то [HKCU\Control Panel\Desktop]
SCRNSAVE.EXE="c:\your_screen_saver.exe"

И таймауты замути. Там-где то 1 ставится, что типа активная.

А что-то у меня нет такого ответвления \System там только \Explorer:-|
Но это не важно, короче я добавил эту ветку, и что-то получилось слегка не то что я хотел, она моя прога вылезла при перезагрузке, так а кроме неё-то больше ничего и непоявилось.
Мне надо, чтобы моя прога была заместо обоев под всеми этими иконками, панелью задач и со всем остальным.

[Jenizix]

Прива. Я делаю свой шелл и сталкивался с такой проблемой.

[HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System]
Параметр shell, меняй на свое значение, по дефлоту там стоит explorer.exe

А если надо экранную заставку, то [HKCU\Control Panel\Desktop]
SCRNSAVE.EXE="c:\your_screen_saver.exe"

И таймауты замути. Там-где то 1 ставится, что типа активная.

А что-то у меня нет такого ответвления \System там только \Explorer:-|
Но это не важно, короче я добавил эту ветку, и что-то получилось слегка не то что я хотел, она моя прога вылезла при перезагрузке, так а кроме неё-то больше ничего и непоявилось.
Мне надо, чтобы моя прога была заместо обоев под всеми этими иконками, панелью задач и со всем остальным.

Ну тк я и говорю, сделай свою форму дочерней Desktop'у!!!! Если время будет пример напишу...

[Jenizix]

Упс... сори... тока что понял что сморозил фигню... %) сори...

[tyomitch]

Мне надо, чтобы моя прога была заместо обоев под всеми этими иконками, панелью задач и со всем остальным.

Ну тк я и говорю, сделай свою форму дочерней Desktop'у!!!! Если время будет пример напишу...

Под иконками - так не выйдет.

[Jenizix]

Угу, я уже понял...

Код: Выделить всё

Private Declare Function SetParent Lib "User32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal w As String, ByVal w1 As String) As Long

Private Sub Form_Load()
    Dim dw As Long

    dw = FindWindow("progman", vbNullString)
    SetParent Me.hWnd, dw
End Sub

Вот это сделает твою форму дочерней десктопу, сворачиваться не будет и под всеми оканми будет, но иконки будет перекрывать...

[Bonesnapper]

незнаю как в МХ запустить ехе кроме как
командой FScommand причем ехе должен лежать
в папке FScommand (с мувиком)

[Maxwellion]

Угу, я уже понял...

Код: Выделить всё

Private Declare Function SetParent Lib "User32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal w As String, ByVal w1 As String) As Long

Private Sub Form_Load()
    Dim dw As Long

    dw = FindWindow("progman", vbNullString)
    SetParent Me.hWnd, dw
End Sub

Вот это сделает твою форму дочерней десктопу, сворачиваться не будет и под всеми оканми будет, но иконки будет перекрывать...

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

[Jenizix]

Неа... под иконками низя... хотя если десктоп - что-то вроде листбокса, то можно найти этот лист бокс и попробовать сделать форму дочерней ему...

[A.A.Z.]

Вы не это искали?

Код: Выделить всё

Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
SetParent FindWindow("SysListView32", "FolderView"), Me.hWnd
End Sub

[tyomitch]

FindWindow("SysListView32", "FolderView") возвратит 0, потому что она ищет среди окон верхнего уровня.

А ребёнок этого SysListView32 по-любому накроет иконки. Так что путь тупиковый.

[A.A.Z.]

А у меня работает

[tyomitch]

AAZ, у тебя под иконками ложится?

[Amed]

AAZ, не может быть!

Вариант: написать свой аналог десктоповского ListView?

[Kovu]

Код не работает между прочим проверял на всех виндоусах
Можно предложить делать скриншот и потом скриншоту делать BitBlt на форму

[SHURUP]

Можно предложить делать скриншот и потом скриншоту делать BitBlt на форму

Kovu, а что это даст? Это все-равно что разместить на форме лейбл с надписью "рабочий стол" и верить что именно это так и есть! Функциональность та-же
--
А через findwindow у меня тоже не работает. Только так:

Код: Выделить всё

Private Sub Form_Load()
Dim zz As Long
    zz = FindWindow("progman", vbNullString)
    zz = FindWindowEx(zz, 0, "SHELLDLL_DefView", vbNullString)
    zz = FindWindowEx(zz, 0, "SysListView32", vbNullString)
    SetParent Me.hwnd, zz
End Sub

Но значки все-равно перекрывает. Как вариант - разместить на своей форме webbrowser с папкой Рабочего стола. Но и тут минусов много.

[Kogemrka]

А нельзя поместить на рабочий стол в качестве фона веб страницу с vbscript? А если руки VBScript`ом марать лень, то мона на страничку поместить написанный в VB acnivex-контрол, который и будет законспирированной програмкой! Кстати. Всякие там часики на заднем фоне мона реализовать в виде динамического валпепера. Тоесть к волпеперу bitbit`ом(так быстрее) прикрепляются часики, сохраняются в темпах(временных файлах, для тех кто в танке), и ставятся как волпепер.
Потом перезапись файла в цикле. Я думую так легче, хотя ентот способ не реализует возможность использования контролов (кнопочек-флажочков) на заднем плане, но если они так уж и нужны шибко, то можно опять же при щелчке грызуном(вылавливать его можно и через API, и через DirectInput, кому как нравиться) проверять координаты, и если координаты соответствуют координатам рисунка кнопки, на нашем велпепере, то менять рисунок на рисунок с нажатой кнопкой, и делать нужные действия. Кстати, этим же способом мона реализовать проигрывание анимации для вэлпыперов, и рендеринг за значками из DX. Если чё непонятно, и нужен пример - пишите - склепаю эксэмпл, выложу и объясню.

[SHURUP]

Kogemrka, Ага! Работает!!!!
Но можно обойтись без всяких vbscript, ActiveX, и bitblt-ов.
Если в качестве валпейпера рабочего стола - веб страница - то слегка видоизменив мой предыдущий код:

Код: Выделить всё

Private Sub Form_Load()
Dim zz As Long
    zz = FindWindow("progman", vbNullString)
    zz = FindWindowEx(zz, 0, "SHELLDLL_DefView", vbNullString)
    zz = FindWindowEx(zz, 0, "Internet Explorer_Server", vbNullString)
    SetParent Me.hwnd, zz
End Sub

Получаем форму под значками!!!!
Узнать бы, как Винда этот Internet Explorer_Server под SysListView32 запихивает...

[Kogemrka]

Kogemrka, Ага! Работает!!!!
Но можно обойтись без всяких vbscript, ActiveX, и bitblt-ов.
Если в качестве валпейпера рабочего стола - веб страница - то слегка видоизменив мой предыдущий код:

Код: Выделить всё

Private Sub Form_Load()
Dim zz As Long
    zz = FindWindow("progman", vbNullString)
    zz = FindWindowEx(zz, 0, "SHELLDLL_DefView", vbNullString)
    zz = FindWindowEx(zz, 0, "Internet Explorer_Server", vbNullString)
    SetParent Me.hwnd, zz
End Sub

Получаем форму под значками!!!!
Узнать бы, как Винда этот Internet Explorer_Server под SysListView32 запихивает...

Поздравляю! Но мой способ тоже годен, хотя и для несколько других операций