unit1.pas

一个电子时钟的桌面插件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,registry, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, CoolTrayIcon, Menus;

type
  TForm1 = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function showdate:string;
var s:string;
begin
result:='';
case dayofweek(now) of
2:s:='一';
3:s:='二';
4:s:='三';
5:s:='四';
6:s:='五';
7:s:='六';
1:s:='日';
end;
result:='今天：'+datetostr(now)+#13#10+'　　　星期'+s;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
rgn:=CreateEllipticRgn(13,5,345,336);
SetWindowRgn(self.Handle, rgn, true);
ShockwaveFlash1.Movie:=extractfilepath(application.exename)+'clock.dll';
ShockwaveFlash1.Play;
ShockwaveFlash1.Menu:=false;
ShowWindowAsync(Application.Handle, SW_HIDE);
CoolTrayIcon1.Hint:='愿你快乐每一天！'+#13#10+showdate;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
{if n1.Caption='隐藏钟面' then
  begin
  n1.Caption:='显示钟面';
  CoolTrayIcon1.HideMainForm;
  end else
  begin
  n1.Caption:='隐藏钟面';}
  CoolTrayIcon1.ShowMainForm;
//  end;
end;

procedure TForm1.N3Click(Sender: TObject);
var s:string;
begin
s:='我的电脑钟'+#13#10+
   'V1.0'+#13#10+#13#10+
   '作者：张　宇'+#13#10+
   '版  权  所  有'+#13#10+
   '2004-06-06 山 东-聊 城'+#13#10+#13#10+
   '送给所有爱我的和我爱的人！'+#13#10+   
   '流星，可乐兑雪，祝你们永远幸福快乐！';
   application.MessageBox(pchar(s),'关于信息',mb_ok + mb_iconinformation);
end;

procedure TForm1.FormShow(Sender: TObject);
var reg:tregistry;
begin
  try
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
  reg.WriteString('Myclock',application.ExeName);
  finally
  reg.CloseKey;
  reg.Free;
  end;
end;

end.