给自己的程序制作复活节彩蛋

//主窗体
源代码网推荐 unit Unit1;
源代码网推荐
源代码网推荐 interface
源代码网推荐
源代码网推荐 uses
源代码网推荐 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
源代码网推荐 StdCtrls, ComCtrls;
源代码网推荐
源代码网推荐 type
源代码网推荐 TForm1 = class(TForm)
源代码网推荐 Button1: TButton;
源代码网推荐 StatusBar1: TStatusBar;
源代码网推荐 procedure Button1Click(Sender: TObject);
源代码网推荐 private
源代码网推荐 { Private declarations }
源代码网推荐 public
源代码网推荐 { Public declarations }
源代码网推荐 end;
源代码网推荐
源代码网推荐 var
源代码网推荐 Form1: TForm1;
源代码网推荐
源代码网推荐 implementation
源代码网推荐
源代码网推荐 uses About;
源代码网推荐
源代码网推荐 {$R *.DFM}
源代码网推荐
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 begin
源代码网推荐 aboutbox.showmodal;
源代码网推荐 end;
源代码网推荐
源代码网推荐 end.
源代码网推荐
源代码网推荐 //About窗体
源代码网推荐 {=============通用About程序源代码=============}
源代码网推荐 { }
源代码网推荐 { _/\_/\__ Copyright by 梁 明 __/\_/\_ }
源代码网推荐 { 1998-01-02 }
源代码网推荐 { }
源代码网推荐 {=============================================}
源代码网推荐 unit About;
源代码网推荐

