project1.dpr

一个电子时钟的桌面插件

program Project1;

uses
  Forms,sysutils,dialogs,windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var myheart:string;
begin
if datetostr(now)='2004-6-27' then
   begin
    myheart:=#13#10+'今天是流星的生日'+#13#10+#13#10+'一位温柔善良、也是我曾深深爱过'+#13#10+'但却伤我最重的女孩子...'+#13#10+'虽然这份爱最终还是无情离我而去...'+#13#10+'但，为了她的幸福，我还是要祝福她'+#13#10+'祝她永远过的比我好！'
    +#13#10+#13#10+'流星，请多保重...'
    +#13#10+#13#10+'只有你快乐我才会快乐，只有你幸福我才会幸福...'
    +#13#10+'愿天下有情人终成眷属！'+#13#10
    +#13#10+'单飞的风筝'
    +#13#10+datetimetostr(now)+' 于山东聊城';
    Application.MessageBox(pchar(myheart),'Happy Birthday,My Love,My Gril!',MB_OK+MB_ICONINFORMATION);
    end;
  Application.Initialize;
  Application.Title := 'MC V1.0';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.