Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум на Исходниках.RU > Работа с Windows > Вызов окон настроек из панели управления |
Автор: ALXR 13.01.07, 17:24 |
Покопавшись еще дизасмом набросал такой код: (пишущим бровузеры на основе IE пригодится, я думаю) <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> Option Explicit Private Declare Function DisplayPopupWindowManagementDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal lpURL As String) As Long Private Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal dwZoneId As Long) As Long Private Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long Private Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long Private Declare Function LaunchPrivacyDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long Private Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal lpszRegPath As Any) As Long Private Declare Function OpenLanguageDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal dwUnknown1 As Long, ByVal dwUnknown2 As Long, ByVal dwUnknown3 As Long) As Long Private Sub Command1_Click(Index As Integer) Select Case Index Case 0: Call DisplayPopupWindowManagementDialog(Me.hWnd, StrConv("http://mysite.com", vbUnicode)) ' WinXP SP2 Only? Case 1: Call LaunchSecurityDialog(Me.hWnd, 1) ' Choose Intranet as default Case 2: Call LaunchSiteCertDialog(Me.hWnd) Case 3: Call LaunchConnectionDialog(Me.hWnd) Case 4: Call LaunchInternetControlPanel(Me.hWnd) Case 5: Call LaunchPrivacyDialog(Me.hWnd) Case 6: Call OpenFontsDialog(Me.hWnd, 0&) Case 7: Call OpenLanguageDialog(Me.hWnd, 0, 0, 0) End Select End Sub На форму бросить кнопочки Command1 с индексами от 0 до 7. |