DelphiWin32API使用的特殊情况

 我个人认为，Delphi 是当今最好的 Windows 可视化开发工具。其种种特点令开发如虎添翼。但要想发挥出 Delphi 真正的内含性能比如开发控件，实现一些特殊的功能，就必须直接调用 Win32 API（如果你跨平台开发用 CLX 就另当别论）。
    Win32 API 的实现部分主要包含在 Windows95/98/NT/2K 的系统动态连接库中，如 Kernel32.dll、User32.dll、Gdi32.dll、Shell32.dll 等等，我们可以用诸如 eXeScope 等工具来进行察看。
    通常情况下，我们只要在代码的 Uses 部分加入 Windows 等单元的声明（这通常是由 Delphi IDE 自动完成的）即可像使用 Delphi 内置函数一样的使用 Win32 API 函数，十分方便。
    但是，这样使用有时候会带来一些意想不到的麻烦。具体如下：众所周知，Windows 的版本十分多，仅 Win95 就有 Win95A，Win95B等等，尽管它们都是 Win32 平台，但它们对 Win32 API 的实现是有细微差别的。有一些 Win32 API 函数在特定的 Windows 版本中名称有些许不同，或者根本就是不存在的。
    这样就带来了问题： Delphi 的 Windows 等单元是与其发布时最新的 Win32 API 全集对应的，Delphi 在编译的时候仅仅是按照 Windows.pas 等单元的声明来进行编译（似乎所有的 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），因为这个函数根本就不存在！！如果实在是要用这个功能，请使用函数：SHGetSpecialFolderLocation ，它的问题少一些。
    要避免这样的问题的出现，有三个方法：
    一：不直接使用 Win32 API，找第三方控件（这个方法好像是废话，而且即便是控件，它的 API 调用也可能会产生这个问题）；
    二：不用 Win32 API，自己写函数（好像不太现实，不过我还真的写过一个函数来代替一个 Win32 API）。
    三：动态加载函数。以 Win2K 中的 AnimateWindow 为例(关于 AnimateWindow 函数的详细讨论，请到 http://www.csdn.net/ 文档，VB，查找关键字 AnimateWindow，感谢: iProgram。BTW：Windows98 之中也有这个函数，但用了却没有效果！？)，方法如下：

Unit Win2k;

.....//省略若干行
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'');
   if DLLHandle <> 0 then
   begin
      @AnimateWindow := GetProcAddress(DllHandle,''AnimateWindow'');
      if @AnimateWindow <> nil then
         Result := AnimateWindow(hWnd, dwTime, dwFlags);
   end;
end;

.....//省略若干行
end.
    把所有的 Win32 API 声明都这样改以个人之力是不可能的，还请 Borland （名字改回来真好）来进行改良吧！
    怎么样，是有些麻烦吧。不管怎样，提高程序的性能和兼容性，减少用户不必要的麻烦和烦恼，这应该是我们每一个程序员的追求。