WindowsAPI调用系统对话框

1、Windows API调用系统对话框转一些从shell32.dll导出的函数外壳对话框外壳对话框的秘密常见的Windows的通用对话框被封装在Comdlg32.dll，这给我们的编程提供了很大的便利。但它还不够完整，我们在系统里经常能看到大量的可重复使用的对话框,但在Windows的文档里你却找不到它们的调用方法。而如果我们自己去做这样的界面是非常费时费力的而且也是没有必要的，因为这些对话框实际上很容易得到。这里我要介绍一些已经众所周知或不为认知的对话框，它们可以应用在我们的程序中使程序显得非常友好和专业。浏览文件夹对话框图2.23大多数Delphi程序员都知道如何使用VCL的TOpenDia

2、log控件来让用户浏览将要打开的文件。然而有时你可能只想让用户选择文件夹而不是特定的文件，windows已经提供了一个这样的对话框如图2.23所示。我们可以通过公开的函数SHBrowseForFolder来调用(这个函数定义在ShlObj单元)，函数定义如下：function SHBrowseForFolder(var BrowseInfo：TBrowseInfo)：PItemIDList；stdcall；这个函数只有一个参数，但这个参数是一个比较复杂的记录类型TBrowseInfo=packed record hwndOwner：HWND；pidlRoot：PItemIDList；pszDi

3、splayName：PChar；lpszTitle：PChar；ulFlags：UINT；lpfn：TFNBFFCallBack；lParam：LPARAM；iImage：Integer；end；hwndOwner数据成员包含对话框的父窗体的窗口句柄，可以把它设成0。PIdlRoot数据成员指向一个PIDL的指针对应于对话框初始化时的根目录。指定了PIdlRoot后，就只有根目录及它的子目录会出现在对话框中。可以设定它为nil，这时缺省的根目录是桌面，pszDisplayName数据成员指向一个缓冲区可以用来储存被用户选中的文件名，缓冲区的大小至少为MAX_PATH这个常数那么大，否则遇到特别

4、长的文件名会溢出。lpszTitle数据对象指向一个以null结尾的字符串，字符串作为对话框的标题来显示。注意标题不要太长，否则显示时会被截断。ulFlags标志数据对象用来限制在对话框中显示的文件夹类型。可以设定它为0或下列值的组合：/在对话框中会包含一个状态区，回调函数可以通过向对话框发送消息来设定状态BIF_STATUSTEXT/只允许选择标准文件系统，若选了非标准的文件夹如打印机，确认按钮会变灰BIF_RETURNONLYFSDIRS=message01；/不选择网络文件夹BIF_DONTGOBELOWDOMAIN=message02；/给状态条留出空白BIF_STATUSTEXT=m

5、essage04；/只选择文件系统的上级目录BIF_RETURNFSANCESTORS=message08；/只选择计算机BIF_BROWSEFORCOMPUTER=00；/只选择打印机BIF_BROWSEFORPRINTER=00；/包括文件也可以选BIF_BROWSEINCLUDEFILES=00；注意：如果你想对话框显示lpszTitle里的用户定制的状态条信息，必须包括BIF_STATUSTEXT标识。Lpfn数据对象是一个回调函数类型的指针，函数类型如下：TFNBFFCallBack=function(DialogHandle：HWND；MessageID：UINT；PIDL：PIt

6、emIDList；Data：LPARAM)：Integer；stdcall；这是一个回调函数，可以用来在同用户交互时控制和更新对话框的显示。如果你不想控制对话框，可以把它设成nil，lParam数据对象允许你在回调函数中以参数lpfn形式返回一个指针(通常我们用它来返回对象)，当然也可以把它设成为0。IImage数据成员不需要设置，因为它是用来接收系统中同文件夹相关的图标列表索引的，我们这里设它为0。SHBrowseForFolder函数返回一个唯一的指向被选择的文件夹的PIDL。如果文件夹是一个传统的文件对象的话，可以用函数SHGetPathFromIDList把PIDL转换为真实的目录。同

