• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

浅议delphi中的windows api调用

为了能在windows下快速开发应用程序，delphi对windows的控件都进行了很好的封装，这样，我们就可以直接使用delphi的控件来编写程序，而不用使用格式、调用控制复杂的api来进行开发，为我们节省了大量的开发时间。

可有时候这些控件解决不了我们的问题，这个时候我们就不得不使用api了，也就是windows的应用程序接口。这样，问题也就随之而来了，api是用c++语言编写的，而delphi的脚本语言是pascal，两者使用的数据类型是不兼容了。那么，如何在delphi中调用数据类型不兼容的api呢，这就是本文中我为大家介绍的内容了。

我们在delphi中最常用到的一个数据类型是string类型，可api并不支持，那么当我们需要从api中得到一个string类型的值时该如何去做呢？看看下面的程序：

function getsyspath: string;

var

stmp: string;

begin

result := ’’;

//调用windowsapi得到windows的系统路径

setlength(stmp,256);

getsystemdirectory(pchar(stmp),256); //这是一个api函数

setlength(stmp,strlen(pchar(stmp)));

result := stmp + ’\’;

end;

在该函数中，调用了api函数getsystemdirectory，它的第一个参数是一个指向以null结尾字符串的指针，在delphi中，这种数据类型是pchar，所以这里要进行数据类型转换，要写成pchar(stmp)。 我们再看另外一个例子：

procedure tform1.changeappicon;

var

icon: ticon ;

begin

icon := ticon.create;

try

icon.handle := extracticon(application.handle,pchar(’d:\winnt\regedit.exe’),0); //这是一个api函数

if icon.handle <> 0 then

application.icon := icon;

finally

icon.free;

end;

end;

该过程通过api函数得到一个应用程序的图标，来动态改变当前程序的图标。api函数extracticon返回的是一个hicon类型，是一个指向图标的指针，如果写成application.icon = extracticon(application.handle, pchar(’d:\winnt\regedit.exe’), 0); 编译肯定不通过，数据类型不一致吗！application.icon属性是ticon类型的，我们可以创建一个 ticon，把api的返回值赋给ticon.handle，最后将icon赋值给application.icon，就解决了我们的问题。

通过上面的例子，我们可以看到，delphi并不直接支持windows中的数据类型，只能通过封装的形式来支持。要熟练地调用api函数，我们一定要熟悉delphi的封装机制，多看、多写，多去实践，那么，我们就能够随心所欲的调用api函数了。

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范