在Delphi中巧用Windows 的API函数精编.docx

在Delphi中巧用Windows的API函数

在Delphi中巧用Windows的API函数潘汉杰河南金融管理学院计算机教研室应用之一：Delphi中有控件MEMO，当使用应控件输入内容或编辑时，如何确定光标当前的位置呢？这时就可以调用WindowsAPI函数中的EM_LINEFROMCHAR和EM_LINEINDEX消息来确定MEMO控件中光标的当前行和列，具体调用方法的过程如下：procedureTForm1.Button1Click(Sender:TObject);varLineNum:longint;CharsBeforeLine:longint;beginLineNum:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,LineNum,0);Label1.Caption:='Line:'+IntToStr(LineNum+1);Label2.Caption:='Position:'+IntToStr((Memo1.SelStart-CharsBeforeLine)+1);end;应用之二：Delphi中的控件TlistBox没有提供水平滚动条，如果想添加一个水平流动条，我们只需使用API函数给TListBox发送一个LB_SetHorizontalExtent消息就行了。源代码如下：SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,2000,longint(0));应用之三：当我们需要获取所运行程序的计算机的分辨率时，有二种方法：①可以通过访问Delphi提供的SCREEN全局变量，即SCREEN.WIDTH和SCREEN.HEIGHT以像素点给出屏幕的分辨率。②利用WINDOWS的API函数GetDeviceCaps()来得到所用显示器的分辨率，源代码如下：Application.Initialize;Application.CreateForm(TForm1,Form1);CASEGetDeviceCaps(GetDC(Form1.Handle),HORZRES)of640://对640*480分辨率进行处理的代码;800://对800*600分辨率进行处理的代码;1024://对1024*768分辨率进行处理的代码;1280://对1280*1024分辨率进行处理的代码;END;Application.Run;通讯地址：郑州市郑花公路29号院河南金融管理学院计算机教研室潘汉杰邮政编码：450008电话：[phone]