桌面下雪的特效代码

阿杰

1. 
   
2. program Snow;
   
3. uses
   
4.   Windows, Messages;
   
5. const
   
6.   SnowNumber = 500; // 雪点数量-1
   
7. type
   
8.   SnowNode = record
   
9.     Point: TPoint; // 雪点位置
   
10.     Color: Integer; // 先前颜色
    
11.     Speed: Integer; // 下落速率
    
12.     nMove: Integer; // 下落距离
    
13.     Stick: Integer; // '粘连'度
    
14.   end;
    
15. 
    
16. var
    
17.   SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组
    
18.   hTimer: Integer; // '随机风向'时钟句柄
    
19.   CrWind: Integer; // 当前'风向' ( -1 ~ 1 )
    
20.   CrStep: Integer; // 当前循环步数(用于限速)
    
21.   ScreenWidth, ScreenHeight: Integer; // 屏幕尺寸
    
22. 
    
23. 
    
24. // 取屏幕尺寸 -> ScreenWidth, ScreenHeight
    
25. 
    
26. procedure GetScreenSize;
    
27. begin
    
28.   ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
    
29.   ScreenHeight := GetSystemMetrics(SM_CYSCREEN);
    
30. end;
    
31. 
    
32. // '随机风向'时钟
    
33. 
    
34. procedure TimerProc(hWnd: HWND; uMsg: UINT; idEvent: UINT; dwTime: DWORD); stdcall;
    
35. begin
    
36.   SetTimer(0, hTimer, (Random(27) + 4) * 500, @TimerProc); // 重设下次风向改变时间
    
37.   if (CrWind <> 0) then CrWind := 0 else CrWind := Random(3) - 1; // 修改风向
    
38. end;
    
39. 
    
40. // 初始化雪点数组
    
41. 
    
42. procedure InitSnowNodes;
    
43. var
    
44.   hScreenDc, J: Integer;
    
45. begin
    
46.   hScreenDc := CreateDC(&#39; DISPLAY&#39; , nil, nil, nil);
    
47.   for J := 0 to SnowNumber do
    
48.   begin
    
49.     SnowNodes[J].Point.X := Random(ScreenWidth);
    
50.     SnowNodes[J].Point.Y := Random(ScreenHeight);
    
51.     SnowNodes[J].Color := GetPixel(hScreenDc, SnowNodes[J].Point.X, SnowNodes[J].Point.Y);
    
52.     SnowNodes[J].Speed := Random(5) + 1; // 几次循环作下落一次 (1~5)
    
53.     SnowNodes[J].nMove := Random(SnowNodes[J].Speed) + 1; // 每次下落距离(1~5)
    
54.     SnowNodes[J].Stick := 30 - Random(SnowNodes[J].Speed); // &#39;粘连&#39;度(几次循环作一次粘连判断)
    
55.   end;
    
56.   DeleteDC(hScreenDc);
    
57. end;
    
58. 
    
59. // 移动雪点 ..
    
60. 
    
61. procedure MoveSnowNodes;
    
62. var
    
63.   hScreenDc, I, X, Y: Integer;
    
64. begin
    
65.   hScreenDc := CreateDC(&#39; DISPLAY&#39; , nil, nil, nil);
    
66.   for I := 0 to SnowNumber do
    
67.   begin
    
68.   // 控制雪点下降速率
    
69.     if (CrStep mod SnowNodes[I].Speed) <> 0 then Continue;
    
70.   // 恢复上次被覆盖点
    
71.     if GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y) = $FFFFFF then
    
72.       SetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y, SnowNodes[I].Color);
    
73.   // 根据风向作随机飘落
    
74.     X := SnowNodes[I].Point.X + Random(3) - 1 + CrWind;
    
75.     Y := SnowNodes[I].Point.Y + SnowNodes[I].nMove;
    
76.   // 积雪(停留)效果处理
    
77.     if ((CrStep mod SnowNodes[I].Stick) = 0) // 降低积雪概率 ..
    
78.       and (GetPixel(hScreenDc, X, Y) <> GetPixel(hScreenDc, X, Y + 1)) // &#39;边缘&#39;判断
    
79.       and (GetPixel(hScreenDc, X - 1, Y) <> GetPixel(hScreenDc, X - 1, Y + 1))
    
80.       and (GetPixel(hScreenDc, X + 1, Y) <> GetPixel(hScreenDc, X + 1, Y + 1)) then
    
81.     begin
    
82.    // 稍微调整坐标
    
