procedure TAddProgressbarFrm.AddProgressToStatus;var i,Count,StatusPanelWidth: Integer;begin FProgress := TProgressbar.Create(AddProgressbarFrm); {定义进程条的最大值} Count := 3000; StatusPanelWidth := Status.Panels.Items[2].Width; {改变进度条宽度} Status.Panels.Items[2].Width := 150; Status.Repaint; with FProgress do begin Top := FStatusDrawRect.Top; Left := FStatusDrawRect.Left; {设定进程条的宽度和高度} Width := FStatusDrawRect.Right - FStatusDrawRect.Left; Height := FStatusDrawRect.Bottom - FStatusDrawRect.Top; Visible := True; try Parent := Status; {进程条的最小和最大值} Min := 0; Max := Count; Step := 1; for i := 1 to Count do Stepit; MessageBox(Handle,#13+‘现在，进程条将要从内存中被释放‘+#13+#13 +‘ [刀剑如梦软件创作室]‘,‘信息提示‘,MB_OK+MB_ICONINFORMATION); finally {从内存中释放进程条} Free; end; end; {恢复状态条的宽度} Status.Panels.Items[2].Width := StatusPanelWidth;end;

支持字段别名

GIS电子地图信息系统，包括了很多功能：垂直影射系统、位图背景、缩放、区域选择、着色、符号图表显示、点置和输入输出图象数据等，完全遵循GNU通用公有放可。

FERP 注册工具 By qffhq 20040601运行是,必须放在Bin目录下,功能是可以注册它所在的父目录下的所有子目录下的.dll文件!支持组件FileSystemObject scrrun.dll同时,Dllreg.reg注册表文件手工导入注册表后,可向DLL,OCX文件右键菜单上添加注册菜单!

内有vb的调用例程。

Rijndael算法,已通过AES的认证。

IBM公司出品的MARS算法

ezusb 系列的an2131的USB芯片适合EZusb的DLL。我的这些代码需要cypress公司的ezusb.sys支持，ezusb.sys可上cypress的网站下载。用Delphi语言写的，所有代码是在我的程序中提出来的。并测试过。里面引出了简单了几个常用函数，一个块读，一个块写，一个打开，一个下载。具体函数代码在unit1.pas里面，些DLL可用于VC，VB，DELPHI等，我只提供DELPHI的函数。用VC或VB的朋友请自已翻译DLL可免费使用，没有任何限制。但本人不承担对于使用此DLL所产生的一切后果。kimlon@163.comQQ:802155212004-9

串口调试助手 v1.0 使用说明本程序完全参照龚建伟《串口调试助手V2.2》制作而成，原软件是用VC编写的，我将它改用Delphi编写，作为我学习串口编程的一个例子与工具使用。其中用到串口控件为ComPort，该控件为开源软件，各大网站均有下载，目前最新版为3.0。使用平台： WIN9X/NT/2000/XP 本软件目前仅供三线制（NONMODEM）串口调试之用，所有功能均置于界面上，一目了然，其义自明，这里仅对十六进制发送作一说明：十六进制发送：选中（CHECK）十六进制发送后，程序会自动从发送框取16进制数发送，最好按16进制格式填写，例如：12 34 56 77 10使用窗口悬浮功能：点击程序左下角的针状按钮可以使程序置于最上层，保持可见；放大至全屏：当需要扩大接收窗口以方便观看数据时，可以点击右上角最大化按钮另外：还要注意的是调试串口时，插拨串口接头应尽量关闭计算机，至少保证一端是关闭的。其它串口资料如接线、标准、源代码、编程、串口网络可到 龚建伟技术主页http://www.gjwtech.com 查找。EMAIL：mastersky@21cn.comQQ：11116580本人刚学通信方面的程序设计，欢迎朋友们不吝赐教。作者：sky2005-12-19原作者：龚建伟 工学博士原作者联系方式：webmaster@gjwtech.com

上次那位网友传的缺少一些章节的源代码所以上传个完整的