LCX87654321的专栏

<br />最近看了某位仁兄的给程序添加数字签名的delphi代码，其中里面的文件流的使用让人感觉很高深，其实还有一种更加简单的方法，下面是我修改后的代码：<br />function AddDigiSignFromFile(const FormFile, ToFile: string): Boolean;//添加数字签名var vFileSZQMDZ: Integer;//指定数字签名的地址 vSZQMDZ: Integer; //数字签名地址 vBufSize: Integer;/

在调试的时候，GetLastError的返回值对程序出错非常有帮助，GetLastError的返回值是数值，为了能快速的知道这个返回值的含义，我就做了一个GetLastError返回值查询小程序，因为delphi已经自带了这种函数，所以主要代码很简单，就一句SysErrorMessage。有需要的朋友可以下载使用。http://u.115.com/file/f33868fe20