计算机二级DELPHI函数:Win32API使用特殊情况计算机二级考试

文章作者 100test 发表时间 2009:05:07 18:06:51
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　我个人认为，Delphi 是当今最好的 Windows 可视化开发工具。
　　其种种特点令开发如虎添翼。但要想发挥出 Delphi 真正的内含性能比如开发控件，实现一些特殊的功能，就必须直接调用 Win32 API。
　　Win32 API 主要包含在 Windows95/98/NT/2K 的系统动态连接库中如 Kernel32.dll、User32.dll、Gdi32.dll、Shell32.dll 等等。
　　通常情况下 我们只要在代码的 Uses 部分加入 Windows 等单元的声明即可像使用 Delphi 内置函数一样的使用 Win32 API 函数，十分方便。
　　但是，这样使用有时候会带来一些意想不到的麻烦。具体如下：众所周知，Windows 的版本十分多，仅 Win95 就有 Win95A，Win95B等等，而它们对 Win32 API 的实现是有细微差别的，尽管它们都是Win32 平台。有一些 Win32 API 函数在特定的 Windows 版本中名称有些许不同，或者根本就是是不存在的。
　　这样就带来了问题： Delphi 的 Windows 等单元是与当时最新的Win32 API 全集对应的，Delphi 在编译的时候总是动态连接 Windows函数库（所有的 Windows 编译型开发工具都是这样的）。编译时毫无问题的代码，其可执行文件在特定的 Windows 平台上就无法使用。
　　由于 Windows 的可执行文件加载机制，在 Delphi 集成环境中是无法跟踪这样的潜在问题的。下面举两个例子：
　　例一：
　　Win32 API 声明：
　　function BroadcastSystemMessage. external user32 name \BroadcastSystemMessageA\.
　　（来自 Delphi 5 Enterprise Windows.pas ：29408）
　　注意，使用这个函数编译后，程序在 Win95 的早期版本中无法使用（好像是 Win95A）
　　将函数声明改为如下后，问题解决：
　　function BroadcastSystemMessage. external user32 name \BroadcastSystemMessage\. //注意这里！！
　　例二：
　　Win32 API 声明：
　　function SHGetSpecialFolderPath. external shell32 name \SHGetSpecialFolderPathA\
　　（来自 Delphi 5 Enterprise ShlObj.pas ：3333）
　　注意，使用这个函数编译后，程序在 Win95 某版本中无法使用（Shell32.dll 版本：4.00.1111），因为这个函数根本就不存在！！
　　目前我尚无解决方案要避免这样的问题的出现，有两个方法：
　　一：不直接使用 Win32 API，找第三方控件（这个方法好像是废话）
　　二：动态加在函数。方法如下：以 Win2K 中的 AnimateWindow 为例(关于 AnimateWindow 函数的详细讨论，VB查找关键字 AnimateWindow)
　　Unit XXXX.
　　.....
　　type
　　FAnimateWindow = function(
　　const hwnd : HWND. //仅对窗口有效
　　const dwTime : DWORD. //动画持续时间，默认200ms
　　const dwFlags : DWORD): DWORD. stdcall.
　　function AnimateWindow(const hWnd : HWND. const dwTime : DWORD.
　　const dwFlags : DWORD): DWORD.
　　implementation
　　function AnimateWindow(const hWnd : HWND. const dwTime : DWORD.
　　const dwFlags : DWORD): DWORD.
　　var
　　DLLHandle : THandle.
　　AnimateWindow : FAnimateWindow.
　　begin
　　Result := 0.
　　DLLHandle := LoadLibrary(\user32.dll\).
　　@AnimateWindow := GetProcAddress(DllHandle,\AnimateWindow\).
　　Result := AnimateWindow(hWnd, dwTime, dwFlags).
　　end.
　　.....
　　end.
　　怎么样，是有些麻烦吧，很值的。
　　如果你不想让自己的程序挑三拣四，如果你不想让自己被称为废物程序员，呵呵，试一下吧。

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总