7、时，作为调用者，必须负责释放被返回的item identifier list，使用IMalloc COM接口来释放。注意：不要用FreeMem或其他方法来释放PIDL，这是因为外壳的内存管理是独立的，只能用IMalloc来释放。现在我们已经可以显示对话框了，那让我们更深入一步看看如何能够控制对用户动作的反应，这就要用到了回调函数TFNBFFCallBack。注意回调函数的意思就是，你只是实现了它，系统就知道什么时候去调用它，就好比一个守株待兔的例子。DialogHandle参数代表对话框窗口句柄。通常可以用这个句柄给对话框发消息，MessageID参数并不是一个TMessage结构的记录，它是

8、对话框通过回调函数发给用户消息的，它可以是下面两个值：BFFM_INITIALIZED=1；/对话框将要显示BFFM_SELCHANGED=2；/用户选中了某项PIDL参数包含其他的额外信息。如果MessageID是BFFM_INITIALIZED，PIDL将等于nil。如果MessageID是BFFM_SELCHANGED，PIDL的值将是一个PIDL对应于用户选择的文件夹。Data参数包含用户付给TbrowseInfo记录中的Lparam数据成员的值，通常可以传递一个对象指针。下面是一个简单的回调函数的例子：function BrowseForFolderCallback(DialogHa

9、ndle：HWND；MessageID：UINT；PIDL：PItemIDList；Data：LPARAM)：Integer；begin/响应对话框的通知消息case(MessageID)of BFFM_INITIALIZED：DialogInitialized(DialogHandle,Data)；BFFM_SELCHANGED：HandleNewSelection(DialogHandle,PIDL,Data)；end；Result：=0；/总返回0.end；在回调函数里，可以根据用户的输入发送三个用户的消息给对话框，下面是消息ID：/改变对话框的状态信息BFFM_SETSTATUSTEX

