XP下可能有朋友遇到过这个问题:某个硬盘分区内,所存放的文件占用的空间太多了,一重新启动电脑就会提示“硬盘空间低”,而且一定程度上也影响了启动速度。上次重新安装操作系统后,为了方便,干脆写了个小程序。
程序很简单,大家凑合着看吧。我找了半天也没找到如何上传附件,只好把代码发上来。如果下载源程序,可以到这里:
http://bbs.77169.com/read-htm-tid-179734.html
{
Author: 不长叶子的树
E-mail: xingke110@sina.com
Blog: http://blog.csdn.net/xingke
Date: 17-01-2007
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Registry, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, WinSkinStore, WinSkinData, SkinCaption;
type
TForm1 = class(TForm)
Button1: TButton;
SkinData1: TSkinData;
SkinStore1: TSkinStore;
SkinCaption1: TSkinCaption;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var myreg:TRegistry;
begin
myreg:=TRegistry.Create;
with myreg do

本文介绍了一款用Delphi编写的简单程序,用于管理Windows XP系统中磁盘空间低的提示功能。用户可以通过该程序开启或关闭磁盘空间低的警告提示,提高系统启动速度。
最低0.47元/天 解锁文章

被折叠的 条评论
为什么被折叠?



