Delphi 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.

怎么样，是有些麻烦吧，很值的。
    如果你不想让自己的程序挑三拣四，
    如果你不想让自己被称为废物程序员，呵呵，试一下吧。

本文地址：http://com.8s8s.com/it/it6273.htm