我个人认为,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 函数的详细讨论,请到 [url]http://www.csdn.net/[/url] 文档,VB,查找关键字 AnimateWindow,感谢: iProgram。BTW:Windows98 之中也有这个函数,但用了却没有效果!?),方法如下:
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 函数的详细讨论,请到 [url]http://www.csdn.net/[/url] 文档,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;
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;
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 (名字改回来真好)来进行改良吧!
怎么样,是有些麻烦吧。不管怎样,提高程序的性能和兼容性,减少用户不必要的麻烦和烦恼,这应该是我们每一个程序员的追求。
end.
把所有的 Win32 API 声明都这样改以个人之力是不可能的,还请 Borland (名字改回来真好)来进行改良吧!
怎么样,是有些麻烦吧。不管怎样,提高程序的性能和兼容性,减少用户不必要的麻烦和烦恼,这应该是我们每一个程序员的追求。
转载于:https://blog.51cto.com/136264/26568