浅议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函数了 。