Win32 API 使用的特殊情况

我个人认为，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 函数的详细讨论，请到 www.csdn.net 文档，VB
源代码网推荐 查找关键字 AnimateWindow，感谢: iProgram)
源代码网推荐
源代码网推荐 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.
源代码网推荐
源代码网推荐 怎么样，是有些麻烦吧，很值的。
源代码网推荐 如果你不想让自己的程序挑三拣四，
源代码网推荐 如果你不想让自己被称为废物程序员，呵呵，试一下吧。