源代码网推荐 interface
源代码网推荐
源代码网推荐 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
源代码网推荐 Buttons, ExtCtrls,Dialogs;
源代码网推荐
源代码网推荐 type
源代码网推荐 TAboutBox = class(TForm)
源代码网推荐 Panel1: TPanel;
源代码网推荐 ProgramIcon: TImage;
源代码网推荐 ProductName: TLabel;
源代码网推荐 Version: TLabel;
源代码网推荐 Copyright: TLabel;
源代码网推荐 others: TLabel;
源代码网推荐 Author: TPaintBox;
源代码网推荐 BitBtn1: TBitBtn;
源代码网推荐 Bevel1: TBevel;
源代码网推荐 lblOs: TLabel;
源代码网推荐 lblMemory: TLabel;
源代码网推荐 procedure FormCreate(Sender: TObject);
源代码网推荐 procedure ProgramIconClick(Sender: TObject);
源代码网推荐 procedure OKButtonClick(Sender: TObject);
源代码网推荐 procedure FormKeyPress(Sender: TObject; var Key: Char);
源代码网推荐 private
源代码网推荐 { Private declarations }
源代码网推荐 s:string;
源代码网推荐 Procedure Delay(x,y:word);//延时程序
源代码网推荐 procedure GetOSInfo; //系统信息程序
源代码网推荐 Procedure GetMemoryInfo ; //可用资源程序
源代码网推荐 public
源代码网推荐 { Public declarations }
源代码网推荐 end;
源代码网推荐
源代码网推荐 var
源代码网推荐 AboutBox: TAboutBox;
源代码网推荐
源代码网推荐 implementation
源代码网推荐
源代码网推荐 {$R *.DFM}
源代码网推荐 Procedure TAboutBox.GetMemoryInfo ;//可用资源
源代码网推荐 var
源代码网推荐 MS: TMemoryStatus;
源代码网推荐 begin
源代码网推荐 MS.dwLength := SizeOf(TMemoryStatus);
源代码网推荐 GlobalMemoryStatus(MS);
源代码网推荐 lblMemory.Caption :=lblMemory.Caption FormatFloat("#,###" KB"", MS.dwTotalPhys div 1024);
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TAboutBox.GetOSInfo; //获取系统信息
源代码网推荐 var
源代码网推荐 Platform: string;
源代码网推荐 BuildNumber: Integer;
源代码网推荐 begin
源代码网推荐 case Win32Platform of
源代码网推荐 VER_PLATFORM_WIN32_WINDOWS:
源代码网推荐 begin
源代码网推荐 Platform := "Windows 95";
源代码网推荐 BuildNumber := Win32BuildNumber and $0000FFFF;
源代码网推荐 end;
源代码网推荐 VER_PLATFORM_WIN32_NT:
源代码网推荐 begin
源代码网推荐 Platform := "Windows NT";
源代码网推荐 BuildNumber := Win32BuildNumber;
源代码网推荐 end;
源代码网推荐 else
源代码网推荐 begin
源代码网推荐 Platform := "Windows";
源代码网推荐 BuildNumber := 0;
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐 if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or
源代码网推荐 (Win32Platform = VER_PLATFORM_WIN32_NT) then
源代码网推荐 begin
源代码网推荐 if Win32CSDVersion = "" then
源代码网推荐 lblOS.Caption := lblOS.Caption Format("%s %d.%d (Build %d)", [Platform, Win32MajorVersion,
源代码网推荐 Win32MinorVersion, BuildNumber])
源代码网推荐 else
源代码网推荐 lblOS.Caption := lblOS.Caption Format("%s %d.%d (Build %d: %s)", [Platform, Win32MajorVersion,
源代码网推荐 Win32MinorVersion, BuildNumber, Win32CSDVersion]);
源代码网推荐 end
源代码网推荐 else
源代码网推荐 lblOS.Caption := lblOS.Caption Format("%s %d.%d", [Platform, Win32MajorVersion,
源代码网推荐 Win32MinorVersion])
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure Taboutbox.Delay(x,y:word);
源代码网推荐 var timeout:TDateTime;
源代码网推荐 begin
源代码网推荐 //该成为WINDOWS APP启动时间这个函数来做!
源代码网推荐 timeout:=now encodeTime(0,x div 60,x mod 60,y);
源代码网推荐 While now<timeout do
源代码网推荐 Application.ProcessMessages;
源代码网推荐 end;
源代码网推荐
源代码网推荐
源代码网推荐 procedure TAboutBox.FormCreate(Sender: TObject);
源代码网推荐 begin
源代码网推荐 {**********************************************}
源代码网推荐 try
源代码网推荐 Caption:="关于" application.Title; //标题
源代码网推荐 ProgramIcon.Picture.icon:=Application.Icon; //图标
源代码网推荐 ProductName.Caption:=ProductName.Caption Application.Title;//产品名称
源代码网推荐 version.Caption:=version.Caption "1.00"; //版本
源代码网推荐 Copyright.Caption:=Copyright.Caption "中国 ● 西安 梁明工作室 ";
源代码网推荐 others.Caption:="警 告：未经允许，任何个人、单位不得以任何方式" #13#10
源代码网推荐 "非法拷贝、盗用！否则，系统在运行过程中出现的任何" #13#10

