ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 完全控制你的Windows桌面 (转)

完全控制你的Windows桌面 (转)

原创 Linux操作系统 作者:worldblog 时间:2007-12-04 09:22:25 0 删除 编辑
完全控制你的Windows桌面 (转)[@more@]

完全控制你的windows桌面
  对于Windows的桌面界面相信大家已经十分熟悉了,占据屏幕大半部分的是桌面,在上面排列的是桌面图标。
任务栏一般位于桌面的下面,也可以在桌面其它边缘。在最左边是“开始按钮”,接下来是“快速启动按钮”区、
程序按钮区,再下来是任务栏图标区,在上面一般会有音量调节图标和输入法调节图标和时钟等。
  本文首先介绍如何隐藏任务栏中的上面介绍的部分。我们知道利用Windows的api函数ShowWindow可以隐藏或
者显示窗口,关键是如何得到窗口的句柄。在Windows下的每一个窗口不但有一个窗口句柄标示窗口,还有一个称
为类名的字符串标示窗口。如果知道窗口的类名,通过FindWindow函数就可以获得窗口的句柄。而Windows桌面
本身就是一个窗口,桌面图标区、任务栏以及任务栏下的开始按钮等都是它的子窗口。我们可以通过FindWindowEx
函数来寻找这些窗口。再利用ShowWindow函数隐藏或显示窗口。下面通过一个Delphi的范例来演示如何控制任务栏。
  首先建立一个新的Delphi工程,然后在Form1中加入7个CheckBox控件,然后在Form1中添加下面的代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
  CheckBox1: TCheckBox;
  CheckBox2: TCheckBox;
  CheckBox3: TCheckBox;
  CheckBox4: TCheckBox;
  CheckBox5: TCheckBox;
  CheckBox6: TCheckBox;
  CheckBox7: TCheckBox;
  procedure FormCreate(Sender: Tobject);
  private
  procedure CheckButtonClick(Sender:TObject);
  { Private declarations }
  public
  { Public declarations }
  end;
Const
file://定义不同窗口的类名
sTrayWindow = 'shell_TrayWnd';
sTrayNotify = 'TrayNotifyWnd';
sStartButton = 'Button';
sAppSwitchBar = 'ReBarWindow32';
sAppSwitch = 'MSTaskSwWClass';
sAppIcon = 'ToolbarWindow32';
sTrayClock = 'TrayClockWClass';
sDesktopIcon = 'ShellDll_DefView';
sProgman = 'Progman';

var
  Form1: TForm1;
  wnd:Integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.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;

file://7个CheckBox控件的Click处理函数
procedure TForm1.CheckButtonClick(Sender:TObject);
var
  i:Integer;
begin
  file://找到任务栏窗口的窗口句柄
  wnd := FindWindow(sTrayWindow, nil);

  if (TCheckBox(Sender).Name)=  'CheckBox2' then
  wnd := FindWindowEx(wnd, 0, sStartButton, nil);

  if (TCheckBox(Sender).Name)=  'CheckBox3' then
  wnd := FindWindowEx(wnd, 0, sTrayNotify, nil);

  if (TCheckBox(Sender).Name)=  'CheckBox4' then begin
  wnd := FindWindowEx(wnd, 0, sAppSwitchBar, nil);
  wnd := FindWindowEx(wnd, 0, sAppSwitch, nil);
  end;

  if (TCheckBox(Sender).Name)=  'CheckBox5' then begin
  wnd := FindWindowEx(wnd, 0, sTrayNotify, nil);
  wnd := FindWindowEx(wnd, 0, sTrayClock, nil);
  end;

  if (TCheckBox(Sender).Name)=  'CheckBox6' then begin
  wnd := FindWindow(sProgman, nil);
  wnd := FindWindowEx(wnd, 0, sDesktopIcon, nil);
  end;

  if (TCheckBox(Sender).Name)=  'CheckBox7' then begin
  wnd := FindWindowEx(wnd, 0, sAppSwitchBar, nil);
  wnd := FindWindowEx(wnd, 0, sAppIcon, nil);
  end;

  if TCheckBox(Sender).Checked then
  ShowWindow (wnd, SW_Hide)
  Else
  ShowWindow (wnd, SW_SHOW);
