精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>[转]Delphi Win32 API 使用的特殊情况

主题:[转]Delphi Win32 API 使用的特殊情况
发信人: teleme(PassWord)
整理人: kingron(2001-02-17 11:20:39), 站内信件
    我个人认为,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. 

   
 作者 : iriscat 
 出处:  http://www.csdn.net/develop/read_article.asp?id=3817 

[关闭][返回]