转一些从shell32.dll导出的函数
外壳对话框
外壳对话框的秘密
常见的Windows的通用对话框被封装在Comdlg32.dll，这给我们的编程提供了很大的便利。但它还不够完整，我们在系统里经常能看到大量的可重复使用的对话框,但在Windows的文档里你却找不到它们的调用方法。而如果我们自己去做这样的界面是非常费时费力的而且也是没有必要的，因为这些对话框实际上很容易得到。这里我要介绍一些已经众所周知或不为认知的对话框，它们可以应用在我们的程序中使程序显得非常友好和专业。
浏览文件夹对话框
图2.23
大多数Delphi程序员都知道如何使用VCL的TOpenDialog控件来让用户浏览将要打开的文件。然而有时你可能只想让用户选择文件夹而不是特定的文件，windows已经提供了一个这样的对话框如图2.23所示。我们可以通过公开的函数SHBrowseForFolder来调用 (这个函数定义在ShlObj单元)，函数定义如下：
function SHBrowseForFolder(var BrowseInfo: TBrowseInfo): PItemIDList; stdcall;
这个函数只有一个参数，但这个参数是一个比较复杂的记录类型
TBrowseInfo = packed record
hwndOwner: HWND;
pidlRoot: PItemIDList;
pszDisplayName: PChar;
lpszTitle: PChar;
ulFlags: UINT;
lpfn: TFNBFFCallBack;
lParam: LPARAM;
iImage: Integer;
end; |
hwndOwner数据成员包含对话框的父窗体的窗口句柄，可以把它设成0。PIdlRoot数据成员指向一个PIDL的指针对应于对话框初始化时的根目录。指定了PIdlRoot后，就只有根目录及它的子目录会出现在对话框中。可以设定它为nil，这时缺省的根目录是桌面，pszDisplayName 数据成员指向一个缓冲区可以用来储存被用户选中的文件名，缓冲区的大小至少为MAX_PATH 这个常数那么大，否则遇到特别长的文件名会溢出。lpszTitle 数据对象指向一个以null结尾的字符串，字符串作为对话框的标题来显示。注意标题不要太长，否则显示时会被截断。ulFlags 标志数据对象用来限制在对话框中显示的文件夹类型。可以设定它为0或下列值的组合：
//在对话框中会包含一个状态区，回调函数可以通过向对话框发送消息来设定状态
BIF_STATUSTEXT
//只允许选择标准文件系统，若选了非标准的文件夹如打印机，确认按钮会变灰
BIF_RETURNONLYFSDIRS = $0001;
//不选择网络文件夹
BIF_DONTGOBELOWDOMAIN = $0002;
// 给状态条留出空白
BIF_STATUSTEXT = $0004;
// 只选择文件系统的上级目录
BIF_RETURNFSANCESTORS = $0008;
//只选择计算机
BIF_BROWSEFORCOMPUTER = $1000;
//只选择打印机
BIF_BROWSEFORPRINTER = $2000;
//包括文件也可以选
BIF_BROWSEINCLUDEFILES = $4000; |
注意：如果你想对话框显示lpszTitle里的用户定制的状态条信息，必须包括 BIF_STATUSTEXT标识。Lpfn数据对象是一个回调函数类型的指针，函数类型如下：
TFNBFFCallBack = function(DialogHandle: HWND;
MessageID: UINT; PIDL: PItemIDList; Data: LPARAM):Integer; stdcall; |
这是一个回调函数，可以用来在同用户交互时控制和更新对话框的显示。如果你不想控制对话框，可以把它设成nil，lParam 数据对象允许你在回调函数中以参数lpfn形式返回一个指针（通常我们用它来返回对象），当然也可以把它设成为0。IImage数据成员不需要设置，因为它是用来接收系统中同文件夹相关的图标列表索引的，我们这里设它为0。
SHBrowseForFolder函数返回一个唯一的指向被选择的文件夹的PIDL。如果文件夹是一个传统的文件对象的话，可以用函数SHGetPathFromIDList把PIDL转换为真实的目录。同时，作为调用者，必须负责释放被返回的item identifier list，使用IMalloc COM 接口来释放。
注意：不要用FreeMem或其他方法来释放 PIDL ，这是因为外壳的内存管理是独立的，只能用IMalloc来释放。
现在我们已经可以显示对话框了，那让我们更深入一步看看如何能够控制对用户动作的反应，这就要用到了回调函数 TFNBFFCallBack。 注意回调函数的意思就是，你只是实现了它，系统就知道什么时候去调用它，就好比一个守株待兔的例子。
DialogHandle参数代表对话框窗口句柄。通常可以用这个句柄给对话框发消息，MessageID 参数并不是一个TMessage 结构的记录，它是对话框通过回调函数发给用户消息的，它可以是下面两个值：
BFFM_INITIALIZED = 1; // 对话框将要显示
BFFM_SELCHANGED = 2; // 用户选中了某项 |
PIDL参数包含其他的额外信息。如果MessageID 是 BFFM_INITIALIZED，PIDL将等于nil。如果MessageID是BFFM_SELCHANGED，PIDL的值将是一个PIDL 对应于用户选择的文件夹。Data 参数包含用户付给TbrowseInfo记录中的Lparam数据成员的值，通常可以传递一个对象指针。下面是一个简单的回调函数的例子：
function BrowseForFolderCallback(DialogHandle: 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_SETSTATUSTEXT = 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 ID |
WParam |
LParam |
| BFFM_SETSTATUSTEXT |
没有使用 |
一个指向新的状态信息的Pchar |
| BFFM_ENABLEOK |
没有使用 |
True使得确认按钮有效，False无效 |
| BFFM_SETSELECTION |
如果Lparam是路径则为True，若Lparam是PIDL则为False |
指向被选择的文件路径或PIDL的Pchar |
|
另外要提到的是，Delphi也提供了对这个函数的封装，那就是SelectDirectory函数。
关于对话框
通常我们都要在自己的程序里加上一个关于对话框来显示一些版本信息等等，Windows为我们提供了一个标准的对话框如图2.24所示，可以在一定范围内对它定制，不过它只适合显示简单的标识和文本（我觉得用处极小）。我们可以通过函数ShellAbout来调用它（声明在ShellAPI单元里），函数定义如下:
function ShellAbout(Owner: HWND; ApplicationName: PChar;
OtherText: PChar; IconHandle: HICON): Integer; stdcall; |
Owner参数标识了拥有对话框的父窗体句柄，通常设为0，表明没有父窗体。ApplicationName 参数包含对话框的标题，字符串中可以包含“#”字符，它能起到分割符的作用。这种情况下，函数会把分割符前的字符串作为标题栏，分割符后的部分作为 "Microsoft"字符串后的第一行。OtherText参数包含了打算显示在Microsoft 版本和版权信息后的字符串。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参数标识拥有对话框的窗体句柄，文档中推荐不要设为0，但实际上好像没什么影响。Drive参数是用来标识打算格式化的驱动器的数值，它是以0为底的，从A开始 A:=0,B:=1依此类推。FormatID 参数允许我们指定一个格式化的模板，通常情况下，只要赋值为SHFMT_ID_DEFAULT就可以了。OptionFlags 参数是一个选项掩码，来确定格式化的选项。当前有两个选项：
SHFMT_OPT_FULL = $0001; // 快速格式化
SHFMT_OPT_SYSONLY = $0002; // 复制系统文件 |
如果函数调用失败，会返回下列错误中的一种来表明错误原因，错误常数如下：
SHFMT_NOFORMAT = $FFFFFFFD; // 驱动器无法格式化
SHFMT_CANCEL = $FFFFFFFE; //格式化被取消了
SHFMT_ERROR = $FFFFFFFF; //其他错误 |
Windows NT 和 WideChar
在进一步研究未公开的函数前, 我们必须清楚一点，对于未公开的函数来说以null结尾的字符串类型参数大多数被声明为类型指针而不是PChar。这有点像陷阱，但必须承认这是事实。在Win 9X上所有的字符串类型参数声明为PAnsiChar，而在Windows NT上被声明为PWideChar。如果你想你的应用程序适应所有平台，你必须考虑两种情况，在运行时要判断平台类型，这是很讨厌的，但这也是使用未公开的API的代价。
选择图标对话框
图2.26
我们要讨论的第一个完全未公开的函数是PickIconDlg。如图2.26所示这个函数会显示一个对话框，用户可以用来从文件中选择一个图标资源。它通常是用文件类型编辑器来关联图标和某一文件类型的，也会在快捷方式对话框中被调用来修改快捷方式的图标。这个函数从Shell32.dll 用值62来公开出来，函数定义如下：
function PickIconDlg(Owner: HWND; FileName: Pointer;
MaxFileNameChars: DWORD; var IconIndex: DWORD):LongBool; stdcall; |
Owner参数和上面的意义类似。FileName 参数指向一个缓冲区，包含了被浏览图标的文件名，缓冲区要不小于MAX_PATH＋1。MaxFileNameChars 指定字符数量大小。IconIndex 常数是以0为底的图标索引，当对话框打开时会把焦点定在IconIndex对应的图标上，函数返回后，IconIndex指向最后被选的图标索引。如果用户点了取消按钮，函数返回False。
运行程序对话框
图2.27
RunFileDlg函数是相当灵活的，如图2.27所示就是调用开始菜单的运行子菜单后会显示的对话框，我们通过值61把它从Shell32.dll暴露出来。下面是函数声明：
procedure RunFileDlg(Owner: HWND; IconHandle: HICON;
WorkPath: Pointer; Caption: Pointer; Description: Pointer; Flags: UINT); stdcall; |
Owner参数就不用再说了。IconHandle参数是显示在对话框上的图标句柄，如果为nil，缺省的icon将会使用。WorkPath 参数指向一个字符串来指定应用程序运行的工作路径。 Title 参数指向作为对话框标题的字符串，如果为nil，就使用缺省的标题。Description 参数指向一个描述字符串，主要是告诉用户如何去做，可以设为nil，这时使用缺省的描述。 Flags参数用一组位掩码来设定对话框的属性。下面是定义：
RFF_NOBROWSE = $01; // 移去浏览按钮
RFF_NODEFAULT = $02; // 无缺省的选项
RFF_CALCDIRECTORY = $04; // 由文件名确定工作路径
RFF_NOLABEL = $08; // 去掉编辑框标签
RFF_NOSEPARATEMEM = $20; // 去掉在单独的内存空间运行的复选框 (只对NT有效) |
这个对话框一个很好的特性是允许你控制用户可以运行的应用程序。当用户选择了确认按钮，对话框的父窗体会发送一个通知消息来传递将要运行的程序信息。通知消息是一个 WM_NOTIFY消息，它的通知代码设定为RFN_VALIDATE (-510)，然后lParam指向一个 TNM_RunFileDlg记录。定义如下：
TNM_RunFileDlg = packed 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 中包含标识被发送的消息的通知代码。
在TNMHdr记录后被打包的额外数据包含三个数据成分：LpFile指向一个包含将要运行的文件的路径字符串；LpDirectory指向正在运行程序的工作目录字符串；最后，nShow 用来指定将要运行的应用程序是否可见。
对于本文中特定的消息，只对TNMHdr记录中的Code感兴趣，通过检验Code可以确保我们收到一个运行文件校验消息，同时使我们可以存取额外的TNM_RunFileDlg数据成员。当TNMHdr记录中的code等于RFN_VALIDATE(-510)时，可以获得一个TNM_RunFileDlg记录。下面是校验消息的代码：
var
FileToRun: String;
...
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 = $00; //允许程序运行
RF_CANCEL = $01; //取消操作，关闭对话框
RF_RETRY = $02; //取消操作，对话框仍然打开 |
查找文件对话框
图2.28
调用查找文件对话框的函数是SHFindFiles，对话框如图2.28所示。它是从Shell32.dll按索引值90公开出来的:
function SHFindFiles(SearchRoot: PItemIDList;
SavedSearchFile: PItemIDList): LongBool; stdcall; |
SearchRoot 参数允许从一个特定的文件夹开始查找，同在资源管理器中在文件夹上用右键点击查找菜单的效果是一样的。如果设为nil，那么查找是从桌面开始的。 SavedSearchFile 参数让你指定一个以前查询保存的查找策略文件（*.fnd文件），根据以前的设定来查找，若不需要的话可以设定为nil。如果你指定了一个非空值的SearchRoot PIDL，那么在调用完SHFindFiles后必须负责释放掉。但是有点奇怪的是，如果你指定了一个非空的SavedSearchFile PIDL参数，函数成功调用的话，你不能去释放这个 PIDL，否则会出错，但如果调用失败了的话，你必须释放它。
同大多数对话框函数不一样，这个函数是非模态的，也就是系统在另外一个独立的线程中启动对话框，然后立即返回，对话框会在你的程序结束后自动关闭。也就是说你没有任何直接的方法来告诉用户如何使用查找到的结果，所以要想知道用户找到的文件的话，最好是让你的程序支持文件拖放，以便让用户把找到的文件拖放给你。
查找电脑对话框
同SHFindFiles比较接近的一个函数是SHFindComputer，这个函数调用的结果同开始菜单上查找电脑菜单调用的结果是一样的。它的参数同SHFindFiles完全一样，不同之处在于它完全忽略传递给它的参数，很显然是保留起来为了将来扩展的需要。这里我们只要把参数都设成nil就可以了，另外注意这个对话框也是非模态的。 SHFindComputer 是从Shell32.dll 以索引号91公开出来的：
function SHFindComputer(Reserved1: PItemIDList;
Reserved2: PItemIDList): LongBool; stdcall; |
查找文件对话框
通过调用GetFileNameFromBrowse函数可以调出这个对话框，不过说实在的，它实际上只是GetOpenFileName 函数的简单封装。而我们常用的TOpenDialog控件也是对GetOpenFileName 函数封装，这个函数我们很少会去直接用它。不过还是写出来吧，它是从Shell32.dll里按索引值63公开出来的：
function GetFileNameFromBrowse(Owner: HWND;
FileName: Pointer; MaxFileNameChars: DWORD;
InitialDirectory: Pointer; DefaultExtension: Pointer;
Filter: Pointer; Caption: Pointer): LongBool; stdcall; |
图2.29
大多数参数对应于OPENFILENAME 结构的成员。Owner参数我想就不用再重复了， FileName 参数指向一个初始化对话框编辑控制文件名的缓冲区，函数返回后FileName包含被选择的文件路径，它的大小一般设成MAX_PATH＋1那么大。MaxFileNameChars 参数用来指定FileName缓冲区的大小。 InitialDirectory参数指向对话框初始化的目录名，但如果FileName参数被指定了，InitialDirectory就会被忽略而使用FileName参数中的路径。DefaultExtension参数指向一个包含要搜索的缺省扩展名的字符串。Filter参数指向一个以null结尾的可以用来在下拉列表中限定文件类型的过滤字符串。Caption参数指向对话框标题字符串。
如果用户选择了一个要打开的文件，函数返回True，当有错误发生，用户选择取消按钮或关闭对话框的话会返回False。
外壳对象属性对话框
另一个未公开的对话框函数是SHObjectProperties，它可以用来显示外壳对象的属性，比如驱动器、文件夹或文件等，运行效果如图2.29所示。函数可以从Shell32.dll中按索引值178公开出来，定义如下：
function SHObjectProperties(Owner: HWND; Flags: UINT;
ObjectName: Pointer; InitialTabName: Pointer):LongBool; stdcall; |
Flags参数用来指定ObjectName参数对应对象的类型，它可以是下列标识：
//打印机
OPF_PRINTERNAME = $01;
//路径
OPF_PATHNAME = $02; |
ObjectName参数指向一个包含路径名的字符串或是要显示属性的打印机名。如果打印机是本地的，可以使用实际的打印机名，如果是网络打印机，就需要使用完整的UNC样式名称，比如\\COMPUTERNAME\PRINTERNAME。InitialTabName参数指向一个属性对话框中页面名称字符串，用来指定要显示的缺省页面。如果InitialTabName参数为nil，或不匹配任何页面的名称，第一个属性页面将会被显示。
如果函数调用成功会返回True，如果失败会返回False。要想获得扩展的错误信息，可以调用API函数GetLastError。要注意的是这个对话框是非模态的，类似于查找文件对话框，所以函数一被调用，就肯定会显示一个对话框，同时我们没有办法知道用户什么时候关闭了对话框。
映射网络驱动对话框
图2.30
图2.30显示了映射网络驱动器的对话框，我们通过SHNetConnectionDialog函数调用它（win 9x和Win NT上都支持），它可以按索引值160从Shell32.dll暴露出来，函数定义如下：
function SHNetConnectionDialog(Owner: HWND;
ResourceName: Pointer; ResourceType: DWORD): DWORD; stdcall; |
SHStartNetConnectionDialog函数也会显示同样的对话框，但它显示的对话框是非模态的，同时只在NT上才支持。它可以按索引值215从Shell32.dll中公开出来，函数定义如下：
function SHStartNetConnectionDialog(Owner: HWND;
ResourceName: PWideChar; ResourceType: DWORD):DWORD; stdcall; |
上面两个函数的参数完全相同。其中ResourceName参数指向一个要连接的网络资源UNC路径名。指定了这个参数的话，显示的对话框中被预设的连接资源就不可改变了。如果这个参数为nil，则在对话框中用户可以指定要连接的资源。ResourceType参数可以是下面的值之一：RESOURCETYPE_DISK或RESOURCETYPE_PRINT。它的不同将会生成不同的对话框。参数为RESOURCETYPE_DISK允许我们为网络驱动资源指定一个盘符，另一个参数允许我们映射一个并行口名比如LPT2为一个网络打印机。然而，不知道为什么RESOURCETYPE_PRINT参数在NT上无效。
图2.31
如果函数调用成功的话，返回值是NO_ERROR，如果用户取消的对话框，则返回 -1($FFFFFFFF)，如果调用失败则返回其他的错误代码，具体错误信息可以用GetLastError API调用获得。
关闭系统对话框
ExitWindowsDialog和RestartDialog函数可以用来显示关闭和重启系统对话框（如图2.31），它们同公开的ExitWindowsEx API函数没有什么太大的不同，但在其过程中都会产生一个对话框。ExitWindowsDialog函数可以按索引值60从Shell32.dll中公开出来，RestartDialog函数的在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 窗口根本不被使用。同时这个函数没有返回值，所以没有办法知道用户选择了什么操作以及操作是否被取消了。
RestartDialog函数更有用一些，当我们修改了系统的设置，并希望重新启动系统使修改生效的时候可以使用这个函数。Reason参数指向一个要显示在对话框中的字符串，用来解释关闭系统的原因。ExitType参数指定关闭类型，可以使用ExitWindowsEX函数使用值的一个子集及额外的几个新值，下面是它们的完全列表：
EWX_LOGOFF = $00;
EWX_SHUTDOWN = $01;
EWX_REBOOT = $02;
EW_RESTARTWINDOWS = $42;
EW_REBOOTSYSTEM = $43;
EW_EXITANDEXECAPP = $44; |
如果用户选择执行关闭操作，函数返回IDYES，否则返回IDNO。
要注意的是显示在对话框中的原因字符串后总会跟着一个系统缺省提供的字符串用来显示确认信息，所以应该在我们的Reason字符串后附上空格或回车换行字符。另外返回值不能用于确定操作的成功性，它只表明用户的选择，如果重启操作由于某些原因失败了，返回值仍然是IDYES。同时要注意的是要想调用成功，用户还必须有SE_SHUTDOWN_NAME权限（在NT上）。
缺少内存对话框
SHOutOfMemoryMessageBox是一个未公开的函数，当系统内存不足时可以用来显示标准的外壳信息对话框，它在Shell32.dll中的索引值是126，函数定义如下：
function SHOutOfMemoryMessageBox(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_SETFOREGROUND标识会被添加到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:\，依此类推。这个函数的应用比较困难，因为当回收站中没有任何东西时对话框不会显示，同时也没有任何返回值表示对话框是否显示，还无法知道用户的操作，比如它是否真的清空了。看起来比较可行的应用只能是程序自行监视磁盘剩余空间，只是使用这个对话框作为一个快速修复的工具。
一般外壳消息对话框
ShellMessageBox函数仅仅是一个对MessageBox函数的简单封装函数，它允许使用字符串资源标识符或标准的以null结尾的字符串，同时还允许加入支持格式化ForamtMessage函数的控制符。ShellMessageBox函数在Shell32.dll中的索引值为183：
function ShellMessageBoxA(Module: THandle; Owner: HWND;
Text: PChar; Caption: PChar; Style: UINT;
Parameters: array of Pointer): Integer; cdecl; |
更确切地说这个函数应该叫ShellMessageBoxA因为它只支持ANSI字符串，还有一个UNICODE的版本的函数ShellMessageBoxW，它的索引值为182，但它只在Windows NT上才有，函数定义如下：
function ShellMessageBoxW(Module: THandle; Owner: HWND;
Text: PWideChar; Caption: PWideChar; Style: UINT;
Parameters: array of Pointer): Integer; cdecl; |
Module参数是提供字符串资源的模块句柄，句柄可以用GetModuleHandle函数获得。顾名思义Text 参数指向一个要显示在对话框中的文本，它也可以是资源字符串ID，文本中可以包括格式控制序列，它将会被在Parameters中提供的额外字符串替代。控制符格式为“%#”，其中“#”是额外字符串在参数中的位置，比如“%1”将被第一个Parameters数组中的字符串元素替代，“%3”将会被第三个元素替代，依此类推。Caption参数指向对话框标题文本，同样它也可以是资源ID，如果参数为nil，Owner指定的窗口标题将被用于对话框标题。Style参数是由位掩码标识组成的，可以设置成MessageBox函数支持的MB_XXX常数的组合。返回值同MessageBox完全一样。
对于这个函数很重要的一点是微软公司使用cdecl来输出这个函数而不是通常的 stdcall。此外，Parameters参数使用了C语言中的可变参数列表，这意味着这个函数不是语言无关的，这使得调用起来非常麻烦，因为Delphi并不直接支持cdecl和可变参数列表。为了解决这个问题，Parameters参数被映射为一个动态指针列表。同时我们还需要使用嵌入式汇编来建立cdecl样式的堆栈。由于动态指针列表的性质，我们必须至少指定一个指针值。如果不想指定要替代的字符串，简单设置为nil就可以了。
posted on 2009-12-18 09:20
幽幽 阅读(800)
评论(0) 编辑 收藏 引用 所属分类:
Windows