Панель задач и рабочий стол

Как убрать панель задач и рабочий стол, оставив проводник?

 

Програмно или вручную ? Винда какая? телепатов нет....

 

Извиняюсь, программно, Windows XP, желательно и 7 но необязательно.

 

Рабочий стол как вариант - пкм->упорядочить значки-> отображать значки рабочего стола.
А панель задач - пкм по ней->свойства->автоматически скрывать панель задач. Она, правда будет появляться при наведении кусрора в ее область.

 

Мне бы всё это программно, панеле задач можно передать команду на сокрытие, это как окно, а вот рабочий стол просто не знаю, что с ним сделать...
Вот код на делфи чтобы скрыть панель задач:

Code:

ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_hide);

 

Code:

FindWindowEx( WindowTray, 0, 'TrayClockWClass', nil);

пробуй

 

Это делфи...
Мне бы под VB.NET...

 

посмотри тут http://www.vbfaq.ru/2008/10/kak-skryt-panel-zadach/

 

Это уже нашёл)
Осталось с рабочим столом разобратся.
И желательно узнать в каких положениях сейчас значки на нём.
Это не работает http://www.vbnet.ru/faq/showtopic.asp?id=87
И это тоже http://www.vbfaq.ru/2008/10/kak-skryt-panel-zadach/

 

рабочий стол это listview под которым находится фон.

 

Оно понятно, непонятно, как программно его скрыть)

 

как это "скрыть?"убрать фон что ли?

 

Не фон, значки.
И панель задач.

 

Ну и что тут сложного? Берешь любой просмотротщик окон и смотришь что и где.
И тогда бы нашел, что рабочий стол это класс SysListView32 и имя FolderView (для Eng точно, для рус хз)
Так что ищи окно с классом SysListView32 и именем FolderView и делай его скрытым

 

Можно название этого просмотрщика и небольшой, но работающий код на VB.NET для сокрытия?

 

C помощью реестра
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer
создаем ключ NoDesktop=dword:00000001

 

Отлично! Значки скрылись!
Осталось победить панель задач.

 

Au3info сойдет как просмотрщик

 

Нужно скрыть Shell_TrayWnd.
Подскажите корректный код, чтобы не вызывал

 

Почему так, есть вроде бы простой и понятный код, который есть на многих сайтах:

Code:

Private Declare Function FindWindow _ 
        Lib "user32.dll" Alias "FindWindowA" ( _ 
        ByVal lpClassName As String, _ 
        ByVal lpWindowName As String) As Long 
Private Declare Function ShowWindow _ 
        Lib "user32.dll" ( _ 
        ByVal hWnd As Long, _ 
        ByVal nCmdShow As Long) As Long 

Private Sub HiddenTaskBar() 
    ShowWindow( FindWindow("Shell_TrayWnd", vbNullString), 0&) 
End Sub 

Private Sub VisibleTaskBar() 
    ShowWindow( FindWindow("Shell_TrayWnd", vbNullString), 4&)
End Sub

Но при попытке вызова HiddenTaskBar() получаю ошибку:

Как от этого избавится?