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，就解决了我们的问题。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
