程序源代码
ccdarkness
这个作者很懒,什么都没留下…
展开
-
按钮突破
unit button;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender:原创 2005-10-10 02:06:00 · 592 阅读 · 0 评论 -
画个金刚石
一个image控件,一个按钮控件,下面是画的代码: procedure TForm1.SpeedButton1Click(Sender: TObject); var t,x0,y0:real; r:real; n,j,i:integer; x:array[0..50] of real; y:array[0..50] of real; begin n:=28; t:=6.28318/n; r:=2原创 2005-12-17 00:16:00 · 1299 阅读 · 0 评论 -
在系统托盘创建小图标
很久以前我也想作过这样的东西,但是太忙就没去做,今天大富翁又有人提起,所有找了一下资料写了一个,仔细看一下,写了很多注释,在Winxp delphi7 调试通过基础知识:函数Shell_NotifyIcon,而这个函数又有两个参数:TnotifyIconData结构的参数和一个消息参数即: Shell_NotifyIcon(dwMessage:DWORD;lpData:PNotifyIconDat原创 2006-03-11 02:40:00 · 1258 阅读 · 0 评论 -
快捷键设置工具
unit War3;interfaceuses Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, ComCtrls, Buttons, CheckLst, StrUtils;type TForm1 = class(TForm) hk1: THotKey; hk2: THotKey;原创 2006-03-08 23:56:00 · 897 阅读 · 0 评论 -
作业-超市管理系统
unit SS;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, ExtCtrls, SUIForm, SUIPageControl, StdCtrls, SUIGroupBox, SUIButton, SUIEdit, DB, ADODB, GIFImage, SUILis原创 2006-04-23 21:58:00 · 1188 阅读 · 0 评论 -
在数据库中存取图像文件
向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图1所示。 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图2为设计完成的Image.db数转载 2006-05-12 14:20:00 · 1287 阅读 · 0 评论 -
MD5算法研究
综述 MD5的全称是Message-Digest Algorithm 5(信息-摘要算法),在90年代初由MIT Laboratory for Computer Science和RSA Data Security Inc的Ronald L. Rivest开发出来,经MD2、MD3和MD4发展而来。它的作用是让大容量信息在用数字签名软件签署私人密匙前被"压缩"成一种保密的格式(就是把一个任意转载 2006-09-22 20:22:00 · 508 阅读 · 0 评论 -
最简单的计算MD5方法
原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy)有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在这里补充一下,先看计算函数:function TIdHashMessageDigest4.HashVa原创 2006-09-22 21:41:00 · 1293 阅读 · 0 评论 -
什么是关系型数据库
数据表的组成 数据库就是储存数据的地方。关系型数据库是由许多数据表(Table)所组成,资料表又是由许多笔记录(Row 或Record)所组成,而纪录又是由许多的字段(Column 或Filed)所组成。假设我们是一个电子商务网站,现在要纪录使用者的数据,你可能会想到要纪录使用者的账号、密码、姓名、电话、住址以及E-mail 等数据;这一些你所要纪录的项目,每一个项目就是一个字段。所以我们将转载 2006-06-21 15:47:00 · 1494 阅读 · 1 评论 -
ie工具栏按钮 VB
自制IE工具栏按钮的两种方法 不知你注意到没有,在安装了网络蚂蚁Netants以后,在IE工具栏里面会出现Netants的图标,如果能让自己经常用的程序都出现在IE工具栏上,那该有多方便啊!其实,我们完全可以对其进行自定义,添加想设置的按钮,具体的方法有很多,修改注册表和用VBScript就是其中两种较简便的方法。 原来,工具栏图标在注册标里面的位置是在HKEY_LOCAL_MACHINE/So原创 2005-11-23 20:39:00 · 754 阅读 · 0 评论 -
资源文件的使用
1.编写 RC 脚本文本 用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下:资源标识符 资源类型关键字 资源文件名其中“资源类型关键字”用于标识资源文件的类型:AVI 无声动画BITMAP 位图文件CURSOR 光标文件ICON 图标文件WAVE 声音文件以上所列均为标准资源类型,也可以给资源自定义一个类型,如:“mytype”。不过两者在原创 2005-11-22 00:33:00 · 693 阅读 · 0 评论 -
星号查看
unit lookpass;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, bsSkinCtrls, bsSkinBoxCtrls, StdCtrls, Mask;type TForm1 = class(TForm) s原创 2005-10-10 02:08:00 · 577 阅读 · 0 评论 -
自动启动的实现
unit auto;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, registry, bsSkinData, BusinessSkinForm, bsSkinShellCtrls;type TForm1 = cl原创 2005-10-10 18:46:00 · 424 阅读 · 0 评论 -
在桌面画画
unit destop;interfaceuses Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormMouseDown(Sender: TOb原创 2005-10-11 22:09:00 · 555 阅读 · 0 评论 -
自制代码收集程序-数据库Access(二)
unit ADCcode;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SUIEdit, SUIButton, StdCtrls, SUIMemo, DBCtrls, SUIDBCtrls, Mask;type TForm2 = c原创 2005-10-12 00:59:00 · 393 阅读 · 0 评论 -
序列号输入程序的实现
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Forms, Clipbrd, Controls, StdCtrls; //加入clipbrd剪贴板type TForm1 = class(TForm) rb: TRadioButton; procedure FormCreate(Sender: TObje原创 2005-10-10 02:02:00 · 680 阅读 · 0 评论 -
注册表快捷方式(delphi)
unit reged;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, inifiles, StdCtrls, SUIComboBox, SUIButton, SUIEdit;type TForm1 = class(TForm) cb: TsuiComboBo原创 2005-10-15 04:24:00 · 706 阅读 · 1 评论 -
修改欢迎界面,图片格式转换
unit jpg22bmp;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, Buttons, ExtCtrls, StdCtrls, BusinessSkinForm, bsSkinCtrls, Mask, bsSkinBoxCtrl原创 2005-10-11 22:19:00 · 1691 阅读 · 0 评论 -
自制代码收集程序-数据库Access(一)
unit date;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, Menus, SUIMainMenu, SUIPopupMenu, ADCco原创 2005-10-12 00:56:00 · 342 阅读 · 0 评论