计算机二级DELPHI函数:Win32API使用特殊情况

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在考试大论坛 考试大在线题库
  我个人认为,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 函数的详细讨论,VB查找关键字 AnimateWindow)
  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.
  怎么样,是有些麻烦吧,很值的。
  如果你不想让自己的程序挑三拣四,如果你不想让自己被称为废物程序员,呵呵,试一下吧。

  2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

  2009年全国计算机等级考试报名信息汇总

  2009年NCRE考试有新变化

  2009年全国计算机等级考试大纲

  2009年上半年全国计算机二级考试试题及答案

  2009年上半年全国计算机等级考试试题答案汇总

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答