Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1408459 Thu, 11 Jan 2007 08:23:14 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1408459 "добавить избранное", "упорядочить избранное".. можно через shell32.dll наверно..

в inetcpl.cpl вот такое еще есть: AddInternetPropertySheets..]]> BENDEROVEC Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407880 Wed, 10 Jan 2007 18:42:48 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407880 Цитата ALXR @
А с lpszRegPath я чего-то не пойму - Unicode-строка там нужна или ANSI.


ANSI, конечно.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407865 Wed, 10 Jan 2007 18:31:57 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407865 Цитата B.V. @
Цитата ALXR @
Покопавшись еще дизасмом набросал такой код:


А теперь покопавшись тут отредактируй код и я добавлю его в FAQ :)

Ну.. Э.. OpenLanguageDialog не нашел, вроде. А с lpszRegPath я чего-то не пойму - Unicode-строка там нужна или ANSI.]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407840 Wed, 10 Jan 2007 18:15:49 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407840 Цитата ALXR @
Покопавшись еще дизасмом набросал такой код:


А теперь покопавшись тут отредактируй код и я добавлю его в FAQ :)]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407821 Wed, 10 Jan 2007 17:56:52 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407821
(ed: BV) Всему своё время]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407673 Wed, 10 Jan 2007 15:08:36 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407673
Добавлено
Добавить в избранное...
Упорядочить избранное...

вот это бы еще сделать...
само избранное можно из реестра будет загружать..]]> BENDEROVEC Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407371 Wed, 10 Jan 2007 11:30:13 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407371 Цитата BENDEROVEC @
спасиб. работает..
хотя я библиотеку inetcpl.cpl перерыл всю.
LaunchInternetControlPanel такое не заметил :)

Покопавшись еще дизасмом набросал такой код: (пишущим бровузеры на основе IE пригодится, я думаю)
    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.]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407334 Wed, 10 Jan 2007 11:07:29 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407334 хотя я библиотеку inetcpl.cpl перерыл всю.
LaunchInternetControlPanel такое не заметил :)]]> BENDEROVEC Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407292 Wed, 10 Jan 2007 10:47:44 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407292 Цитата ANDLL @
BENDEROVEC
EnumThreadWindows находим окно и далее SetParent

Слишком сложно. :)

    Option Explicit
     
    Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long
     
    Private Sub Form_Load()
    Me.Show
    LaunchInternetControlPanel Me.hWnd
    End Sub
]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407244 Wed, 10 Jan 2007 10:07:59 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407244 Цитата ANDLL @
BENDEROVEC
EnumThreadWindows находим окно и далее SetParent

Сильно сложно для меня...
код можно? :)]]> BENDEROVEC Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407234 Wed, 10 Jan 2007 10:00:44 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407234 BENDEROVEC
EnumThreadWindows находим окно и далее SetParent]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407165 Wed, 10 Jan 2007 09:25:08 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407165 Цитата ANDLL @
То есть дождаться ее завершения что ли?

неа.. сделать как дочерние окно программы )

тут shell вообще не катит.. надо св-ва обозревателя как-то по др. вызвать..]]> BENDEROVEC Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407159 Wed, 10 Jan 2007 09:21:25 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407159 ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407149 Wed, 10 Jan 2007 09:15:47 +0000 Shell https://forum.sources.ru/index.php?showtopic=167470&view=findpost&p=1407149
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)

как это окно привезать к программе..
трудно обьяснить
т.е. надо сделать нападобе.. чтобы было
    Form2.Show 1
]]> BENDEROVEC Visual Basic: Общие вопросы