Language: VB5,VB6 Expertise: Intermediate
Sep 29, 2001
WEBINAR:
On-Demand
Application Security Testing: An Integral Part of DevOps
SetExplorerToolbarPicture - Change Explorer toolbar image
' Set the path of the picture used as background of the Windows Explorer toolbar
' Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey
' routines, you can find them in the CodeBank
' Example:
' SetExplorerToolbarPicture "E:\WinNT\Greenstone.bmp"
' To remove the bitmap just pass an empty string
Public Sub SetExplorerToolbarPicture(ByVal sPict As String)
Const HKEY_CURRENT_USER = &H80000001
Dim sKey As String
sKey = "Software\Microsoft\Internet Explorer\Toolbar"
' if the Key does not exist
If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
' create the key
CreateRegistryKey HKEY_CURRENT_USER, sKey
End If
' set the value
SetRegistryValue HKEY_CURRENT_USER, sKey, "BackBitmapShell", sPict
End Sub
Marco Bellinaso
|