- 博客(8)
- 资源 (8)
- 收藏
- 关注
原创 delphi 代码学习笔记
窗体布局,一般先放一个Panel上去, bevelouter: 斜角外部: bvnone; align : client; panel color: $00E7E7E7, ctl3D: true; parentctl3D; parentshowhint : false; 蓝色: $00EC894F;时钟用的是: rzclockstat 控件: 字体格式用:verdana;
2016-04-25 20:17:35 639
原创 软件修复心得
首先去掉加密狗的那段代码;2.服务模块,脚本不新,导致程序与库的版本不一样。报错3.系统启用模块无法起效。主要是使用了狗返回类型。通过狗的权限来控制系统的权限的。这个地方也要修复一下。
2016-04-23 20:10:52 384
原创 window7提示不是正版的问题。
主要原因是360自动修复了某些补丁导致的。1,可以让360自动修复补丁关掉。2. 找到出现问题前的修复的那些补丁,删除即可3.重启SPP 那几个服务,你肯定搜到过。
2016-04-14 16:18:54 364
原创 软件已过试用期,请下载最新试用版本
这个主要是由于安装了虚拟打印机造成的。不是excel版本的问题,也不是打印控件的问题,也不是操作系统不是正版的问题。
2016-04-14 16:14:42 2042
原创 修改系统时间
function SynTimeFromServer(ServerDateTime: string;vmodify:Boolean = true): Boolean; var sysTime: TSystemTime; begin Result := True; with sysTime do begin if vmodify
2016-04-11 13:08:51 434
原创 修改系统日期的代码。不耗时,很快
var str: string; function SynTimeFromServer(ServerDate, ServerTime: string): Boolean; var sysTime: TSystemTime; begin Result := True; with sysTime do begin wYe
2016-04-11 10:59:08 660
原创 delphi socket客户端连接服务端时的错误
服务端关闭,客户端连接的时候,会报10061错误这个时候,用try except end; 是捕获不到的。因为这个socket是线程内的错误。无法捕获。begin if ErrorCode = 10061 then begin ShowApplicationMsg('用IPAD操作打印前请手动打开对应单据!',IWARNINGMSG); tasklist
2016-04-11 10:33:22 2686
原创 delphi多线程设计
synchronize方法,将与VCL交互的程序包含在一起。然后启动线程。 thread.resume; terminate; 线程的终止方法。很幽默的讲解六种Socket I/O模型本文简单介绍了当前Windows支持的各种Socket I/O模型,如果你发现其中存在什么错误请务必赐教。一:select模型二:WSAAsyncSelect模型
2016-04-03 23:03:27 985
Delphi7中ADO数据库开发技术
2013-12-18
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人