end;
end.

  运行程序,分别点击不同的选择框,可以分别隐藏任务栏或任务栏上的不同部分。

  下面再来介绍如何操控桌面图标。设置图标文本的背景和颜色以及设置图标的排列。通过上面的介绍
上面我们知道,Windows的桌面也是一个窗口,不同的它是一个ListView类窗口,对于ListView类窗口,有
一系列的以LVM_开头的消息,通过Windows API函数SendMessage向ListView类窗口发送这些消息就可以控
制窗口的一些属性,而且在Delphi中还有一系列的以ListView_开头的函数,这些函数可以代替LVM_类消息。
  具体的范例如下:首先建立一个新的Delphi工程,然后在Form1中加入两个Commandbutton控件,然后在
Form1中加入以下的代码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls,Commctrl;

type
  TForm1 = 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;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure SetDesktopIconColor(Forground, Background: TColor; Trans: Boolean);
var
  Window: HWND;
begin
  Window := FindWindow('Progman', 'Program Manager');
  file://找到桌面窗口
  Window := FindWindowEx(Window, HWND(nil), 'SHELLDLL_DefView', '');
  file://找到放置桌面图标的ListView窗口
  Window := FindWindowEx(Window, HWND(nil), 'SysListView32', '');

  if Trans then  file://设置透明的文字背景色
  ListView_SetTextBkColor(Window, $ffffffff) // back color
  else  file://设置不透明的文字背景色
  ListView_SetTextBkColor(Window, Background); // back color

  ListView_SetTextColor(Window, Forground); // foreground color
  file://重新绘制桌面图标
  ListView_RedrawItems(Window, 0, ListView_GetItemCount(Window) - 1);
  UpdateWindow(Window);  file://重新绘制窗口
end;

procedure SetDeskTopIconArr(iWidth,iHeight:Integer);
var
  Window: HWND;
  i,i1,i2,iCount:integer;
begin
  Window := FindWindow('Progman', 'Program Manager');
  Window := FindWindowEx(Window, HWND(nil), 'SHELLDLL_DefView', '');
  Window := FindWindowEx(Window, HWND(nil), 'SysListView32', '');

  file://设置图标与边界的距离。
  i1:=20;i2:=20;

  file://获得桌面图标的个数
  iCount:=ListView_GetItemCount(Window)-1;
  for i:=0 to iCount do begin
  file://设置图标位置
  ListView_SetItemPosition(Window,i,i1,i2);
  i1:=i1+iWidth;
  if i1>(Screen.Width-32) then begin
  i1:=20;
  i2:=i2+iHeight;
  end;
  end;
  ListView_RedrawItems(Window, 0, ListView_GetItemCount(Window) - 1);
  UpdateWindow(Window);
end;

procedure SetDefaultIconColors;
var
  Kind: Integer;
  Color: TColor;
begin
  Kind := COLOR_DESKTOP;
  Color := GetSySCOlor(COLOR_DESKTOP);
  SetSysColors(1, Kind, Color);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  file://你可以改变clWhite,clBlack为其它的颜色值看看
  file://图标文本颜色的变化
  SetDesktopIconColor(clWhite,clBlack,True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  file://设置图标的间距为100个像素
  SetDeskTopIconArr(100,100);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '设置图标文本颜色';
  Button2.Caption := '设置图标排列';
end;

end.

  在上面的程序中,函数SetDesktopIconColor设置图标文本的前景色、背景色和透明,参数ForeGround
BackGround分别指定文本的前景色和背景色,参数Trans指定文本的背景是否透明(如果有背景图案的话)。
函数SetDeskTopIconArr排列桌面图标,参数iWidth,iHeight分别指定图标之间的横向纵向距离。如果要使
SetDeskTopIconArr函数生效,就需要将桌面图标的自动排列选项去掉。另外ListView类还有其它的控制消息
利用这些消息可以控制更多的桌面图标选项。有兴趣的朋友可以察看MSDN库。
  以上程序由Delphi5编写,在Windows98 Windows2000下运行通过。

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-987934/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2448528