程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 隱藏任務欄和桌面圖標，用Delphi來實現

隱藏任務欄和桌面圖標，用Delphi來實現

編輯：Delphi

用Delphi來實現隱藏電腦任務欄和桌面圖標，可通過本代碼了解一下Delphi編程與Windows之間的關聯。程序實現的具體功能為：隱藏/顯示任務欄、隱藏/顯示桌面圖標、隱藏/顯示開始菜單。代碼編譯後，會生成一個控制窗體，在窗體上點擊對應的按鈕，即可實現對應功能。

程序運行界面如下圖所示：

Delphi隱藏任務欄和桌面圖標測試圖

以下是實現的源代碼：

vIEw source

print? 01 unit MainUnit; 02 interface 03 uses 04 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05 StdCtrls, ExtCtrls; 06 07 type 08 TMainForm = class(TForm) 09 RadioGroup1: TRadioGroup; 10 RadioGroup2: TRadioGroup; 11 RadioGroup3: TRadioGroup; 12 RadioGroup4: TRadioGroup; 13 procedure RadioGroup1Click(Sender: TObject); 14 procedure RadioGroup2Click(Sender: TObject); 15 procedure RadioGroup3Click(Sender: TObject); 16 procedure RadioGroup4Click(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 23 var 24 MainForm: TMainForm; 25 implementation 26 {$R *.DFM} 27 procedure TMainForm.RadioGroup1Click(Sender: TObject); 28 var 29 hTask: THandle; 30 begin 31 hTask:= FindWindow('Shell_TrayWnd', nil); 32 if RadioGroup1.ItemIndex= 0 then 33 ShowWindow(hTask, SW_HIDE) 34 else 35 ShowWindow(hTask, SW_SHOW); 36 end; 37 procedure TMainForm.RadioGroup2Click(Sender: TObject); 38 var 39 hDesktop: THandle; 40 begin 41 hDesktop:= FindWindow('ProgMan', nil); 42 if RadioGroup2.ItemIndex= 0 then 43 ShowWindow(hDesktop, SW_HIDE) 44 else 45 ShowWindow(hDesktop, SW_SHOW); 46 end; 47 procedure TMainForm.RadioGroup3Click(Sender: TObject); 48 var 49 hTask, hButton: THandle; 50 begin 51 hTask:= FindWindow('Shell_Traywnd', nil); 52 hButton:= FindWindowEx(hTask, 0, 'Button', nil); 53 if RadioGroup3.ItemIndex= 0 then 54 ShowWindow(hButton, SW_HIDE) 55 else 56 ShowWindow(hButton, SW_SHOW); 57 end; 58 procedure TMainForm.RadioGroup4Click(Sender: TObject); 59 var 60 hTask, hTIcon: THandle; 61 begin 62 hTask:= FindWindow('Shell_Traywnd', nil); 63 hTIcon:= FindWindowEx(hTask, 0, 'ReBarWindow32', nil); 64 if RadioGroup4.ItemIndex= 0 then 65 ShowWindow(hTIcon, SW_HIDE) 66 else 67 ShowWindow(hTIcon, SW_SHOW); 68 end; 69 end.