摘要：
等待进程树的结束需要用到windows 2000 的job objects内核对象，默认在delphi windows pas里是没有定义的，所以必须手动引用job相关的定义，下面我把jobs.pas 贴出来unit Jobs;{Interface unit for Windows 2000 Job Objects.windows 作业对象定义 james}interfaceUses Windows;Type TJobObjectInfoClass = Cardinal; PJobObjectAssociateCompletionPort = ^TJobObjectAssociateComp. 阅读全文
摘要：
在升级ADT 17版本后，在编译载有admob广告的SDK后出现如下错误，03-25 07:40:29.544: E/AndroidRuntime(497): java.lang.NoClassDefFoundError: com.google.ads.AdView搞得我要死。解决办法： ADT 17对引用的jar有要求，要求jar包要放到项目下的libs里才可以找到，否则apk不会包含该jar包，所以会有类型引用异常的错误。 阅读全文
摘要：
定义： 将复杂构建与表示分离，使得同样的构造过程创建不同的表示俗语： 比如要实现很多内部功能复杂的类，而这些类的构造过程差不多，而又不希望将这种复杂性交给调用者时，可考虑用建造者模试设计。例子： 例如，我要装修房子，但我又不想自已买一堆材料，然后画施工图纸请工人施工，因为这样太复杂，我又不专业。因此，我请了装饰公司帮忙。我告诉他们我要什么样的效果，他们会根据要求购买材料，画图，施工，中间的繁杂过程我是看不到的。最后我得到满意的装修房子。角色： 这里有三个角色： 一、调用者（client）通常所说的客户端，例子里的我自已 二、指导者（Director）例子里说的装包饰公司 三、建造者 (Buil 阅读全文
摘要：
定义： 创建一系统相互依赖或关联的接口，不用指定具体的类。俗语： 比如要构建一个大类，这个类的功能又由许多子类组成，而这些子类又有各自的不同功能的版本。这时，可考虑用虚拟工厂模式。例子： 要组装生产电脑。电脑由硬盘、内存、CPU、主板、电源等部件组成。这些部件就是我们定义的子类。因为各个部件（子类)的品牌，规则各异。如果为每一个部件创建一个独立的类那会使得组装起来很杂乱，而且强烈依赖每个具体的部件，如果某个部件丢失，则影响整台电脑的生成。所以，要解决这类问题，就需要创建一个抽象工厂，该工厂的功能是创建硬盘、内存、cpu等。这里大家可能发现，没有指定具体的品牌。对，是这样的。优点就是这里，这里第 阅读全文
摘要：
如何修改远程桌面端口: 步骤： 1.打开“开始→运行”，输入“regedit”，打开注册表，进入以下路径：[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp]，看见PortNamber值了吗？其默认值是3389，修改成所希望的端口即可，例如6111。 2.再打开[HKEY_LOCAL_MACHINE\SYSTEM\CurrentContro1Set\Control\Tenninal Server\WinStations\RDP-Tcp]，将PortNumber的值（默... 阅读全文
摘要：
.net调用java webService返回类型是空。在java中自定义类型是不被.net认同的，所以接收不到。解决办法：1.自定义类型必须实现java.io.Serializable结构。2.将返回类型与web service放到同一package。用Java开发的人可能就会习惯的将返回类型与web service存放在不同的package中.我就是将返回的类型存在下xx.xx.domain目录下，而将web service存在xx.xx.service目录下，在用eclipse生成 webservice服务时就把它们放到不同的命名空间中,导致.net客户端无法获取自定义类型的值。 阅读全文
摘要：
很多时候从网上找到的取操作系统版本的代码都不是很准确，有些信息也不全面。为此，在msdn上找到全面的信息整理成代码，共享！unit WindowsSysVersion;interfaceuses windows ;{$IFDEF CONDITIONALEXPRESSIONS}{$IF Defined(TOSVersionInfoEx)}{$DEFINE TOSVERSIONINFOEX_DEFINED}{$IFEND}{$ENDIF}{$IFNDEF TOSVERSIONINFOEX_DEFINED}type POSVersionInfoEx = ^TOSVersionInfoEx; TOSV 阅读全文
摘要：
select * 表 where 时间=#2010-7-13#记得前面要加#号,否则可能会提示格式不匹配 阅读全文
摘要：
uses Shellapi;procedure TForm1.Button2Click(Sender: TObject);varshInfo:SHFILEINFO; //文件信息结构ico:Hicon; //图标句柄icoimg:Ticon;begin shellapi.SHGetFileInfo(pchar(edit1.Text),FILE_ATTRIBUTE_NORMAL,shInfo,siz... 阅读全文
摘要：
procedure decompressfileEx(filename, targetpath: string);const C_SIZE = 1000000; // 1000000; //字节数大约为1M大小var InStream, OutStream: TmemoryStream; ZStream: TdeCompressionStream; ASize: Integer; //原始文件大小... 阅读全文