COMDLG32.DLL 为我们提供了一些很有用的对话框，但是仍然有部分我们可能会用到的系统对话框它却没有提供。如果试图复制这些系统对话框将是一件麻烦的苦差事。幸好shell32.dll为我们提供了这些对话框，本文将带你去发掘一些未公开的API函数，以实现这些对话框。

 

在使用未公开的API函数之前，你必须知道声明未公开的API函数与声明那些公开的API函数略有不同，那就是，你必须用到未公开API函数的顺序号(ordinal number)。这个顺序号就是未公开函数的别名。也就是说在声明未公开API函数时，必须加上它的别名。例如下面要说到的PickIconDlg函数的顺序号为62，它的别名就是"#62"。如果不这样做，系统会提示你找不到函数的入口点。

 

选取图标

 

BOOL WINAPI PickIconDlg(

HWND hwndOwner, 

LPSTR lpstrFile, 

DWORD nMaxFile, 

LPDWORD lpdwIconIndex);

该函数的顺序号为62。

 

hwndOwner拥有该对话框的窗口句柄 lpstrFile指向一个缓冲，包含初始的文件名。函数返回后它就包含新的文件名。nMaxFile指定缓冲的大小，以字符为单位。 lpdwIconIndex指向一个变量其中包含基于零的图标的索引。函数返回后它包含新图标的索引值。 如果用户选择了图标，则返回值为真，如果用户选择取消按钮或是系统菜单的关闭选项则返回值为假。

 

运行程序对话框

 

void WINAPI RunFileDlg(

HWND hwndOwner, 

HICON hIcon, 

LPCSTR lpstrDirectory, 

LPCSTR lpstrTitle, 

LPCSTR lpstrDescription,

UINT uFlags);

该函数的顺序号为61。在VB中可声明如下：

 

Private Declare Function RunFileDlg Lib "shell32" Alias "#61" (ByVal hwndOwner As Long, ByVal hIcon As Long, ByVal lpstrDirectory As String,

ByVal lpstrTitle As String, ByVal lpstrDescription As String, ByVal uFlags As Long) As Long

 

其中uFlags参数的可选值为

 

RFF_NOBROWSE 0x01 Removes the browse button. 

RFF_NODEFAULT 0x02 No default item selected. 

RFF_CALCDIRECTORY 0x04 Calculates the working directory from the file name. 

RFF_NOLABEL 0x08 Removes the edit box label. 

RFF_NOSEPARATEMEM 0x20 Removes the Separate Memory Space check box (Windows NT only).