unit1.pas

！屏保程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  StrShow: string = '老婆老婆我爱你，就象老鼠爱大米。';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Color := clBlack;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
  cl: TColor;
  p: TPoint;
begin
  //Randomize;
  i := Random(50) + 1;
  //Randomize;
  cl := TColor(Random($FFFFFF));
  //Randomize;
  p.X := Random(Self.Width);
  //Randomize;
  p.Y := Random(Self.Height);
  with Label1 do
  begin
    Font.Size := i;
    Caption := StrShow;
    Font.Color := cl;
    Left := p.X;
    Top := p.Y;
  end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_ESCAPE: Self.Close;
    VK_DOWN, VK_RIGHT: begin
      if Timer1.Interval >= 10000 then
        Exit;
      Timer1.Enabled := FALSE;
      Timer1.Interval := Timer1.Interval + 100;
      Timer1.Enabled := TRUE;
    end;
    VK_UP, VK_LEFT: begin
      if Timer1.Interval <= 100 then
        Exit;
      Timer1.Enabled := FALSE;
      Timer1.Interval := Timer1.Interval - 100;
      Timer1.Enabled := TRUE;
    end;
  end;
end;

end.