源代码网推荐 "问题作者将不负任何连带责任！";
源代码网推荐 ////初始化---------------------------
源代码网推荐 GetMemoryInfo;
源代码网推荐 GetOsinfo;
源代码网推荐 {***********************}
源代码网推荐 //初始化变量s...
源代码网推荐 s:="";
源代码网推荐 except
源代码网推荐 MessageBox(handle,"某些信息不能取得","提示",MB_OK);
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TAboutBox.ProgramIconClick(Sender: TObject);
源代码网推荐 var i,fontheight:Byte;
源代码网推荐 begin
源代码网推荐 try
源代码网推荐 panel1.Hide;
源代码网推荐 fontheight:=author.Canvas.TextHeight("A");
源代码网推荐 for i:=0 to 150 fontHeight*8 do
源代码网推荐 if not panel1.Visible then //在此处添加说明
源代码网推荐 with author.Canvas do
源代码网推荐 begin
源代码网推荐 textout(25,100-i,"感谢您选用"" Application.Title ""系统！");
源代码网推荐 textout(25,100 fontheight-i,"");
源代码网推荐 textout(25,100 fontheight*2-i,"系统说明——");
源代码网推荐 textout(25,100 fontheight*3-i,"软件作者：梁 明");
源代码网推荐 textout(25,100 fontheight*4-i,"开发前端：Borland Delphi 4.0");
源代码网推荐 textout(25,100 fontheight*5-i,"数据处理：Borland Paradox 7.0");
源代码网推荐 textout(25,100 fontheight*6-i,"开发周期：99/02/10-99/02/13");
源代码网推荐 textout(25,100 fontheight*7-i,"");
源代码网推荐 textout(25,100 fontheight*8-i,"技术支持——");
源代码网推荐 textout(25,100 fontheight*9-i,"热线支持：(029)7295153 梁先生");
源代码网推荐 textout(25,100 fontheight*10-i,"方便传呼：126-5030345 梁先生");
源代码网推荐 textout(25,100 fontheight*11-i,"电子邮件：delphifan@990.net");
源代码网推荐 textout(25,100 fontheight*12-i,"网上服务：liangming.163.net");
源代码网推荐 textout(25,100 fontheight*13-i,"");
源代码网推荐 textout(25,100 fontheight*14-i," 梁 明 于梁明工作室 ");
源代码网推荐 textout(25,100 fontheight*15-i," 1999/02/10");
源代码网推荐 Delay(0,20);
源代码网推荐 end;
源代码网推荐 finally
源代码网推荐 panel1.Show;
源代码网推荐 Aboutbox.Refresh;
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TAboutBox.OKButtonClick(Sender: TObject);
源代码网推荐 begin
源代码网推荐 panel1.Show;
源代码网推荐 Aboutbox.Refresh;
源代码网推荐 close;
源代码网推荐 end;
源代码网推荐
源代码网推荐 procedure TAboutBox.FormKeyPress(Sender: TObject; var Key: Char);
源代码网推荐 begin
源代码网推荐 s:=s key; //用户输入"Author"这显示
源代码网推荐 if StrUpper(Pchar(s))="AUTHOR" then
源代码网推荐 begin
源代码网推荐 ProgramIconclick(sender);
源代码网推荐 s:=""
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐
源代码网推荐 end.
源代码网推荐
源代码网推荐 窗体As text代码
源代码网推荐 //主窗体
源代码网推荐 object Form1: TForm1
源代码网推荐 Left = 195
源代码网推荐 Top = 103
源代码网推荐 Width = 324
源代码网推荐 Height = 186
源代码网推荐 Caption = "演示-->梁明"
源代码网推荐 Color = clBtnFace
源代码网推荐 Font.Charset = GB2312_CHARSET
源代码网推荐 Font.Color = clWindowText
源代码网推荐 Font.Height = -12
源代码网推荐 Font.Name = "宋体"
源代码网推荐 Font.Style = []
源代码网推荐 OldCreateOrder = False
源代码网推荐 PixelsPerInch = 96
源代码网推荐 TextHeight = 12
源代码网推荐 object Button1: TButton
源代码网推荐 Left = 192
源代码网推荐 Top = 48
源代码网推荐 Width = 75
源代码网推荐 Height = 25
源代码网推荐 Hint = "显示关于对话框"
源代码网推荐 Caption = "关于..."
源代码网推荐 ParentShowHint = False
源代码网推荐 ShowHint = True
源代码网推荐 TabOrder = 0
源代码网推荐 OnClick = Button1Click
源代码网推荐 end
源代码网推荐 object StatusBar1: TStatusBar
源代码网推荐 Left = 0
源代码网推荐 Top = 140
源代码网推荐 Width = 316
源代码网推荐 Height = 19
源代码网推荐 AutoHint = True
源代码网推荐 Panels = <
源代码网推荐 item
源代码网推荐 Width = 50
源代码网推荐 end>
源代码网推荐 SimplePanel = False
源代码网推荐 end
源代码网推荐 end
源代码网推荐 //About窗体
源代码网推荐 object AboutBox: TAboutBox
源代码网推荐 Left = 410
源代码网推荐 Top = 92
源代码网推荐 BorderStyle = bsDialog
源代码网推荐 ClientHeight = 213
源代码网推荐 ClientWidth = 362
源代码网推荐 Color = clBtnFace
源代码网推荐 Font.Charset = GB2312_CHARSET
源代码网推荐 Font.Color = clWindowText 软件开发网 www.mscto.com
源代码网推荐 Font.Height = -12
源代码网推荐 Font.Name = "宋体"
源代码网推荐 Font.Style = []
源代码网推荐 Icon.Data = {
源代码网推荐 0000010001002020100000000000E80200001600000028000000200000004000
源代码网推荐 0000010004000000000080020000000000000000000000000000000000000000
源代码网推荐 000000008000008000000080800080000000800080008080000080808000C0C0
源代码网推荐 C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
源代码网推荐 0000000000000000000000000000000000000000000000000000000000000000
源代码网推荐 0000000000000000000000000000000000000000000000000000000000000000
源代码网推荐 0000000000000330000000000000000000000033303303303300000000000000
源代码网推荐 0003303330333003003300000000000000033003330330002333000000000000
源代码网推荐 0030000033003033333000000000000033333330000003330003330000000803
源代码网推荐 33333333333333300233330000000F033333333333333302333BB03000004F83
源代码网推荐 33333333333333333BB003BB00004FF3333333333333B33BB0033BBB00004FF3
源代码网推荐 33333333B3BB3BB0033BBBB000004FF83B333B3B3B3BBBB03BBBBB0300F04FFF
源代码网推荐 33B3B3B3BBBBBBBBBBBB00330FF04FFF8B3B3333BBBBBBBBBB0033330FF044FF
源代码网推荐 F8BBB03033BBBBB330333330FFF444FFF8BB0BB3003B330003333330FF44444F
源代码网推荐 F88B3BBB300000033333B33FFF44444FFF3BB0BBB3000333B33BB38FF4444444
源代码网推荐 FF003B0BB333333BBBBBB3FFF44444444FF00030BBBBBBBBBBBBBBFF44444444
源代码网推荐 0000000303BBB3300000BFF444444400000000000000000000000FF444440000
源代码网推荐 0000000000000000000000444444000000000000000000000000000044440000
源代码网推荐 0000000000000000000000000444000000000000000000000000000000040000
源代码网推荐 000000000000000000000000000000000000000000000000000000000000FFFF
源代码网推荐 FFFFFFFFFFFFFFFF1FFFFF8003FFFC0000FFF800007FF800007FE000003F0000
源代码网推荐 001F0000001F0000000F00000007000000070000000000000000000000000000
源代码网推荐 00000000000000000000000000000000000000000000000000000000000000C0
源代码网推荐 00000FE01F003FFFFF80FFFFFFC0FFFFFFF0FFFFFFF8FFFFFFFEFFFFFFFF}
源代码网推荐 KeyPreview = True
源代码网推荐 OldCreateOrder = True
源代码网推荐 Position = poScreenCenter
源代码网推荐 OnCreate = FormCreate
源代码网推荐 OnKeyPress = FormKeyPress
源代码网推荐 PixelsPerInch = 96
源代码网推荐 TextHeight = 12
源代码网推荐 object Author: TPaintBox
源代码网推荐 Left = 0
源代码网推荐 Top = 8
源代码网推荐 Width = 364
源代码网推荐 Height = 159
源代码网推荐 Font.Charset = GB2312_CHARSET
源代码网推荐 Font.Color = clBlue
源代码网推荐 Font.Height = -12
源代码网推荐 Font.Name = "宋体"
源代码网推荐 Font.Style = []
源代码网推荐
源代码网推荐 ParentFont = False
源代码网推荐 end
源代码网推荐 object Panel1: TPanel
源代码网推荐 Left = 8
源代码网推荐 Top = 7
源代码网推荐 Width = 347
源代码网推荐 Height = 170
源代码网推荐 BevelOuter = bvNone
源代码网推荐 ParentColor = True
源代码网推荐 TabOrder = 0
源代码网推荐 object ProgramIcon: TImage
源代码网推荐 Left = 13
源代码网推荐 Top = 7
源代码网推荐 Width = 32
源代码网推荐 Height = 32
源代码网推荐 AutoSize = True
源代码网推荐 OnClick = ProgramIconClick
源代码网推荐 IsControl = True
源代码网推荐 end
源代码网推荐 object ProductName: TLabel
源代码网推荐 Left = 60
源代码网推荐 Top = 9
源代码网推荐 Width = 60
源代码网推荐 Height = 12
源代码网推荐 Caption = "系统名称："
源代码网推荐 Font.Charset = GB2312_CHARSET
源代码网推荐 Font.Color = clWindowText
源代码网推荐 Font.Height = -12
源代码网推荐 Font.Name = "宋体"
源代码网推荐 Font.Style = []
源代码网推荐 ParentFont = False
源代码网推荐 IsControl = True
源代码网推荐 end
源代码网推荐 object Version: TLabel
源代码网推荐 Left = 60
源代码网推荐 Top = 25
源代码网推荐 Width = 60
源代码网推荐 Height = 12
源代码网推荐 Caption = "版 本："
源代码网推荐 Font.Charset = GB2312_CHARSET
源代码网推荐 Font.Color = clWindowText
源代码网推荐 Font.Height = -12
源代码网推荐 Font.Name = "宋体"
源代码网推荐 Font.Style = []
源代码网推荐 ParentFont = False
源代码网推荐 IsControl = True
源代码网推荐 end
源代码网推荐 object Copyright: TLabel
源代码网推荐 Left = 60
源代码网推荐 Top = 41
源代码网推荐 Width = 60
源代码网推荐 Height = 12
源代码网推荐 Caption = "版权所有："
源代码网推荐 IsControl = True
源代码网推荐 end
源代码网推荐 object others: TLabel
源代码网推荐 Left = 13
源代码网推荐 Top = 124
源代码网推荐 Width = 6
源代码网推荐 Height = 12
源代码网推荐 end
源代码网推荐 object Bevel1: TBevel
源代码网推荐 Left = -8
源代码网推荐 Top = 109
源代码网推荐 Width = 344
源代码网推荐 Height = 7
源代码网推荐 Shape = bsBottomLine
源代码网推荐 end
源代码网推荐 object lblOs: TLabel
源代码网推荐 Left = 13
源代码网推荐 Top = 80
源代码网推荐 Width = 60
源代码网推荐 Height = 12
源代码网推荐 Caption = "操作系统："
源代码网推荐 IsControl = True
源代码网推荐 end
源代码网推荐 object lblMemory: TLabel
源代码网推荐 Left = 13
源代码网推荐 Top = 96
源代码网推荐 Width = 60
源代码网推荐 Height = 12
源代码网推荐 Caption = "可用内存："
源代码网推荐 IsControl = True
源代码网推荐 end
源代码网推荐 end
源代码网推荐 object BitBtn1: TBitBtn
源代码网推荐 Left = 145
源代码网推荐 Top = 184
源代码网推荐 Width = 80
源代码网推荐 Height = 25
源代码网推荐 Caption = "确定"
源代码网推荐 Default = True
源代码网推荐 ModalResult = 2
源代码网推荐 TabOrder = 1
源代码网推荐 OnClick = OKButtonClick
源代码网推荐 Glyph.Data = {
源代码网推荐 DE010000424DDE01000000000000760000002800000024000000120000000100
源代码网推荐 0400000000006801000000000000000000001000000010000000000000000000
源代码网推荐 80000080000000808000800000008000800080800000C0C0C000808080000000
源代码网推荐 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
源代码网推荐 3333333333333333333333330000333333333333333333333333F33333333333
源代码网推荐 00003333344333333333333333388F3333333333000033334224333333333333
源代码网推荐 338338F3333333330000333422224333333333333833338F3333333300003342
源代码网推荐 222224333333333383333338F3333333000034222A22224333333338F338F333
源代码网推荐 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
源代码网推荐 33333338F83338F338F33333000033A33333A222433333338333338F338F3333
源代码网推荐 0000333333333A222433333333333338F338F33300003333333333A222433333
源代码网推荐 333333338F338F33000033333333333A222433333333333338F338F300003333
源代码网推荐 33333333A222433333333333338F338F00003333333333333A22433333333333
源代码网推荐 3338F38F000033333333333333A223333333333333338F830000333333333333
源代码网推荐 333A333333333333333338330000333333333333333333333333333333333333
源代码网推荐 0000}
源代码网推荐 NumGlyphs = 2
源代码网推荐 end
源代码网推荐 end