ÀÏK½»´úµÄÈÎÎñ~ ±¾ÎÄÀ´×Ô: UPKÈí¼þ°²È«ÉçÇø ×÷Õß: ºÚÒ¹²Êºç ÈÕÆÚ: 2009-12-8 21:16 ÔĶÁ: 536ÈË ÊÕ²Ø

ºÚÒ¹²Êºç

ÀÏK½»´úµÄÈÎÎñÍê³É²»ÁË£¬½ÓÊÜBS~£¬ÏÂÃæ·Å³öÒÑÍê³É²¿·ÝµÄÔ´Âë...£¬ÄÄλ´ó´ó¼ÌÐø¸ã

1. unit Unit_main;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls,ShellAPI,Registry,ShlObj,CommCtrl,ComObj;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     Button1: TButton;
    
12.     Button2: TButton;
    
13.     Button3: TButton;
    
14.     Button4: TButton;
    
15.     Button5: TButton;
    
16.     Button6: TButton;
    
17.     Button7: TButton;
    
18.     procedure Button1Click(Sender: TObject);
    
19.     procedure Button2Click(Sender: TObject);
    
20.     procedure Button3Click(Sender: TObject);
    
21.     procedure Button4Click(Sender: TObject);
    
22.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
23.     procedure Button5Click(Sender: TObject);
    
24.     procedure Button6Click(Sender: TObject);
    
25.     procedure Button7Click(Sender: TObject);
    
26.   private
    
27.     { Private declarations }
    
28.   public
    
29.      { Public declarations }
    
30.   end;
    
31. 
    
32. 
    
33. 
    
34. var
    
35.   Form1: TForm1;
    
36.    Wnd:array[0..4] of THandle;
    
37. implementation
    
38. 
    
39. {$R *.dfm}
    
40. 
    
41. 
    
42. function   IsTaskbarAutoHideOn   :   Boolean; //ÅжÏÊÇ·ñ×Ô¶¯Òþ²Ø
    
43.   var
    
44.       ABData   :   TAppBarData;
    
45.   begin   
    
46.       ABData.cbSize   :=   SizeOf   (ABData);
    
47.       result   :=   (SHAppBarMessage   (ABM_GETSTATE,   ABData)   and   ABS_AUTOHIDE)   >   0   
    
48.   end;
    
49. 
    
50. procedure LockTaskbar(Lock: Boolean);   //ËøÈÎÎñÀ¸
    
51. Var
    
52.   Reg:TRegistry;
    
53. Begin
    
54.   Reg:=TRegistry.Create;
    
55.   try
    
56.     Reg.RootKey := HKEY_LOCAL_MACHINE;
    
57.     if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', True) then
    
58.     begin
    
59.       if Lock then
    
60.         Reg.WriteInteger('TaskBarSizeMove',0) //Ëø
    
61.       else
    
62.         Reg.WriteInteger('TaskBarSizeMove',1); //½â
    
63.       Reg.CloseKey;
    
64.     end;
    
65.   except
    
66.     Reg.Free;
    
67.   end;
    
68.   SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_IDLIST+SHCNF_FLUSH,nil,nil);
    
69. end;
    
70. 
    
71. procedure GetHandles;   //µÃµ½ÈÎÎñÀ¸¾ä±ú
    
72. begin
    
73. //µÃµ½Tray BarµÄ´°¿Ú¾ä±ú£»ª¤
    
74. Wnd[0]:=FindWindow('ShellTrayWnd',nil);
    
75. 
    
76. //µÃµ½¿ªÊ¼°´Å¥µÄ´°¿Ú¾ä±ú£»ª¤
    
77. 
    
78. Wnd[1]:=FindWindow('Shell_TrayWnd',nil);
    
79. 
    
80. Wnd[1]:=FindWindowEx(Wnd[1],HWND(0),'Button',nil);
    
81. 
    
82. //µÃµ½Ó¦ÓóÌÐòÇл»ÇøµÄ´°¿Ú¾ä±ú£»ª¤
    
83. 
    
84. Wnd[2]:=FindWindow('Shell_TrayWnd',nil);
    
85. 
    
86. Wnd[2]:=FindWindowEx(Wnd[2],HWND(0),'ReBarWindow32',nil);
    
87. 
    
88. //µÃµ½ÈÎÎñÀ¸Í¨ÖªÇøµÄ´°¿Ú¾ä±ú£»ª¤
    
89. 
    
90. Wnd[3]:=FindWindow('Shell_TrayWnd',nil);
    
91. 
    
92. Wnd[3]:=FindWindowEx(Wnd[3],HWND(0),'TrayNotifyWnd',nil);
    
93. 
    
94. //µÃµ½ÈÎÎñÀ¸Ê±ÖӵĴ°¿Ú¾ä±ú£»ª¤
    
95. 
    
96. Wnd[4]:=FindWindow('Shell_TrayWnd',nil);
    
97. 
    
98. Wnd[4]:=FindWindowEx(Wnd[4],HWND(0),'TrayNotifyWnd',nil);
    
99. 
    
100. Wnd[4]:=FindWindowEx(Wnd[4],HWND(0),'TrayCLockWClass',nil);
     
101. end;
     
102. 
     
103. procedure EnableOrDisable(Lock:Boolean;I:Integer);    //½ûÓûòÆôÓÃÈÎÎñÀ¸
     
104. begin
     
105.     GetHandles;
     
106.     if Lock then
     
107.     case i of
     
108.       0: EnableWindow(Wnd[0], False);
     
109.       1: EnableWindow(Wnd[1], False);
     
