文件名称：磁盘空间低管理程序
文件大小：333KB
文件格式：RAR
更新时间：2015-09-24 01:43:48
Delphi 注册表
{ 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 begin rootkey:=HKEY_CURRENT_USER; if openkey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',false) and valueExists('NoLowDiskSpaceChecks') then //如果打开键成功且NoDrives存在，则进行下面操作。 begin if readinteger('NoLowDiskSpaceChecks')=1 then begin Button1.Caption:='打开“磁盘空间低”提示功能'; end else begin Button1.tabstop:=False; Button1.Font.Color:=clRed; Button1.Caption:='关闭“磁盘空间低”提示功能'; end; myreg.CloseKey; myreg.Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var myreg:TRegistry; begin if Button1.caption='打开“磁盘空间低”提示功能' then begin myreg:=TRegistry.Create; with myreg do begin RootKey:=HKEY_CURRENT_USER; if openkey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',true) then begin try WriteBool('NoLowDiskSpaceChecks',false); Application.MessageBox('成功打开磁盘空间低提示','提示：',mb_ok); //showmessage('成功打开磁盘空间低提示'); Button1.tabstop:=False; Button1.Font.Color:=clRed; Button1.Caption:='关闭“磁盘空间低”提示功能'; except Application.MessageBox('打开磁盘空间低提示出现错误，可能操作系统不支持此项功能','提示：',mb_ok); //showmessage('打开磁盘空间低提示出现错误，可能操作系统不支持此项功能'); end; end else begin Button1.Caption:='打开磁盘空间低提示出现错误，可能操作系统不支持此项功能'; Button1.Enabled; end; end; myreg.CloseKey; myreg.Free; end else begin myreg:=TRegistry.Create; with myreg do begin RootKey:=HKEY_CURRENT_USER; if openkey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',true) then begin try WriteBool('NoLowDiskSpaceChecks',true); Application.MessageBox('成功关闭磁盘空间低提示','提示：',mb_ok); //showmessage('成功打开磁盘空间低提示'); Button1.tabstop:=False; Button1.Font.Color:=clWindowText; Button1.Caption:='打开“磁盘空间低”提示功能'; except Application.MessageBox('关闭磁盘空间低提示出现错误，可能操作系统不支持此项功能','提示：',mb_ok); //showmessage('打开磁盘空间低提示出现错误，可能操作系统不支持此项功能'); end; end else begin Button1.Caption:='关闭磁盘空间低提示出现错误，可能操作系统不支持此项功能'; Button1.Enabled; end; end; myreg.CloseKey; myreg.Free; end; end; end.
【文件预览】：
磁盘空间低管理程序
----Project1.dof(4KB)
----Unit1.dcu(6KB)
----Project1.exe(633KB)
----Unit1.dfm(106KB)
----Project1.cfg(422B)
----Project1.dpr(188B)
----Unit1.pas(4KB)
----Project1.res(876B)
----Unit1.ddp(51B)