哪里做网站比较号,腾讯wordpress,成都做公司网站推广,wordpress主题透明完全控制你的Windows桌面 (转)[more]完全控制你的桌面对于Windows的桌面界面相信大家已经十分熟悉了#xff0c;占据屏幕大半部分的是桌面#xff0c;在上面排列的是桌面图标。任务栏一般位于桌面的下面#xff0c;也可以在桌面其它边缘。在最左边是“开始按钮”#xff0c…完全控制你的Windows桌面 (转)[more]完全控制你的桌面对于Windows的桌面界面相信大家已经十分熟悉了占据屏幕大半部分的是桌面在上面排列的是桌面图标。任务栏一般位于桌面的下面也可以在桌面其它边缘。在最左边是“开始按钮”接下来是“启动按钮”区、按钮区再下来是任务栏图标区在上面一般会有音量调节图标和输入法调节图标和时钟等。本文首先介绍如何隐藏任务栏中的上面介绍的部分。我们知道利用Windows的ShowWindow可以隐藏或者显示窗口关键是如何得到窗口的句柄。在Windows下的每一个窗口不但有一个窗口句柄标示窗口还有一个称为类名的字符串标示窗口。如果知道窗口的类名通过FindWindow函数就可以获得窗口的句柄。而Windows桌面本身就是一个窗口桌面图标区、任务栏以及任务栏下的开始按钮等都是它的子窗口。我们可以通过FindWindowEx函数来寻找这些窗口。再利用ShowWindow函数隐藏或显示窗口。下面通过一个的范例来演示如何控制任务栏。首先建立一个新的Delphi工程然后在Form1中加入7个CheckBox然后在Form1中添加下面的代码unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 class(TForm)CheckBox1: TCheckBox;CheckBox2: TCheckBox;CheckBox3: TCheckBox;CheckBox4: TCheckBox;CheckBox5: TCheckBox;CheckBox6: TCheckBox;CheckBox7: TCheckBox;procedure FormCreate(Sender: T);privateprocedure CheckButtonClick(Sender:TObject);{ Private declarations }public{ Public declarations }end;Const义不同窗口的类名sTrayWindow _TrayWnd;sTrayNotify TrayNotifyWnd;sStartButton Button;sAppSwitchBar ReBarWindow32;sAppSwitch MSTaskSwWClass;sAppIcon ToolbarWindow32;sTrayClock TrayClockWClass;sDesktopIcon ShellDll_DefView;sProgman Progman;varForm1: TForm1;wnd:Integer;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);beginCheckBox1.Caption : 隐藏任务栏;CheckBox1.OnClick : CheckButtonClick;CheckBox2.Caption : 隐藏开始按钮;CheckBox2.OnClick : CheckButtonClick;CheckBox3.Caption : 隐藏任务栏图标;CheckBox3.OnClick : CheckButtonClick;CheckBox4.Caption : 隐藏程序按钮;CheckBox4.OnClick : CheckButtonClick;CheckBox5.Caption : 隐藏任务栏时钟;CheckBox5.OnClick : CheckButtonClick;CheckBox6.Caption : 隐藏桌面图标;CheckBox6.OnClick : CheckButtonClick;CheckBox7.Caption : 隐藏快速运行图标;CheckBox7.OnClick : CheckButtonClick;end;个CheckBox控件的Click处理函数procedure TForm1.CheckButtonClick(Sender:TObject);vari:Integer;begin到任务栏窗口的窗口句柄wnd : FindWindow(sTrayWindow, nil);if (TCheckBox(Sender).Name) CheckBox2 thenwnd : FindWindowEx(wnd, 0, sStartButton, nil);if (TCheckBox(Sender).Name) CheckBox3 thenwnd : FindWindowEx(wnd, 0, sTrayNotify, nil);if (TCheckBox(Sender).Name) CheckBox4 then beginwnd : FindWindowEx(wnd, 0, sAppSwitchBar, nil);wnd : FindWindowEx(wnd, 0, sAppSwitch, nil);end;if (TCheckBox(Sender).Name) CheckBox5 then beginwnd : FindWindowEx(wnd, 0, sTrayNotify, nil);wnd : FindWindowEx(wnd, 0, sTrayClock, nil);end;if (TCheckBox(Sender).Name) CheckBox6 then beginwnd : FindWindow(sProgman, nil);wnd : FindWindowEx(wnd, 0, sDesktopIcon, nil);end;if (TCheckBox(Sender).Name) CheckBox7 then beginwnd : FindWindowEx(wnd, 0, sAppSwitchBar, nil);wnd : FindWindowEx(wnd, 0, sAppIcon, nil);end;if TCheckBox(Sender).Checked thenShowWindow (wnd, SW_H)ElseShowWindow (wnd, SW_SHOW);end;end.运行程序分别点击不同的选择框可以分别隐藏任务栏或任务栏上的不同部分。下面再来介绍如何操控桌面图标。设置图标文本的背景和颜色以及设置图标的排列。通过上面的介绍上面我们知道Windows的桌面也是一个窗口不同的它是一个ListView类窗口对于ListView类窗口有一系列的以LVM_开头的消息通过Windows API函数SendMessage向ListView类窗口发送这些消息就可以控制窗口的一些属性而且在Delphi中还有一系列的以ListView_开头的函数这些函数可以代替LVM_类消息。具体的范例如下首先建立一个新的Delphi工程然后在Form1中加入两个Commanutton控件然后在Form1中加入以下的代码unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls, StdCtrls,Commctrl;typeTForm1 class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure SetDesktopIconColor(Forground, Background: TColor; Trans: Boolean);varWindow: HWND;beginWindow : FindWindow(Progman, Program Manager);到桌面窗口Window : FindWindowEx(Window, HWND(nil), SHELLDLL_DefView, );到放置桌面图标的ListView窗口Window : FindWindowEx(Window, HWND(nil), SysListView32, );if Trans then 置透明的文字背景色ListView_SetTextBkColor(Window, $ffffffff) // back colorelse 置不透明的文字背景色ListView_SetTextBkColor(Window, Background); // back colorListView_SetTextColor(Window, Forground); // foreground color新绘制桌面图标ListView_RedrawItems(Window, 0, ListView_GetItemCount(Window) - 1);UpdateWindow(Window); 新绘制窗口end;procedure SetDeskTopIconArr(iWidth,iHeight:Integer);varWindow: HWND;i,i1,i2,iCount:integer;beginWindow : FindWindow(Progman, Program Manager);Window : FindWindowEx(Window, HWND(nil), SHELLDLL_DefView, );Window : FindWindowEx(Window, HWND(nil), SysListView32, );置图标与边界的距离。i1:20;i2:20;得桌面图标的个数iCount:ListView_GetItemCount(Window)-1;for i:0 to iCount do begin置图标位置ListView_SetItemPosition(Window,i,i1,i2);i1:i1iWidth;if i1(Screen.Width-32) then begini1:20;i2:i2iHeight;end;end;ListView_RedrawItems(Window, 0, ListView_GetItemCount(Window) - 1);UpdateWindow(Window);end;procedure SetDefaultIconColors;varKind: Integer;Color: TColor;beginKind : COLOR_DESKTOP;Color : GetSylor(COLOR_DESKTOP);SetSysColors(1, Kind, Color);end;procedure TForm1.Button1Click(Sender: TObject);begin可以改变clWhite,clBlack为其它的颜色值看看标文本颜色的变化SetDesktopIconColor(clWhite,clBlack,True);end;procedure TForm1.Button2Click(Sender: TObject);begin置图标的间距为100个像素SetDeskTopIconArr(100,100);end;procedure TForm1.FormCreate(Sender: TObject);beginButton1.Caption : 设置图标文本颜色;Button2.Caption : 设置图标排列;end;end.在上面的程序中函数SetDesktopIconColor设置图标文本的前景色、背景色和透明参数ForeGroundBackGround分别指定文本的前景色和背景色参数Trans指定文本的背景是否透明(如果有背景图案的话)。函数SetDeskTopIconArr排列桌面图标参数iWidth,iHeight分别指定图标之间的横向纵向距离。如果要使SetDeskTopIconArr函数生效就需要将桌面图标的自动排列选项去掉。另外ListView类还有其它的控制消息利用这些消息可以控制更多的桌面图标选项。有兴趣的朋友可以察看MSDN库。以上程序由Delphi5编写在Windows98 下运行通过。
