2010年06月_金卯刀

12月 11月 10月 09月 07月 06月 05月 04月 03月 02月 01月

转载关于颜色HSL(色度、饱和度、亮度)

下面的每一个表代表一种色调。每个色调以30度间隔从色环取得。表中的X轴代表饱和度(100%, 75%, 50%, 25%, 0%)。 Y轴代表亮度。50% 属于 '正常'。 0度红 100%75%50%25%0%100#FFFFFF#FFFFFF#FFFFFF#FFFFFF#FFFFFF88#FFBFBF#F7C7C7#EFCFCF#E7D7D7#DFDFDF75#FF8080#EF8F8F#DF9F9F#CFAFAF#BFBFBF63#FF4040#E75858#CF7070#B78787#

2010-06-24 00:26:00 11611

转载磁盘主引导区

硬盘主引导扇区是一个敏感的区域, 它的安全与否直接决定硬盘是否能够正常使用。深入认识和灵活使用硬盘主引导扇区将有助于你的系统维护和许多特殊工作完成。 　　一、与DOS 引导扇区的区别 　　对于DOS系统来说, 有两种不同的引导扇区,即DOS 引导扇区和硬盘主引导扇区。 DOS 引导扇区存在于软盘的第一逻辑扇区或硬盘DOS分区的第一逻辑扇区,是用FORMAT命令对磁盘格式化时产生的, 是引导DOS 系统或正确使用磁盘的必要条件，在DOS下可用DEBUG方便地读出: 　　C>DE

2010-06-13 17:08:00 2818 1

原创 SendMessage妙用

Delphi用SendMessage获取目录下所有文件━━━━━━━━━━━━━━━━━━━━━━━━━━procedure TForm1.btn1Click(Sender: TObject);constDIRATTR = DDL_READWRITE or DDL_READONLY or DDL_HIDDEN or DDL_SYSTEM orDDL_ARCHIVE or DDL_DIRECTORY {or DDL_DRIVES} ;sPath = 'F:/音乐'; //目录可以自

2010-06-13 09:23:00 1083

原创 GetMAC

program GetMAC;uses Dialogs, SysUtils, nb30;function GetMACAddress(PCName: string) : string;type TASTAT = packed record adapt: nb30.TADAPTERSTATUS; NameBuff: array [0..30] of TNAMEBUFFER; end; var NCB: TNCB; Tmp: Strin

2010-06-12 14:46:00 1274

原创关于获取计算机唯一ID问题

1：CPU序列号，并不是每颗CPU都有一个唯一的序列号，CPU试每种型号一个序列号，其实可以认为是CPU型号号码。PIII以前的计算机没有ID，而且AMD的CPU也没有ID。2：硬盘序列号，每块硬盘都有一个唯一序列号，但是三星硬盘没有序列号。因为三星硬盘不多见，总体来说硬盘序列号还是比较好用的。3：网卡序列号，全球唯一，每卡毕有，但每台计算机未必装网卡，有的还可能装有多卡，不好用。

2010-06-10 12:19:00 13499 1

原创 SetSystemTime and SetLocalTime

前天使用SetSystemTime设置本机的时间，发现总设置不对，多出8小时，查msdn，也没注意到是UTC的关系。 后来才知道，系统会把这个时间作为本初子午线的时间，然后再加上时区。 最后采用了SetLocalTime。

2010-06-09 16:26:00 2374

原创 Destroy大小写敏感吗？

今天写一个类，编译时出现一个提示：H2365 Override method TAA.destroy should match case of ancestor TObject.Destroy 发现是因为destroy 开头是小写的缘故。 看起来delphi是有意做此类规范的检查....

2010-06-03 09:46:00 1381

运行时Object Inspector

在运行期显示控件设计属性，且提供编辑。适合开发版本：Delphi 5.x, Delphi 6.x, Delphi 7.x, Delphi 2005, Delphi 2006。

2014-06-26

TAPPBar任务栏

make you application look like the TaskBar in windows Converting a normal application in to an AppBar is a tre step rocket : 1 Add AppBar to the uses clausule in the TOP of the unit containing the form you want to convert to an TAppBar 2 Change the forms parent class from TForm to TAppBar 3 If y

2014-06-16

delphi 钩子类

2014-05-23

VC写的Pascal编译器

支持三种文件 *.rez——这是源码解析后的文件 *.asm *.pas 开发环境VC 6

2010-07-14

dephi編寫的一個類似msn中的提示窗

自己看代碼吧12345678901234567890

2010-03-15

可靠地判断系统版本的函数

来源于 Slovenian Delphi community

2010-03-10

TQRMultiExport - PDF and Image exporter

For Delphi7 By Akos Toth. This component allows you to save your QuickReport output in different graphics formats. Supported formats are: PDF, JPEG, GIF, BMP, EMF, WMF and TIFF Events implemented: OnBeginExport, OnFinishExport, OnPrepare (after calling the prepare method of the report) and OnPage (before exporting each page).

2010-03-10

监视文件夹程序(delphi)

SHILCreatefromPath SHChangeNotifyRegister SHGetPathFromIDList

2010-03-09

ADO連接Excel

Connecting an Excel Spreadsheet to Delphi using ADO

2010-01-21

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人