科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件浅议Delphi中的Windows API调用

浅议Delphi中的Windows API调用

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

为了能在Windows下快速开发应用程序,Delphi对Windows的控件都进行了很好的封装。

作者:yanghq2000 来源:天极网 2007年10月31日

关键字: 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函数了。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章