Delphi初学者参考（二）(1)

中华网科技 http://tech.china.com 2005-07-01 12:02:06

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　Windows API
　　API（Application Programming Interface）应用编程接口，所有的计算机语言都要用到它。API是什么？API是程序使用操作系统提供的服务的一个途径，我们大多数的编程都不直接操作硬件，而是调用这些API，再由操作系统直接操作硬件，这样的好处是我们编程时不必考滤与硬件兼容的问题，更重要的是从操作系统层实现了代码共享。所以，在编程时如果能用API实现的功能，我们尽量用它。

Delphi如何使用Windows API

　　在日常开发工作中，我们经常要使用Windows API函数，那么API函存在在哪里呢？我们可以这样理解，API函数就是封装在Windows系统提供的DLL系统文件中。如我们经常使用的Beep过程（响铃），就是调用Windwos系统目录下的user32.dll中的MessageBeep实现的；SendMessage（发消息）就是直接调用user32.dll的SendMessageA。Delphi使用频率最多的Dll是：advapi32.dll、kernel32.dll、mpr.dll、version.dll、comctl32.dll、gdi32.dll、opengl32.dll、user32.dll、wintrust.dll、msimg32.dll。

　　那么Delphi是如何使用这API函数的呢？既然API函数存在于系统的DLL中，那么我们就可以像调用自己写的DLL一样调用API函数啦。调用DLL函数有两种方式，一种是静态方式，一种是动态方式。调用Windows的API都是采用静态方式，为什么呢？这是因为这些DLL是操作系统提供的最基本服务，操作系统在启动时就已经加载到内存中了，并且操作系统也大量的使用他们。

API与日常编程

　　Delphi封装了Windows的大部分API函数（主要在Windows.pas单元中），应该说可以完成我们的大部分工作，我们一般不直接调用API函数。但有时有特别要求时，我们可能就要调用一些Delphi没封装过的API，有时甚至会调用Windows没公布的API函数。那么如何调用这些API函数呢？就像前面说的，使用静态方法调用就好了。更详细的调用请参看相关的资料。

　　调用这些Delphi没封装的API函数关键是要知道参数。可以查阅看最新的MSDN或相关的资料。

API与VCL

　　Microsoft的MFC大量的封装地Windows API，VCL也不例外。VCL功能的实现大部分都离不开Windows API，要么是直接调用，要么是经过简单的封装再调用。如TControl的Repaint的实现（Control单元中）：
procedure TControl.Repaint;

var

DC: HDC;

begin

if (Visible or (csDesigning in ComponentState) and not (

csNoDesignVisible in ControlStyle)) and (Parent <> nil) and

Parent.HandleAllocated then

if csOpaque in ControlStyle then

begin

//直接调用user32.Dll的GetDC

DC := GetDC(Parent.Handle);

Try

//直接调用gdi32.Dll的IntersectClipRect

IntersectClipRect(DC, Left, Top, Left + Width, Top +

Height);

// Parent.PaintControls调用大量的API

Parent.PaintControls(DC, Self);

Finally

// 直接调用user32.Dll的ReleaseDC

ReleaseDC(Parent.Handle, DC);

end;

end else

begin

//以下两个经过封装调用

Invalidate;

Update;

end;

end;

　　可见VCL中处处都有API，我们从另外一个面来理解VCL就是：VCL就是大量封装API函数的类库，这样的结果就是使我们更容易使用API，不必关心那些烦人的API参数。

首页 上页 | 1 | 2 | 下页 尾页  共 2 页