May 19, 2003

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

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 _ 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

‘ 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 _ 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