|
|
为了能在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函数了。
|
|