110.       2: EnableWindow(Wnd[2], False);
     
111.       3: EnableWindow(Wnd[3], False);
     
112.       4: EnableWindow(Wnd[4], False);
     
113.     end
     
114.     else
     
115.     case i of
     
116.       0: EnableWindow(Wnd[0], True);
     
117.       1: EnableWindow(Wnd[1], True);
     
118.       2: EnableWindow(Wnd[2], True);
     
119.       3: EnableWindow(Wnd[3], True);
     
120.       4: EnableWindow(Wnd[4], True);
     
121.     end;
     
122. end;
     
123. 
     
124. procedure HideOrShow(Lock:Boolean;I:Integer);  //Òþ²Ø»òÏÔʾÈÎÎñÀ¸
     
125. begin
     
126.   GetHandles;
     
127.    if  Lock then
     
128.    case i of
     
129.     0: ShowWindow(Wnd[0],SW_HIDE);
     
130.     1: ShowWindow(Wnd[1],SW_HIDE);
     
131.     2: ShowWindow(Wnd[2],SW_HIDE);
     
132.     3: ShowWindow(Wnd[3],SW_HIDE);
     
133.     4: ShowWindow(Wnd[4],SW_HIDE);
     
134.   end
     
135.    else
     
136.     case i of
     
137.     0: ShowWindow(Wnd[0],SW_Show);
     
138.     1: ShowWindow(Wnd[1],SW_Show);
     
139.     2: ShowWindow(Wnd[2],SW_Show);
     
140.     3: ShowWindow(Wnd[3],SW_Show);
     
141.     4: ShowWindow(Wnd[4],SW_Show);
     
142.     end;
     
143. end;
     
144. 
     
145. Procedure SetWallPaper(StrFile: String; Style: Integer); //¸ü¸Ä×À²¼
     
146. Var DT: IActiveDesktop;
     
147.   WPO: TWallpaperOpt;
     
148.   WS: WideString;
     
149. Begin
     
150.   DT := CreateComObject(CLSID_ActiveDesktop) As IActiveDesktop;
     
151.   WS := StrFile;
     
152.   Case Style Of
     
153.     0: WPO.dwStyle := WPSTYLE_CENTER; {¾ÓÖÐ}
     
154.     1: WPO.dwStyle := WPSTYLE_TILE; {ƽÆÌ}
     
155.     2: WPO.dwStyle := WPSTYLE_STRETCH; {À­Éì}
     
156.   Else WPO.dwStyle := WPSTYLE_CENTER;
     
157.   End;
     
158.   WPO.dwSize := SizeOf(WPO);
     
159.   DT.SetWallpaperOptions(WPO, 0);
     
160.   DT.SetWallPaper(PwideChar(WS), 0);
     
161.   DT.ApplyChanges(AD_APPLY_ALL);
     
162. End;
     
163. 
     
164. procedure TForm1.Button1Click(Sender: TObject);
     
165. begin
     
166.     ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE);
     
167. end;
     
168. 
     
169. procedure TForm1.Button2Click(Sender: TObject);
     
170. begin
     
171.       ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_SHOW);
     
172.     //SetTaskbarAutoHide(3);
     
173. end;
     
174. 
     
175. procedure TForm1.Button3Click(Sender: TObject);
     
176. begin
     
177.     LockTaskbar(True);
     
178. end;
     
179. 
     
180. procedure TForm1.Button4Click(Sender: TObject);
     
181. begin
     
182.      LockTaskbar(False);
     
183. end;
     
184. 
     
185. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
     
186. var i:Integer;
     
187. begin
     
188. for i:=0 to 4 do
     
189. begin
     
190. EnableWindow(Wnd[i],True);
     
191. ShowWindow(Wnd[i],SW_Show);
     
192. end;
     
193. end;
     
194. 
     
195. 
     
196. 
     
197. procedure TForm1.Button5Click(Sender: TObject);
     
198. begin
     
199.    HideOrShow(true,4);
     
200. end;
     
201. 
     
202. procedure TForm1.Button6Click(Sender: TObject);
     
203. begin
     
204.     HideOrShow(false,4);
     
205. end;
     
206. 
     
207. procedure TForm1.Button7Click(Sender: TObject); //ë[²ØˆD˜Ë
     
208. var   
     
209.   wnd:HWND;   
     
210.   begin   
     
211.   Wnd   :=   GetDesktopWindow;
     
212.   Wnd   :=   FindWindowEx(Wnd,   0,   'Progman',   nil);
     
213.   Wnd   :=   FindWindowEx(Wnd,   0,   'SHELLDLL_DefView',   nil);   
     
214.   Wnd   :=   FindWindowEx(Wnd,   0,   'SysListView32',   nil);
     
215.   SendMessage(wnd,   LVM_DELETEALLITEMS,   0,   0);
     
216. SetWallPaper('',0);
     
217.   end;
     
218. 
     
219. end.

¸´ÖÆ´úÂë

stockstock

ËêÊý´óÁË£¬ д´úÂëÊÇÄãÃÇÄêÇáÈ˵ÄÊÂÁË¡£

Ö»Ñо¿Ò»Ð©³ÌÐòÓ¦ÓᣳÌÐò¼ÓÃÜ¡£·ÀÍÑ¡£

Ö§³ÖÄãһϡ£

ʲôҲ²»ÊÇ

  Ã»ÕâÄÜÁ¦ß¹  Ö»Äܰﶥ†ª

KuNgBiM

http://www.unpack.cn/viewthread.php?tid=43215

2015036

Â¥Ö÷µÄUBÕæ¶à°¡¡£