内容索引:Delphi源码,系统相关,硬件,特征码　　Delphi获取电脑硬件的特征码信息，也就是大家学说的硬件ID信息，本程序获取的ID主要有：逻辑硬盘号、物理硬盘号、网卡MAC、Bios、CPU、Windows版本等，列出固件中在出厂时烧录进的唯一ID标识，用来编写硬件检测软件时候能用上其中的模块。

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;

内容索引:Delphi源码,系统相关,进程　　自己用Delphi做的一个共享内存组件，用于进程间共享内存，以及消息传递，最初只是一个单元引用，后来优化代码加入了进程间的消息传递，索性将其做成了组件，以后简单的字符串共享与消息传递就方便多了，另外它能够自定义格式数据共享。也可以建立一个公共的共享内存数据格式文件。

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

使用VB的FSO对象创建文件夹，删除文件夹的实例源码，比较简单的VB源码了，下载后请使用VB6重新编译运行看效果。可在当前目录中创建一个名为“test”的文件夹，也可演示将此目录删除到回收站中。虽然简单，但很基础的实例。 运行环境：Windows/VB6

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禁止运行多个程序实例，监测是否运行同一程序实例，也就是只允许让一个程序打开一次窗口，正在运行时再次打开本程序的EXE,会弹出一个窗口告诉你，程序正在运行。 运行环境：Windows/Delphi7

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