![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
文章平均质量分 55
LCX87654321
正在努力学习中。
展开
-
给程序添加“伪”数字签名代码的优化
<br />最近看了某位仁兄的给程序添加数字签名的delphi代码,其中里面的文件流的使用让人感觉很高深,其实还有一种更加简单的方法,下面是我修改后的代码:<br />function AddDigiSignFromFile(const FormFile, ToFile: string): Boolean;//添加数字签名var vFileSZQMDZ: Integer;//指定数字签名的地址 vSZQMDZ: Integer; //数字签名地址 vBufSize: Integer;/原创 2010-07-05 22:59:00 · 1521 阅读 · 3 评论 -
一个快速查GetLastError返回值意义的小程序
在调试的时候,GetLastError的返回值对程序出错非常有帮助,GetLastError的返回值是数值,为了能快速的知道这个返回值的含义,我就做了一个GetLastError返回值查询小程序,因为delphi已经自带了这种函数,所以主要代码很简单,就一句SysErrorMessage。有需要的朋友可以下载使用。http://u.115.com/file/f33868fe20原创 2010-10-16 22:39:00 · 969 阅读 · 0 评论