?? unit1.pas
字號(hào):
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:='愿你快樂(lè)每一天!'+#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+
'版 權(quán) 所 有'+#13#10+
'2004-06-06 山 東-聊 城'+#13#10+#13#10+
'送給所有愛(ài)我的和我愛(ài)的人!'+#13#10+
'流星,可樂(lè)兌雪,祝你們永遠(yuǎn)幸福快樂(lè)!';
application.MessageBox(pchar(s),'關(guān)于信息',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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -