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;

一个结合数据库实现的VB出租 租赁系统，原型是一个光碟出租管理系统，可改造成其它生活相关的出租管理系统，数据库采用的是Access，比较简单些，完成基本的租赁管理功能，比如添加、出租、归还、退租、未还处理，会员续费，查询、用户设置，每日、每月结算，结算后可以打印或生成报表。

VB软键盘源码，蓝色风格，一个屏幕键盘制作实例，附有详细的技术说明，在一些对应用程序安全要求较高的场合，使用屏幕键盘进行输入就显得很重要了，这个源码的例子很详细的说明了如何实现小键盘，推荐下载。

修改系统时间_Delphi修改windows7系统时间的开源源码，按照提示输入新的时间，点击“修改”按钮后即可改变windows当前时间，主要是学习delphi7和windows之间的时间接口，如何操作等。相关代码如下： 　　For i := 0 to Form1.ComponentCount -1 do 　　begin 　　 if ComponentS[i] is TEdit then 　　 begin 　　 if TEdit(Components[i]).Text = '' then 　　 begin 　　 Application.MessageBox('请将日期输入完整！','提示',64); 　　 Exit; 　　 end; 　　 end; 　　end; 　　SetDate.wYear := StrToInt(Edit1.Text); 　　SetDate.wMonth := StrToInt(Edit2.Text); 　　SetDate.wDay := StrToInt(Edit3.Text); 　　SetDate.wHour := 5; 　　SetDate.wMinute := 0; 　　SetDate.wSecond := 0; 　　SetSystemTime(SetDate); 　　……

VB代码编写实现的Exe文件反编译工具，使用这个程序你可以看到EXE内部的函数、程序代码等，方便你对程序代码有一个更深层次的理解。

Delphi读取快捷方式中的图标和路径信息，将包含在快捷方式中的图标和路径信息以及执行文件目录、热键等读取出来，适用于Windwos中所有的快捷方式。

支持字段别名

一款VB基础实例，通过系统函数简单获取计算机名称，然后通过input组件操作注册表从而实现修改计算机名称的小例子，对于VB新手是一个不错的东西，高手请飘过。

VB通过调用VC 环境下的全局钩子，屏蔽键盘任意键，屏蔽 A, B, C, 上, 下, 左, 右及两个win键，当然也可解除屏蔽，可以使用底层键盘钩子，标准 DLL ---- 利用底层键盘钩子实现屏蔽键盘任意按，你可以此了解下安装底层键盘钩子、卸载钩子等基础操作知识。

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