摘要：在FormCreate设置PersonSignLB的windows消息aHint :=THintWindow.Create(nil);aHint.Color :=clInfoBk;FWndMethod := PersonSignLB.WindowProc;PersonSignLB.WindowProc := LabelWndProc;显示个人提示框procedure TMainForm.LabelWndProc(var Msg: TMessage); //根据一定长度，将字符串变为回车的字符 function SplitByLen(src:string;var row:Integer;perC 阅读全文

摘要：C# ThreadPool.QueueUserWorkItem典型案例详解时间：2012-03-07 11:22 来源：未知 收藏 复制分享 今天在博客园拜读了 蒋金楠，难道调用ThreadPool.QueueUserWorkItem（）的时候，真是必须调用Thread.Sleep（N）吗？自己也深有启发，决定再次陈述个人理解。 我自己差不多写了一段源码，类似蒋金楠那篇博文中的：using System;using System.Collections.Generic;using System.Threading;namespace ThreadPoolTest{ class Program 阅读全文

摘要：**************************数学单元*********************************Delphi / Kylix 跨平台运行时（Runtime）库Copyright (c) 1996, 2001 Borland 软件********************************************************************这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas 单元中的数学常规程序函数 注意1) 对于有些函数，这个单元中涉及的概念或常数由Earl 阅读全文

摘要：require'socket'includeSocket::Constants defscan_port if$*[0]==nilor$*[1]==nilor$*[2]==nilabort"用法示例：ruby#$0ip地址开始端口　结束端口EX:如ruby#$0localhost11024"endtime=Time.now scan$*[0],$*[1],$*[2] puts"\n共耗时：#{Time.now-time}秒"endprivate defscan(address,start_port,end_port) threads=[] 阅读全文

摘要：可以编写一宏，使导出的文件与原文件完全一样Sub DoIt() Dim o As OLEObject Dim TargetDir As String '导出文件的目标目录 TargetDir = "D:\" Dim CmdLine As String '使用""，是为了防止文件夹带空格 CmdLine = "explorer.exe " & """" & TargetDir & """" '包含包对象的OLE 阅读全文