摘要：
第三方元件简介--RXLib2.75这是有史以来最为经典、优秀的第三方免费元件集。它的很多优良的特性连专业的VCL元件制造厂商的产品都无法媲美。老一些的Delphi/C++Builder程序员都非常欣赏这一巨大的宝库，将这些元件用于大量的软件开发中。例如，经笔者调查，著名的Foxmail软件中就使用了RXLib元件（当然，Foxmail是Delphi开发的）。这套元件是一套综合性元件集。它其中的内容包含：界面开发、数据库开发、系统开发、常用字符串处理函数、程序开发常用元件等。最为经典的元件有：FormStorage：将窗体的属性、窗体上的元件的属性存储在注册表或配置文件中，当下次打开软件时，常 阅读全文
摘要：
--分页查询数据--调用 sp_ShowPageQ 'TFetchData','id',0,'*',200,2,'fetchdt > ''2008-10-22'''CREATE PROCEDURE sp_ShowPageQ @strTable varchar(50), --表名 @strColumn varchar(50), --按该列来进行分页 --@intColType int, --@strColumn列的类型,0-数字类型,1-字符类型,2-日期时间类型 @intOrder int, 阅读全文
摘要：
{*******************************************************}{ }{ 导出Tdbgrideh数据 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uExport;interfaceuses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait,Windows,Graphics;procedur 阅读全文
摘要：
{*************************************************************}{ }{ 注册函数 }{ 作者: 陈新光 }{ }{ Copyright (c) 2006 咏南工作室 }{ }{*************************************************************}unit uSafeFun;interfaceuses Windows, SysUtils, Classes; {得到CPUID} Function GetCPUID: string; {获取第一个IDE硬盘的序列号} function 阅读全文
摘要：
unit uThread;interfaceuses Classes,SysUtils;Type //Tfun = procedure; Tfun = procedure of object; TFunThread =Class(TThread) private fun:Tfun; protected procedure Execute;override; public Constructor Create(Afun:Tfun); Destructor Destroy;override; end;implementationconstructor TFunThread.Create(Afun: 阅读全文
摘要：
unit untFixForm;interfaceusesClasses, SysUtils, Controls, Forms;typeTFontedControl = class(TControl)public property Font;end;TFontMapping = record SWidth : Integer; SHeight: Integer; FName: string; FSize: Integer;end;procedure FixForm(AForm: TForm);procedure SetFontMapping;varFontMapping : array of 阅读全文
摘要：
互斥（mutex）互斥比较类似阻塞，关键在于互斥可以跨进程的线程同步，很多只允许应用程序运行一次的实例就是用互斥方法来实现的。互斥用到以下的API函数：createMutex(), 创建互斥对象。releaseMutex(), 解除互斥关系。互斥的一般使用流程：首先createMutex创建互斥对象，然后waitForSingleObject进入互斥环境，当用到同步的代码执行完成后，用releaseMutex解除互斥关系，当所有线程访问完后，调用closeHandle方法释放互斥对象。waitForSingleObject()函数来防止其它线程进入同步区域的代码。function waitfo 阅读全文
摘要：
TIdAntiFreeze工作原理：在内部定时停止堆栈调用、然后调用Application.ProcessMessages。 Indy支持线程pooling。可以用TIdThreadMgrPool组件利用线程pooling 数以百计的线程对于一个忙碌的服务器，可能需要数以百计、千计的线程。人们普遍误 阅读全文
摘要：
procedure DeleteDir(sDirectory: String); //删除目录和目录下得所有文件和文件夹 var sr: TSearchRec; sPath,sFile: String; begin //检查目录名后面是否有 '/' if Copy(sDirectory,Length(sDirectory),1) <> '/' then sPath := sDirectory + '/' else sPath := sDirectory; //---------... 阅读全文
摘要：
点开始--->运行--->ftp://hxtech.com能够登录我的FTP SERVER设置过程:直接在C:/WINNT/system32/drivers/etc/Hosts文件中加上IP和域 名就可以了 阅读全文