• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

Win32 API 使用的特殊情况_Delphi

Delphi 搞代码 3年前 (2018-08-09) 93次浏览 已收录 0个评论

    我个人认为,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

http://www.gaodaima.com/?p=65886Win32 API 使用的特殊情况_Delphi

等等,而它们对 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 函数的详细讨论,请到 http://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.

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

欢迎大家阅读《Win32 API 使用的特殊情况_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址