83.       if GetPixel(hScreenDc, X, Y - 1) = GetPixel(hScreenDc, X, Y - 2) then Dec(Y) // 上边缘
    
84.       else if GetPixel(hScreenDc, X, Y + 1) = GetPixel(hScreenDc, X, Y + 2) then Inc(Y); // 下边缘
    
85.       Inc(X, CrWind);
    
86.    // 画三个点(雪花)
    
87.       SetPixel(hScreenDc, X, Y, $FFFFFF);
    
88.       SetPixel(hScreenDc, X + 1, Y + 1, $FFFFFF);
    
89.       SetPixel(hScreenDc, X - 1, Y + 1, $FFFFFF);
    
90.    // 重生雪点
    
91.       SnowNodes[I].Point.Y := Random(10);
    
92.       SnowNodes[I].Point.X := Random(ScreenWidth);
    
93.       SnowNodes[I].Color := GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y);
    
94.     end else
    
95.     begin
    
96.       if (X < 0) or (X > ScreenWidth) or (Y > ScreenHeight) then // 超出范围则重生雪点
    
97.       begin
    
98.         SnowNodes[I].Point.Y := Random(10);
    
99.         SnowNodes[I].Point.X := Random(ScreenWidth);
    
100.         SnowNodes[I].Color := GetPixel(hScreenDc, SnowNodes[I].Point.X, SnowNodes[I].Point.Y);
     
101.       end else
     
102.       begin
     
103.     // 保存颜色并绘制雪点
     
104.         SnowNodes[I].Color := GetPixel(hScreenDc, X, Y);
     
105.         SetPixel(hScreenDc, X, Y, $FFFFFF);
     
106.     // 此时保存新雪点位置
     
107.         SnowNodes[I].Point.X := X;
     
108.         SnowNodes[I].Point.Y := Y;
     
109.       end;
     
110.     end;
     
111.   end;
     
112.   DeleteDC(hScreenDc);
     
113.   Inc(CrStep);
     
114. end;
     
115. 
     
116. var
     
117.   ThreadMsg: TMsg; // 标准消息结构体
     
118.   Frequency: Int64; // 高性能定时器频率
     
119.   StartCt, EndCt: Int64; // 高性能定时器计数
     
120.   ElapsedTime: Extended; // 时间间隔
     
121. begin
     
122.   Randomize; GetScreenSize; InitSnowNodes; // 初始化
     
123.   QueryPerformanceFrequency(Frequency); // 高性能定时器频率
     
124.   hTimer := SetTimer(0, 0, Random(5) * 500, @TimerProc); // 安装随机风向定时器
     
125.   RegisterHotKey(0, 0, MOD_CONTROL, ORD(&#39; L&#39; )); // 注册退出热键 Ctrl+L
     
126.   while TRUE do // 消息循环
     
127.   begin
     
128.     QueryPerformanceCounter(StartCt); // 执行运算前 计数值
     
129.     if PeekMessage(ThreadMsg, 0, 0, 0, PM_REMOVE) then // 取到消息
     
130.     begin
     
131.       case ThreadMsg.message of
     
132.         WM_TIMER:
     
133.           TimerProc(0, 0, 0, 0); // 预设风向改变时间已到
     
134. 
     
135.         WM_HOTKEY:
     
136.           begin
     
137.             KillTimer(0, hTimer); // 删除随机风向定时器
     
138.             UnregisterHotKey(0, 0); // 删除退出热键 Ctrl+L
     
139.             InvalidateRect(0, nil, TRUE); // 刷新屏幕
     
140.             Break; // 跳出消息循环
     
141.           end;
     
142. 
     
143.         WM_DISPLAYCHANGE:
     
144.           begin
     
145.             GetScreenSize; // 重新取屏幕尺寸
     
146.             InitSnowNodes; // 初始化雪点数组
     
147.           end;
     
148.       end;
     
149.     end;
     
150.     MoveSnowNodes; // 移动雪点
     
151.     QueryPerformanceCounter(EndCt); // 执行运算后计数值
     
152.     ElapsedTime := (EndCt - StartCt) / Frequency;
     
153.     if (ElapsedTime < 0.0005) then Sleep(2) // 简单限速
     
154.     else if (ElapsedTime < 0.0010) then Sleep(1)
     
155.     else if (ElapsedTime < 0.0015) then Sleep(0);
     
156.   end;
     
157. end.
     

复制代码

upring

嘿嘿 这个代码很不错