unit1.~pas

Windows定时设置精灵(delphi).rar

  label11.Caption:=ly+'已经隐藏';
for i:=1 to 22 do
  begin
  wy:='CDEFGHIJKLMNOPQRSTUVWXYZ';
  if (disksize(ord(wy[i])-$40)=-1) then
  exit;
  pf.Items.Add(wy[i]+':');
  end;//////////////////////
end;
procedure TForm1.FlatButton1Click(Sender: TObject);
var
y,m,d,h,i,s:integer;
begin
w:=true;
timer1.Enabled:=true;
label9.Caption:='设置生效';
try
  y:=strtoint(flatedit1.Text);
  except
  begin
  timer1.Enabled:=false;
  application.messagebox('年份输入有误，请重新输入','警告匡',mb_ok);
  end;
end;
try
  m:=strtoint(flatedit2.Text);
  if (m>12) or (m<=0) then
  begin
  timer1.Enabled:=false;
  application.messagebox('月份输入有误，请重新输入','警告匡'mb_ok);
  end;
  except
  begin
  timer1.Enabled:=false;
  application.messagebox('月份输入有误，请重新输入','警告匡'mb_ok);
  end;
end;
try
  d:=strtoint(flatedit3.Text);
  if (d>31) or (d<=0) then
  begin
  timer1.Enabled:=false;
  application.messagebox('日输入有误，请重新输入','警告匡'mb_ok);
  end;
  except
  begin
  timer1.Enabled:=false;
  application.messagebox('日输入有误，请重新输入','警告匡'mb_ok);
  end;
end;
try
  h:=strtoint(flatedit4.Text);
  if (h>59) or (h<0) then
  begin
  timer1.Enabled:=false;
  application.messagebox('分钟输入有误，请重新输入','警告匡'mb_ok);
  end;
  except
  begin
  timer1.Enabled:=false;
  application.messagebox('分钟输入有误，请重新输入','警告匡'mb_ok);
  end;
end;
try
  i:=strtoint(flatedit5.Text);
  if (i>23) or (i<0) then
  begin
  timer1.Enabled:=false;
  application.messagebox('小时输入有误，请重新输入','警告匡'mb_ok);
  end;
  except
  begin
  timer1.Enabled:=false;
  application.messagebox('小时输入有误，请重新输入','警告匡'mb_ok);
  end;
end;
try
  s:=strtoint(flatedit6.Text);
  if (s>59) or (s<0) then
  begin
  timer1.Enabled:=false;
  application.messagebox('秒输入有误，请重新输入','警告匡'mb_ok);
  end;
  except
  begin
  timer1.Enabled:=false;
  application.messagebox('秒输入有误，请重新输入','警告匡'mb_ok);
  end;
end;
  flatedit1.Enabled:=false;
  flatedit2.Enabled:=false;
  flatedit3.Enabled:=false;
  flatedit4.Enabled:=false;
  flatedit5.Enabled:=false;
  flatedit6.Enabled:=false;
end;
procedure TForm1.FlatButton3Click(Sender: TObject);
begin
w:=false;
label9.Caption:='设置取消';
flatedit1.Enabled:=true;
flatedit2.Enabled:=true;
flatedit3.Enabled:=true;
flatedit4.Enabled:=true;
flatedit5.Enabled:=true;
flatedit6.Enabled:=true;
bootr:=false;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if w=true then
application.messagebox('窗口关闭设置无效,本窗口可以隐藏','提醒'mb_ok);
shell_notifyicona(nim_delete,@ntid);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
getlocaltime(it);
  label2.caption:=inttostr(it.wyear)+'年 '+inttostr(it.wmonth)+'月'+inttostr(it.wday)+'日 '+inttostr(it.whour)+':'+inttostr(it.wminute)+':'+inttostr(it.wsecond);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
form1.Show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.FlatButton4Click(Sender: TObject);
begin
form1.Hide;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if (bootr=true) and (flatcheckbox1.Checked=true) then
abfwav1.Play;
end;

procedure TForm1.FlatButton5Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.FlatButton11Click(Sender: TObject);
begin
  form2.Show;
  reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
  reg.Writestring('bak','1');
  form2.flatedit1.Text:=reg.readstring('message2');
  reg.closekey;//关闭该键
  reg.free;//释放
end;

procedure TForm1.FlatButton6Click(Sender: TObject);
begin
form3.show;
reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
  reg.Writestring('bak','1');
  if (reg.Readstring('bak')='1') and (reg.ReadString('ch1')='1') then
  form3.FlatRadioButton2.Checked:=true
  else
  form3.FlatRadioButton1.Checked:=true;
  if reg.readstring('message2t')='1' then
  begin
  form3.Label1.Caption:='设置生效';
  form3.flatedit1.text:=reg.readstring('year1');
form3.flatedit2.text:=reg.readstring('mon1');
form3.flatedit3.text:=reg.readstring('day1');
form3.flatedit5.text:=reg.readstring('hour1');
form3.flatedit4.text:=reg.readstring('min1');
form3.flatedit6.text:=reg.readstring('sec1');
  end
  else
  form3.label1.Caption:='没有设置';
  reg.closekey;//关闭该键
  reg.free;//释放
  if form3.Label1.Caption='设置生效' then
begin
form3.flatedit1.Enabled:=false;
form3.flatedit2.Enabled:=false;
form3.flatedit3.Enabled:=false;
form3.flatedit4.Enabled:=false;
form3.flatedit5.Enabled:=false;
form3.flatedit6.Enabled:=false;
end
else
begin
form3.flatedit1.Enabled:=true;
form3.flatedit2.Enabled:=true;
form3.flatedit3.Enabled:=true;
form3.flatedit4.Enabled:=true;
form3.flatedit5.Enabled:=true;
form3.flatedit6.Enabled:=true;
end;
end;

