'Если вы хотите запустить любую задачу из Панели Управления, вам достаточно 'использовать функцию 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
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Запуск сервисов Панели Управления", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!