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.

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