2016年04月_云中雁012345

12月 10月 09月 08月 07月 06月 05月 04月 03月 02月 01月

原创 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 2040

原创修改系统时间

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 433

原创修改系统日期的代码。不耗时，很快

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 658

原创 delphi socket客户端连接服务端时的错误

服务端关闭，客户端连接的时候，会报10061错误这个时候，用try except end; 是捕获不到的。因为这个socket是线程内的错误。无法捕获。begin if ErrorCode = 10061 then begin ShowApplicationMsg('用IPAD操作打印前请手动打开对应单据！',IWARNINGMSG); tasklist

2016-04-11 10:33:22 2685

原创 delphi多线程设计

synchronize方法，将与VCL交互的程序包含在一起。然后启动线程。 thread.resume; terminate; 线程的终止方法。很幽默的讲解六种Socket I/O模型本文简单介绍了当前Windows支持的各种Socket I/O模型，如果你发现其中存在什么错误请务必赐教。一：select模型二：WSAAsyncSelect模型

2016-04-03 23:03:27 985