Объект Shell

А.Климов
Русский_Проект

Объект Microsoft® Windows® Shell позволяет получить доступ к различным настройкам Windows при помощи Visual Basic. Например, вы можете получить доступ к различным диалоговым окнам, к файловой системе, запускать программы и изменять системные настройки

Знакомимся с объектом Shell

• Версия Shell
• Доступ к объекту Shell
• Объект Shell

Версия Shell

Многие объекты оболочки Shell доступны в версии 4.71, но существуют и объекты доступные только в версии 5.00 и выше. Версия 4.71 установлена на компьютерах с Windows 98, а версия 5.00 на Windows 2000. Ниже приводится список доступных объектов в каждой версии

Доступ к объекту Shell

Раннее связывание

Получить доступ к объекту Shell в Visual Basic можно при помощи раннего связывания, добавив ссылку к библиотекам:

• Microsoft Internet Controls (SHDOCVW.DLL)
• Microsoft Shell Controls and Automation (SHDOC401.DLL)

Откроем проект в Visual Basic. Добавим ссылки к библиотекам и пишем следующий код для кнопки Command1

Dim o As New Shell
 o.MinimizeAll
 Set o = Nothing

Позднее связывание

Также можно получить доступ к объектам Shell при помощи позднего связывания.

Приведем пример использования

dim oShell    
    
    set oShell = CreateObject("Shell.Application")
    oShell.MinimizeAll  

Примечание: Не все объекты Shell доступны при помощи позднего связывания. Вот список недоступных объектов

• DiskQuotaControl
• ShellFolderView
• ShellFolderViewOC
• ShellUIHelper
• WebViewFolderContents

Объект Shell

Объект Shell является очень мощным оружием программиста для доступа ко многим возможностям Windows Shell. Вы сможете:

• Открывать, просматривать и перемещаться по папкам
• Сворачивать, восстанавливать окна. А также располагать их в каскадном или другом порядке
• Запускать апплеты Панели управления
• Показывать системные диалговые окна

Приведем пример использования многих методов объектов Shell на Visual Basic

Private Sub Form_Load()
List1.AddItem "Свернуть все окна"
List1.AddItem "Окно Запуск программы"
List1.AddItem "Окно закрытия Windows"
List1.AddItem "Окно Найти файлы"
List1.AddItem "Системное время"
List1.AddItem "Свойства экрана"
List1.AddItem "Свойства панели задач"
List1.AddItem "Окна каскадом"
End Sub

Private Sub List1_Click()
Dim o As New Shell
Select Case List1.ListIndex
 Case 0
  o.MinimizeAll
 Case 1
  o.FileRun
 Case 2
  o.ShutdownWindows
 Case 3
  o.FindFiles
 Case 4
  o.SetTime
 Case 5
  o.ControlPanelItem "desk.cpl"
 Case 6
  o.TrayProperties
 Case 7
  o.CascadeWindows
End Select
Set o = Nothing

End Sub

Эпилог

Dim suih As New ShellUIHelper
Dim mysite As String
mysite = "http://rusproject.narod.ru/"
suih.AddFavorite mysite, "Русский_Проект"

Удачного вам программирования!

Реклама