10、T=WM_USER+100；/控制确定按钮失效与否BFFM_ENABLEOK=WM_USER+101；/改变选择的文件夹BFFM_SETSELECTION=WM_USER+102；通常，这些消息发送给对话框使之根据用户的选择更新显示，当然你也可以发送其他的消息给对话框，比如可以发送WM_SETTEXT消息来改变对话框的标题。下面是一个发送消息的例子(见表2.11)：PostMessage(DialogHandle,BFFM_SETSELECTION,True,LPARAM(PChar(NewPath)；表2.11 Message IDWParamLParam BFFM_SETSTATUSTEX

11、T没有使用一个指向新的状态信息的Pchar BFFM_ENABLEOK没有使用True使得确认按钮有效，False无效BFFM_SETSELECTION如果Lparam是路径则为True，若Lparam是PIDL则为False指向被选择的文件路径或PIDL的Pchar另外要提到的是，Delphi也提供了对这个函数的封装，那就是SelectDirectory函数。关于对话框通常我们都要在自己的程序里加上一个关于对话框来显示一些版本信息等等，Windows为我们提供了一个标准的对话框如图2.24所示，可以在一定范围内对它定制，不过它只适合显示简单的标识和文本(我觉得用处极小)。我们可以通过函数Sh

12、ellAbout来调用它(声明在ShellAPI单元里)，函数定义如下：function ShellAbout(Owner：HWND；ApplicationName：PChar；OtherText：PChar；IconHandle：HICON)：Integer；stdcall；Owner参数标识了拥有对话框的父窗体句柄，通常设为0，表明没有父窗体。ApplicationName参数包含对话框的标题，字符串中可以包含#字符，它能起到分割符的作用。这种情况下，函数会把分割符前的字符串作为标题栏，分割符后的部分作为Microsoft字符串后的第一行。OtherText参数包含了打算显示在Micros

13、oft版本和版权信息后的字符串。IconHandle参数标识了打算显示在对话框上的图标标识，如果设为0，函数会显示Windows缺省的图标。图2.24图2.25格式化对话框SHFormatDrive函数会显示一个格式化对话框，如图2.25所示，它是一个半公开的函数。但现在它不在微软的SDK里。然而微软承认它的存在并把它从Shell32.dll里用名字公开声明，Delphi中的函数定义如下：function SHFormatDrive(Owner：HWND；Drive：UINT；FormatID：UINT；OptionFlags：UINT)：DWORD；stdcall；Owner参数标识拥有对话

14、框的窗体句柄，文档中推荐不要设为0，但实际上好像没什么影响。Drive参数是用来标识打算格式化的驱动器的数值，它是以0为底的，从A开始A：=0,B：=1依此类推。FormatID参数允许我们指定一个格式化的模板，通常情况下，只要赋值为SHFMT_ID_DEFAULT就可以了。OptionFlags参数是一个选项掩码，来确定格式化的选项。当前有两个选项：SHFMT_OPT_FULL=message01；/快速格式化SHFMT_OPT_SYSONLY=message02；/复制系统文件如果函数调用失败，会返回下列错误中的一种来表明错误原因，错误常数如下：SHFMT_NOFORMAT=$FFFFFF

15、FD；/驱动器无法格式化SHFMT_CANCEL=$FFFFFFFE；/格式化被取消了SHFMT_ERROR=$FFFFFFFF；/其他错误Windows NT和WideChar在进一步研究未公开的函数前,我们必须清楚一点，对于未公开的函数来说以null结尾的字符串类型参数大多数被声明为类型指针而不是PChar。这有点像陷阱，但必须承认这是事实。在Win 9X上所有的字符串类型参数声明为PAnsiChar，而在Windows NT上被声明为PWideChar。如果你想你的应用程序适应所有平台，你必须考虑两种情况，在运行时要判断平台类型，这是很讨厌的，但这也是使用未公开的API的代价。选择图标对

16、话框图2.26我们要讨论的第一个完全未公开的函数是PickIconDlg。如图2.26所示这个函数会显示一个对话框，用户可以用来从文件中选择一个图标资源。它通常是用文件类型编辑器来关联图标和某一文件类型的，也会在快捷方式对话框中被调用来修改快捷方式的图标。这个函数从Shell32.dll用值62来公开出来，函数定义如下：function PickIconDlg(Owner：HWND；FileName：Pointer；MaxFileNameChars：DWORD；var IconIndex：DWORD)：LongBool；stdcall；Owner参数和上面的意义类似。FileName参数指向一

17、个缓冲区，包含了被浏览图标的文件名，缓冲区要不小于MAX_PATH+1。MaxFileNameChars指定字符数量大小。IconIndex常数是以0为底的图标索引，当对话框打开时会把焦点定在IconIndex对应的图标上，函数返回后，IconIndex指向最后被选的图标索引。如果用户点了取消按钮，函数返回False。运行程序对话框图2.27 RunFileDlg函数是相当灵活的，如图2.27所示就是调用开始菜单的运行子菜单后会显示的对话框，我们通过值61把它从Shell32.dll暴露出来。下面是函数声明：procedure RunFileDlg(Owner：HWND；IconHandle：

18、HICON；WorkPath：Pointer；Caption：Pointer；Description：Pointer；Flags：UINT)；stdcall；Owner参数就不用再说了。IconHandle参数是显示在对话框上的图标句柄，如果为nil，缺省的icon将会使用。WorkPath参数指向一个字符串来指定应用程序运行的工作路径。Title参数指向作为对话框标题的字符串，如果为nil，就使用缺省的标题。Description参数指向一个描述字符串，主要是告诉用户如何去做，可以设为nil，这时使用缺省的描述。Flags参数用一组位掩码来设定对话框的属性。下面是定义：RFF_NOBROWS

19、E=；/移去浏览按钮RFF_NODEFAULT=；/无缺省的选项RFF_CALCDIRECTORY=；/由文件名确定工作路径RFF_NOLABEL=；/去掉编辑框标签RFF_NOSEPARATEMEM=；/去掉在单独的内存空间运行的复选框(只对NT有效)这个对话框一个很好的特性是允许你控制用户可以运行的应用程序。当用户选择了确认按钮，对话框的父窗体会发送一个通知消息来传递将要运行的程序信息。通知消息是一个WM_NOTIFY消息，它的通知代码设定为RFN_VALIDATE(-510)，然后lParam指向一个TNM_RunFileDlg记录。定义如下：TNM_RunFileDlg=packed

20、record hdr：TNMHdr；lpFile：Pointer；lpDirectory：Pointer；nShow：LongBool；end；hdr数据对象是TNMHdr类型，它是一种标准的Windows数据类型，每个WM_NOTIFY消息的lParam参数都会指向这个数据成分。同时根据不同的消息类型，可能一些额外的数据跟在记录后面，标准的TNMHdr记录定义如下：TNMHdr=packed record hwndFrom：HWND；idFrom：UINT；code：UINT；end；记录中的hwndFrom包含发送消息的窗口句柄，idFrom则包含发送消息的控件标示符，code中包含标识被

21、发送的消息的通知代码。在TNMHdr记录后被打包的额外数据包含三个数据成分：LpFile指向一个包含将要运行的文件的路径字符串；LpDirectory指向正在运行程序的工作目录字符串；最后，nShow用来指定将要运行的应用程序是否可见。对于本文中特定的消息，只对TNMHdr记录中的Code感兴趣，通过检验Code可以确保我们收到一个运行文件校验消息，同时使我们可以存取额外的TNM_RunFileDlg数据成员。当TNMHdr记录中的code等于RFN_VALIDATE(-510)时，可以获得一个TNM_RunFileDlg记录。下面是校验消息的代码：var FileToRun：String；.

22、if TheMessage.Msg=WM_NOTIFY then if PNMHdr(TheMessage.LParam).code=RFN_VALIDATE then WideCharToStrVar(PNM_RUNFILEDLG(TheMessage.LParam).lpFile,FileToRun)；.注意只有当我们已经检验TNMHdr的Code为RFN_VALIDATE后，才映射LParam参数为PNM_RunFileDlg类型。通知消息的返回值决定了应用程序是否能够运行，下面是可能的值：RF_OK=message；/允许程序运行RF_CANCEL=；/取消操作，关闭对话框RF_RET

23、RY=；/取消操作，对话框仍然打开查找文件对话框图2.28调用查找文件对话框的函数是SHFindFiles，对话框如图2.28所示。它是从Shell32.dll按索引值90公开出来的：function SHFindFiles(SearchRoot：PItemIDList；SavedSearchFile：PItemIDList)：LongBool；stdcall；SearchRoot参数允许从一个特定的文件夹开始查找，同在资源管理器中在文件夹上用右键点击查找菜单的效果是一样的。如果设为nil，那么查找是从桌面开始的。SavedSearchFile参数让你指定一个以前查询保存的查找策略文件(*.f

24、nd文件)，根据以前的设定来查找，若不需要的话可以设定为nil。如果你指定了一个非空值的SearchRoot PIDL，那么在调用完SHFindFiles后必须负责释放掉。但是有点奇怪的是，如果你指定了一个非空的SavedSearchFile PIDL参数，函数成功调用的话，你不能去释放这个PIDL，否则会出错，但如果调用失败了的话，你必须释放它。同大多数对话框函数不一样，这个函数是非模态的，也就是系统在另外一个独立的线程中启动对话框，然后立即返回，对话框会在你的程序结束后自动关闭。也就是说你没有任何直接的方法来告诉用户如何使用查找到的结果，所以要想知道用户找到的文件的话，最好是让你的程序支持

25、文件拖放，以便让用户把找到的文件拖放给你。查找电脑对话框同SHFindFiles比较接近的一个函数是SHFindComputer，这个函数调用的结果同开始菜单上查找电脑菜单调用的结果是一样的。它的参数同SHFindFiles完全一样，不同之处在于它完全忽略传递给它的参数，很显然是保留起来为了将来扩展的需要。这里我们只要把参数都设成nil就可以了，另外注意这个对话框也是非模态的。SHFindComputer是从Shell32.dll以索引号91公开出来的：function SHFindComputer(Reserved1：PItemIDList；Reserved2：PItemIDList)：Lo

26、ngBool；stdcall；查找文件对话框通过调用GetFileNameFromBrowse函数可以调出这个对话框，不过说实在的，它实际上只是GetOpenFileName函数的简单封装。而我们常用的TOpenDialog控件也是对GetOpenFileName函数封装，这个函数我们很少会去直接用它。不过还是写出来吧，它是从Shell32.dll里按索引值63公开出来的：function GetFileNameFromBrowse(Owner：HWND；FileName：Pointer；MaxFileNameChars：DWORD；InitialDirectory：Pointer；Defau

27、ltExtension：Pointer；Filter：Pointer；Caption：Pointer)：LongBool；stdcall；图2.29大多数参数对应于OPENFILENAME结构的成员。Owner参数我想就不用再重复了，FileName参数指向一个初始化对话框编辑控制文件名的缓冲区，函数返回后FileName包含被选择的文件路径，它的大小一般设成MAX_PATH+1那么大。MaxFileNameChars参数用来指定FileName缓冲区的大小。InitialDirectory参数指向对话框初始化的目录名，但如果FileName参数被指定了，InitialDirectory就会被

28、忽略而使用FileName参数中的路径。DefaultExtension参数指向一个包含要搜索的缺省扩展名的字符串。Filter参数指向一个以null结尾的可以用来在下拉列表中限定文件类型的过滤字符串。Caption参数指向对话框标题字符串。如果用户选择了一个要打开的文件，函数返回True，当有错误发生，用户选择取消按钮或关闭对话框的话会返回False。外壳对象属性对话框另一个未公开的对话框函数是SHObjectProperties，它可以用来显示外壳对象的属性，比如驱动器、文件夹或文件等，运行效果如图2.29所示。函数可以从Shell32.dll中按索引值178公开出来，定义如下：funct

29、ion SHObjectProperties(Owner：HWND；Flags：UINT；ObjectName：Pointer；InitialTabName：Pointer)：LongBool；stdcall；Flags参数用来指定ObjectName参数对应对象的类型，它可以是下列标识：/打印机OPF_PRINTERNAME=；/路径OPF_PATHNAME=；ObjectName参数指向一个包含路径名的字符串或是要显示属性的打印机名。如果打印机是本地的，可以使用实际的打印机名，如果是网络打印机，就需要使用完整的UNC样式名称，比如COMPUTERNAMEPRINTERNAME。Initia

30、lTabName参数指向一个属性对话框中页面名称字符串，用来指定要显示的缺省页面。如果InitialTabName参数为nil，或不匹配任何页面的名称，第一个属性页面将会被显示。如果函数调用成功会返回True，如果失败会返回False。要想获得扩展的错误信息，可以调用API函数GetLastError。要注意的是这个对话框是非模态的，类似于查找文件对话框，所以函数一被调用，就肯定会显示一个对话框，同时我们没有办法知道用户什么时候关闭了对话框。映射网络驱动对话框图2.30图2.30显示了映射网络驱动器的对话框，我们通过SHNetConnectionDialog函数调用它(win 9x和Win N

31、T上都支持)，它可以按索引值160从Shell32.dll暴露出来，函数定义如下：function SHNetConnectionDialog(Owner：HWND；ResourceName：Pointer；ResourceType：DWORD)：DWORD；stdcall；SHStartNetConnectionDialog函数也会显示同样的对话框，但它显示的对话框是非模态的，同时只在NT上才支持。它可以按索引值215从Shell32.dll中公开出来，函数定义如下：function SHStartNetConnectionDialog(Owner：HWND；ResourceName：PWi

32、deChar；ResourceType：DWORD)：DWORD；stdcall；上面两个函数的参数完全相同。其中ResourceName参数指向一个要连接的网络资源UNC路径名。指定了这个参数的话，显示的对话框中被预设的连接资源就不可改变了。如果这个参数为nil，则在对话框中用户可以指定要连接的资源。ResourceType参数可以是下面的值之一：RESOURCETYPE_DISK或RESOURCETYPE_PRINT。它的不同将会生成不同的对话框。参数为RESOURCETYPE_DISK允许我们为网络驱动资源指定一个盘符，另一个参数允许我们映射一个并行口名比如LPT2为一个网络打印机。然而

33、，不知道为什么RESOURCETYPE_PRINT参数在NT上无效。图2.31如果函数调用成功的话，返回值是NO_ERROR，如果用户取消的对话框，则返回-1($FFFFFFFF)，如果调用失败则返回其他的错误代码，具体错误信息可以用GetLastError API调用获得。关闭系统对话框ExitWindowsDialog和RestartDialog函数可以用来显示关闭和重启系统对话框(如图2.31)，它们同公开的ExitWindowsEx API函数没有什么太大的不同，但在其过程中都会产生一个对话框。ExitWindowsDialog函数可以按索引值60从Shell32.dll中公开出来，R

34、estartDialog函数的在Shell32.dll中的索引值则是59，两个函数的定义如下：procedure ExitWindowsDialog(Owner：HWND)；stdcall；function RestartDialog(Owner：HWND；Reason：Pointer；ExitType：UINT)：DWORD；stdcall；对ExitWindowsDialog函数来说，对话框好像并不使用Owner参数作为父窗口，在Windows 95上，当操作成功的话owner窗口会收到一个WM_QUIT消息。在Windows NT上，owner窗口根本不被使用。同时这个函数没有返回值，所

35、以没有办法知道用户选择了什么操作以及操作是否被取消了。RestartDialog函数更有用一些，当我们修改了系统的设置，并希望重新启动系统使修改生效的时候可以使用这个函数。Reason参数指向一个要显示在对话框中的字符串，用来解释关闭系统的原因。ExitType参数指定关闭类型，可以使用ExitWindowsEX函数使用值的一个子集及额外的几个新值，下面是它们的完全列表：EWX_LOGOFF=message；EWX_SHUTDOWN=；EWX_REBOOT=；EW_RESTARTWINDOWS=；EW_REBOOTSYSTEM=；EW_EXITANDEXECAPP=；如果用户选择执行关闭操作，

36、函数返回IDYES，否则返回IDNO。要注意的是显示在对话框中的原因字符串后总会跟着一个系统缺省提供的字符串用来显示确认信息，所以应该在我们的Reason字符串后附上空格或回车换行字符。另外返回值不能用于确定操作的成功性，它只表明用户的选择，如果重启操作由于某些原因失败了，返回值仍然是IDYES。同时要注意的是要想调用成功，用户还必须有SE_SHUTDOWN_NAME权限(在NT上)。缺少内存对话框SHOutOfMemoryMessageBox是一个未公开的函数，当系统内存不足时可以用来显示标准的外壳信息对话框，它在Shell32.dll中的索引值是126，函数定义如下：function SH

37、OutOfMemoryMessageBox(Owner：HWND；Caption：Pointer；Style：UINT)：Integer；stdcall；它会调用MessageBox API，同时传递3个标准的参数和ERROR_OUTOFMEMORY错误消息。Caption参数指向对话框标题字符串。如果Caption为nil，父窗口的标题就会被使用。Style参数可以被设置为任意MessageBox函数使用的MB_XXX常数的组合，通常设置它为MB_OK或MB_ICONHAND。函数调用返回值参见SDK中MessageBox函数说明。当MessageBox函数被调用时，MB_SETFOREGR

38、OUND标识会被添加到Style参数中，但如果第一次调用失败了的话，MessageBox函数会被再次调用，这次MB_SYSTEMMODAL标识会被添加到Style参数中。MB_SYSTEMMODAL同MB_ICONHAND标识结合后会忽略内存状况来显示消息对话框。当内存确实不足时，函数不会显示任何东西，然而它仍然会返回MessageBox函数调用结果。所以我们可以根据返回值判断函数是否调用成功了。空间不足对话框图2.32另一个资源相关的函数是SHHandleDiskFull，它会显示磁盘不足的信息对话框(如图2.32)。我们可以在由于没有足够磁盘空间时导致程序无法运行的条件下调用这个函数，调用后，如果回收站中有什么东西没有删除的话，对话框允许用户清空回收站来释放磁盘空间。它在Shell32.dll中的索引值为185，函数的定义如下：procedure SHHandleDiskFull(Owner：HWND；Drive：UINT)；stdcall；Drive参数用于指定以0为底的驱动器盘符。0代表A：，1代表B：，依此类推。这个函数的应用比