Главная страницаОбратная связьКарта сайта

Запуск сервисов Панели Управления



'Если вы хотите запустить любую задачу из Панели Управления, вам достаточно
'использовать функцию SHELL:
'Shell "rundll32.exe shell32.dll,Control_RunDLL " & FileName, vbNormalFocus,
'где FileName - имя файла с расширением ".CPL", которые расположены в
'директории %windir/system%

'Данный пример покажет все файлы с расширением ".CPL". Первая кнопка
'запускает проводник со всеми расширениями, вторая - запускает конкретный
'сервис.

'Добавьте 2 CommAnd Buttons и 1 FileListBox на форму. Вставьте следующий код
'в события формы.

Public Sub RunControlPanelExtension(FileName As String)
Shell "rundll32.exe shell32.dll,Control_RunDLL " & FileName, vbNormalFocus
End Sub

Private Sub Command2_Click()
RunControlPanelExtension File1.FileName
End Sub

Private Sub Command1_Click()
Shell "rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus
End Sub

Private Sub Form_Load()
File1.Pattern = "*.CPL"
'В Windows NT замените 'C:\Windows\SYSTEM' на 'C:\WINNT\SYSTEM32'
File1.FileName = "C:\Windows\SYSTEM"
End Sub

'Установка оборудования Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", 5)
'Установка и удаление программ Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", 5)
'Свойства экрана Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 5)
'Настройки Интернета Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)
'Клавиатура Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 5)
'Мастер установки принтера Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)
'Свойства модема Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 5)
'Свойства мыши Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", 5)
'Настройки сети Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 5)
'Окно "Пароли" Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", 5)
'Окно "Язык и стандарты" Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)
'Окно "Звук" Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", 5)
'Настройки системы Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", 5)
'Настройка даты и времени Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 5


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Запуск сервисов Панели Управления", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info