Windows未公开函数揭密——之二
http://www.applevb.com
上一次我向大家介绍了如何利用Windows未公开函数实现关闭或重新启动Windows的功能。在这一期内我要向大家介绍如何使用Windows未公开函数实现调用Windows系统中的一些对话框的功能。其中包括如何调用系统的“运行程序“对话框、”查找文件“对话框、更改与文件相关联的图标对话框等等。
首先在VB中建立一个新的工程文件，然后在Form1中加入五个CommandButton控件，不要改变它们的属性，然后在Form1的代码窗口中加入以下代码：
Option Explicit
Private Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260
Private Declare Function SHObjectProperties Lib "Shell32" Alias "#178" _
(ByVal hwndOwner As Long, _
ByVal uFlags As Long, _
ByVal lpstrName As String, _
ByVal lpstrPar As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi _
As BrowseInfo) As Long
Private Declare Function SHFindFiles Lib "Shell32" Alias "#90" _
(ByVal pIDLRoot As Long, _
ByVal pidlSavedSearch As Long) As Long
Private Declare Function GetFileNameFromBrowse Lib "Shell32" Alias "#63" ( _
ByVal hwndOwner As Long, _
ByVal lpstrFile As String, _
ByVal nMaxFile As Long, _
ByVal lpstrInitDir As String, _
ByVal lpstrDefExt As String, _
ByVal lpstrFilter As String, _
ByVal lpstrTitle As String) As Long
Private Declare Sub PickIconDlg Lib "Shell32" Alias "#62" (ByVal hwndOwner As Long, _
ByVal lpstrFile As String, ByVal nMaxFile As Long, lpdwIconIndex As Long)
Private Declare Function SHRunFileDlg Lib "Shell32" Alias "#61" _
(ByVal hOwner As Long, _
ByVal hIcon As Long, _
ByVal lpstrDirectory As String, _
ByVal szTitle As String, _
ByVal szPrompt As String, _
ByVal uFlags As Long) As Long
Private Sub Command1_Click()
