|
|
|
Click here to copy the following block | Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) Const SHCNE_ASSOCCHANGED = &H8000000 Const SHCNF_IDLIST = 0
Sub DeleteFileAssociation(ByVal Extension As String) Dim ClassName As String Const HKEY_CLASSES_ROOT = &H80000000 If Left(Extension, 1) <> "." Then Extension = "." & Extension End If ClassName = GetRegistryValue(HKEY_CLASSES_ROOT, Extension, "") If Len(ClassName) = 0 Then Exit Sub DeleteRegistryKey HKEY_CLASSES_ROOT, Extension DeleteRegistryKey HKEY_CLASSES_ROOT, ClassName
SHChangeNotify SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0 End Sub |
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|