充分利用Windows API扩展Delphi函数_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

充分利用Windows API扩展Delphi函数

作者：闵涛文章来源：闵涛的学习笔记点击数：1829 更新时间：2009/4/23 18:25:57

nbsp; ErrID:=GetLastError();
    ExistingFileName:=SysErrorMessage(ErrID);
    if Mode<2 then
    begin
      msg:=''''CopyFile Error!'''';
    mbType:=OKOnly+Excalamation;
    MsgBox(msg,mbType,ExistingFileName);
    end;
    Mode:=ErrID;
    end;
    CopyF:=CpFlag;
    end;
    CopyF函数参数说明如下:
    若拷贝操作成功,函数CopyF返回True,失败函数CopyF返回False。
    ExistingFileName是字符变量,输入时代表源文件名。若操作失败,则返回错误信息字符
串(由于调用了API函数,在中文Windows下该信息当然就是中文)。 NewFileName是字符
常量,代表目标文件名。
    Mode是整数变量,输入时代表拷贝的方式:
    0表示如果目标文件存在,将覆盖它,操作失败,将显示具有出错信
息的信息框;
    1表示如果目标文件存在,不覆盖它,操作失败,显示具有出错信息
的信息框;
    2表示如果目标文件存在,将覆盖它,操作失败,不显示信息框;
    3表示如果目标文件存在,不覆盖它,操作失败,不显示信息框;
    当拷贝操作失败时,Mode将返回出错代码。
    总之,灵活应用API函数可以使您的应用程序的界面与您使用的Windows的语言环境相
当和谐地融为一体,摆脱掉Delphi的痕迹,使您的程序给人以相当"专业"的感觉。最后说明
一点,如果要使这些自定义的函数成为"全局"的,在其它单元中也能够使用,需将函数标题
复制到Unitl单元interfaces的type段中(应删除"TForml."几个字符);然后在调用函数的其他单
元implementation中的user段中加入Unitl;在函数名前要加上"Form1."几个字符,如在Unit2单
元中调用MsgBox就应写成Form1.MsgBox。
    (以上所有函数均在Windows 95中文版使用Delphi Desktop V2.0
调试通过)

上一页 [1] [2]

[系统软件]InstallShield Express for delphi制作安装程序定…  [常用软件]InstallShield Express制作Delphi数据库安装程序
[VB.NET程序]Auto Complete combo Box（VB.NET Source Use API…  [VB.NET程序]在 VB 中使用 Unicode API
[VB.NET程序]API 更改系统菜单条目  [VB.NET程序]在VB中调用Windows API的注意事项
[VB.NET程序]vb调用winInet API接口post数据到指定的url  [VB.NET程序]如何用 API 播放 CD
[VB.NET程序]VB5.0与Windows API 间的呼叫技巧  [VB.NET程序]在VB6中用WINDOWS API函数读写INI文件

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi的嵌入式asm一例: Byte快速转换为16进制字符串

下一篇教程：控制第三方程序

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……