摘要:
{*******************************************************}{ }{ 导出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: 阅读全文