procedure TForm1.FlatButton7Click(Sender: TObject);
begin
form2.Show;
reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
  reg.Writestring('bak','2');
  form2.flatedit1.Text:=reg.readstring('message3');
  reg.closekey;//关闭该键
  reg.free;//释放
end;

procedure TForm1.FlatButton8Click(Sender: TObject);
begin
form3.Show;
reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
  reg.Writestring('bak','2');
  if (reg.Readstring('bak')='2') and (reg.ReadString('ch2')='1') then
  form3.FlatRadioButton2.Checked:=true
  else
  form3.FlatRadioButton1.Checked:=true;
  if reg.readstring('message3t')='1' then
  begin
  form3.label1.Caption:='设置生效';
  form3.flatedit1.text:=reg.readstring('year2');
form3.flatedit2.text:=reg.readstring('mon2');
form3.flatedit3.text:=reg.readstring('day2');
form3.flatedit5.text:=reg.readstring('hour2');
form3.flatedit4.text:=reg.readstring('min2');
form3.flatedit6.text:=reg.readstring('sec2');
  end
else
form3.label1.Caption:='没有设置';
  reg.closekey;//关闭该键
  reg.free;//释放
  if form3.Label1.Caption='设置生效' then
begin
form3.flatedit1.Enabled:=false;
form3.flatedit2.Enabled:=false;
form3.flatedit3.Enabled:=false;
form3.flatedit4.Enabled:=false;
form3.flatedit5.Enabled:=false;
form3.flatedit6.Enabled:=false;
end
else
begin
form3.flatedit1.Enabled:=true;
form3.flatedit2.Enabled:=true;
form3.flatedit3.Enabled:=true;
form3.flatedit4.Enabled:=true;
form3.flatedit5.Enabled:=true;
form3.flatedit6.Enabled:=true;
end;
end;

procedure TForm1.FlatButton9Click(Sender: TObject);
begin
form2.Show;
reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
  reg.Writestring('bak','3');
  form2.flatedit1.Text:=reg.readstring('message4');
  reg.closekey;//关闭该键
  reg.free;//释放
end;

procedure TForm1.FlatButton10Click(Sender: TObject);
begin
form3.Show;
reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
  reg.Writestring('bak','3');
  if (reg.Readstring('bak')='3') and (reg.ReadString('ch3')='1') then
  form3.FlatRadioButton2.Checked:=true
  else
  form3.FlatRadioButton1.Checked:=true;
  if reg.readstring('message4t')='1' then
  begin
  form3.label1.Caption:='设置生效';
  form3.flatedit1.text:=reg.readstring('year3');
form3.flatedit2.text:=reg.readstring('mon3');
form3.flatedit3.text:=reg.readstring('day3');
form3.flatedit5.text:=reg.readstring('hour3');
form3.flatedit4.text:=reg.readstring('min3');
form3.flatedit6.text:=reg.readstring('sec3');
  end
else
form3.label1.Caption:='没有设置';
  reg.closekey;//关闭该键
  reg.free;//释放
   if form3.Label1.Caption='设置生效' then
begin
form3.flatedit1.Enabled:=false;
form3.flatedit2.Enabled:=false;
form3.flatedit3.Enabled:=false;
form3.flatedit4.Enabled:=false;
form3.flatedit5.Enabled:=false;
form3.flatedit6.Enabled:=false;
end
else
begin
form3.flatedit1.Enabled:=true;
form3.flatedit2.Enabled:=true;
form3.flatedit3.Enabled:=true;
form3.flatedit4.Enabled:=true;
form3.flatedit5.Enabled:=true;
form3.flatedit6.Enabled:=true;
end;
end;



procedure TForm1.FlatCheckBox2Click(Sender: TObject);
begin
reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
if  reg.ReadString('autorun')='1' then
   begin
    reg:=tregistry.Create ;
    reg.rootkey:=HKEY_current_user;
    reg.OpenKey('software\microsoft\windows\currentversion\run',true);
    reg.Writestring('Windows设置精灵','');
    reg.closekey;//关闭该键
    reg.free;//释放
end;
if flatcheckbox2.Checked=true then
setautorun(application.Title ,application.ExeName ,false);
end;

procedure TForm1.FlatButton12Click(Sender: TObject);
begin
flatpanel3.Visible:=false;
flatpanel2.Visible:=true;
flatpanel4.Visible:=false;
flatpanel5.Visible:=false;
flatpanel6.Visible:=false;
flatpanel11.Visible:=false;
end;


procedure TForm1.FlatButton13Click(Sender: TObject);
begin
flatpanel4.Visible:=false;
flatpanel2.Visible:=false;
flatpanel3.Visible:=true;
flatpanel5.Visible:=false;
flatpanel6.Visible:=false;
flatpanel11.Visible:=false;
end;

procedure TForm1.FlatButton16Click(Sender: TObject);
var
i,e,s:integer;
begin
  e:=0;
  s:=0;
  wy:='CDEFGHIJKLMNOPQRSTUVWXYZ';
  ty:='';
  reg:=tregistry.Create ;
  reg.rootkey:=HKEY_current_user;
  reg.OpenKey('software\microsoft\windows\currentversion\policies\explorer',false);
for i:=1 to 22 do
begin
if disksize(ord(wy[i])-$40)=-1
 then
 exit
 else if pf.Checked[i-1]=true
   then
   begin
   e:=trunc(exp((i+1)*ln(2)));
   s:=s+e;
   ty:=ty+wy[i];
   end;
   reg.Writeinteger('nodrives',s);
   reg.Writestring('timp',ty);
   if ty='' then label10.caption:='无任何盘隐藏'
   else
  label10.Caption:=ty+'盘已隐藏';
end;
reg.closekey;//关闭该键