Больше не показывать это диалоговое окно

[tyomitch]

А вот кто знал про эту функцию?

Код: Выделить всё

Option Explicit
Private Declare Function SHMessageBoxCheck Lib "shlwapi" Alias "#185" (ByVal hWnd As Long, ByVal lpszText As String, ByVal lpszTitle As String, ByVal dwType As VbMsgBoxStyle, ByVal iDefault As Long, ByVal lpszId As String) As Long
'Допустимые значения для dwType: vbOKOnly, vbOKCancel, vbAbortRetryIgnore (вместо vbYesNo)

Sub Main()
Debug.Print SHMessageBoxCheck(0, "Съешь ещё этих мякгих французских булок?", "Демонстрация SHMessageBoxCheck", vbAbortRetryIgnore, vbYes, "Demo")
End Sub


Проверено в WinXP, если кому-то не лень - проверьте ещё где-нибудь

[GSerg]

Гы-гы

А как её вернуть?

[John_AK]

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DontShowMeThisDialogAgain
Наверное эту ветку чистить

[Ramzes]

Где ты это откопал?

[John_AK]

Изменил demo на demo1
и искал в реестре

[tyomitch]

John_AK совершенно прав.

[Space]

а вот интересно, как юзер должен возвращать показ такого окна в проге (я не сталкивался с таким)? Т.е. как это обычно делается? В настройках? И как перейти в regedit быстро в нужный раздел по ветке?

[Хакер]

Никак не должен. Должен думать, выставляя флажок.

[Maxxx.!!!.]

В Vista SP1 тоже работает.