摘要: {*******************************************************}{ }{ 导出Tdbgrideh数据 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit uExport;interfaceuses DBGridEhImpExp, DBGridEh, SysUtils, Dialogs, ComObj, ActiveX, Variants, db, FormWait,Windows,Graphics;procedur 阅读全文
posted @ 2009-03-26 08:59 delphi中间件 阅读(436) 评论(0) 推荐(0) 编辑
摘要: {*************************************************************}{ }{ 注册函数 }{ 作者: 陈新光 }{ }{ Copyright (c) 2006 咏南工作室 }{ }{*************************************************************}unit uSafeFun;interfaceuses Windows, SysUtils, Classes; {得到CPUID} Function GetCPUID: string; {获取第一个IDE硬盘的序列号} function 阅读全文
posted @ 2009-03-26 08:39 delphi中间件 阅读(314) 评论(0) 推荐(0) 编辑
摘要: 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: 阅读全文
posted @ 2009-03-26 08:37 delphi中间件 阅读(169) 评论(0) 推荐(0) 编辑