Delphi编写的下雪软件

programSnow;

uses

Windows, Messages;

const

SnowNumber = 500; // 雪点数量-1

type

SnowNode = record

Point: TPoint;// 雪点位置

SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组

hTimer: Integer; // '随机风向'时钟句柄

CrWind: Integer; // 当前'风向' ( -1 ~ 1 )

CrStep: Integer; // 当前循环步数(用于限速)

ScreenWidth, ScreenHeight: Integer; // 屏幕尺寸





// 取屏幕尺寸 -> ScreenWidth, ScreenHeight

procedure GetScreenSize;

begin

begin

SetTimer(0, hTimer, (Random(27)+4) * 500, @TimerProc); // 重设下次风向改变时间

if (CrWind <> 0) then CrWind := 0 else CrWind := Random(3) - 1; // 修改风向

end;

// 初始化雪点数组

procedure InitSnowNodes;

var

hScreenDc, J: Integer;

begin

hScreenDc := CreateDC('DISPLAY', nil, nil, nil);

for J := 0 to SnowNumber do

begin

SnowNodes[J].Point.X := Random(ScreenWidth);

SnowNodes[J].Point.Y := Random(ScreenHeight);

SnowNodes[J].Stick := 30 - Random(SnowNodes[J].Speed); // '粘连'度(几次循环作一次粘

end;

// 移动雪点 ..

var

hScreenDc, I, X, Y: Integer;

begin

hScreenDc := CreateDC('DISPLAY', nil, nil, nil);

for I := 0 to SnowNumber do

begin

 // 控制雪点下降速率

if (CrStep mod SnowNodes[I].Speed) <> 0 then Continue;

 // 恢复上次被覆盖点

if GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y) = $FFFFFF then

 and ( GetPixel(hScreenDc, X-1, Y) <> GetPixel(hScreenDc, X-1, Y+1) )

 and ( GetPixel(hScreenDc, X+1, Y) <> GetPixel(hScreenDc, X+1, Y+1) ) then

begin

 // 稍微调整坐标

if GetPixel(hScreenDc, X, Y-1) = GetPixel(hScreenDc, X, Y-2) then Dec(Y) // 上边缘

else if GetPixel(hScreenDc, X, Y+1) = GetPixel(hScreenDc, X, Y+2) then Inc(Y); // 下

边缘

Inc(X, CrWind);