’d like to start today by getting rid of a myth. Just because we have decided to work with custom classes doesn’t mean that we also have to decide to
Shared Function _ FindExecutable(ByVal fileName As String, ByVal fileDir As String, _ ByVal buffer As System.Text.StringBuilder) As IntegerEnd Function’ Returns the name and path of the EXEcutable file that is
‘ Destroy a file associationSub DeleteFileAssociation(ByVal extension As String) Const SHCNE_ASSOCCHANGED = &H8000000 Const SHCNF_IDLIST = 0 ‘ ensure that there is a leading dot If extension.Substring(0, 1) “.” Then
Shared Function _ SHAddToRecentDocs(ByVal uFlags As Integer, ByVal filePath As String) As _ IntegerEnd Function’ Add a file to the list of recent documents’ If the parameter is an empty
Shared Sub _ SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, _ ByVal dwItem1 As Integer, ByVal dwItem2 As Integer)End Sub’ Create the new file association” Extension is the extension
Shared Function _ GetDesktopWindow() As IntegerEnd Function Shared Function GetDC _ (ByVal hWnd As Integer) As IntegerEnd Function Shared Function _ GetDeviceCaps(ByVal hDC As Integer, ByVal nIndex As Integer) As