发一个专门操作任务栏的类
忽然在CSDN上看到别人问怎样操作windows任务栏上的元素，如隐藏任务栏、获得任务栏上的所有托盘图标等信息。在闲暇的时候用Spy++捕捉了一下任务栏的相关消息和各控件句柄。于是将各种操作封装到了一个类中。大致代码如下：(******************************************************)
(* WindowsOperate Unit *)
(* Copyright(c) 2007 不得闲 *)
(* email:[email protected] QQ:75492895 *)
(******************************************************)
unit WindowsOperate;
interface
uses windows,Classes,Messages,SysUtils,forms,ComObj,winsvc, shellapi,CommCtrl,Graphics;
type
{任务栏上的任务按扭}
TSysToolbarBtn = class(TPersistent)
private
FBtnInfo: TTBButton;
FBtnIndex: integer;
FBtnCaption: string;
SysHide: boolean;//是否为系统隐藏图标
EventHandle: THandle; //事件处理句柄
FPicture: TBitmap; //图标
FBtnRect: TRect;//区域
FVisible: boolean;
function GetBtnInfo: TTBButton;
procedure SetVisible(const Value: boolean);
public
Constructor Create;
Destructor Destroy;override;
property BtnInfo: TTBButton read GetBtnInfo;
property BtnIndex: integer read FBtnIndex;
property BtnCaption: string read FBtnCaption;
property BtnRect: TRect read FBtnRect;
procedure AssignBtnInfo(Info: TTBButton);
property isSysHide: boolean read SysHide;
property Picture: TBitmap read FPicture;
property Visible: boolean read FVisible write SetVisible;
procedure Click;
procedure DbClick;
procedure RClick;
end;
TSysTaskBarOperate = Class(TComponent) //任务栏操作类
private
FTrayBtnList,FTaskBtnList: TStringList;
HigherThenXp: boolean; //是否为xp以上的系统版本
FTrayBarHandle: THandle;
FTaskBarHandle: THandle;
FStartBtnHandle: THandle;
FQuitLauchHandle: THandle;
FReBarHandle: THandle;
FProgramToolBarHandle: THandle;
FImeRecHandle: THandle;
FProgramContrainerHandle: THandle; //任务栏容器
FHideTrayBtnHandle: THandle;
FTrayNotifyHandle: THandle;
FClockHandle: THandle;
FShowHideBtn: boolean;
FVisible: boolean;
FquickBarVisible: boolean;
FTaskToolBarVisible: boolean;
FTaskBarVisible: boolean;
FRegBarVisible: boolean;
FStartBtnVisible: boolean;
FImeBarVisible: boolean;
FTrayBarVisible: boolean;
procedure GetIconList;
procedure GetTaskList;
function GetTrayBtnCount: integer;
function IsSysBtnHide(BtnState: Dword): boolean;
procedure SetShowHideBtn(const Value: boolean);
function GetTrayBtns(Index: integer): TSysToolbarBtn;
function GetTaskBtnCount: integer;
function GetTaskBtns(Index: integer): TSysToolbarBtn;
procedure SetVisible(const Value: boolean);
procedure SetquickBarVisible(const Value: boolean);
procedure SetTaskToolBarVisible(const Value: boolean);
procedure SetTaskBarVisible(const Value: boolean);
procedure SetReBaVisible(const Value: boolean);
procedure SetStartBtnVisible(const Value: boolean);
procedure SetImeBarVisible(const Value: boolean);
procedure SetTrayBarVisible(const Value: boolean);
protected
procedure StartBtnWndProc(var Message: TMessage);
public
Constructor Create(AOwner: TComponent);override;
Destructor Destroy;override;
property TrayBarHandle: THandle read FTrayBarHandle;//托盘区句柄
property TaskBarHandle: THandle read FTaskBarHandle;//任务栏句柄
property StartBtnHandle: THandle read FStartBtnHandle;//开始按扭句柄
property QuitLauchHandle: THandle read FQuitLauchHandle;//快速启动栏句柄
property ImeRecHandle: THandle read FImeRecHandle;//输入法选择区域句柄
property ProgramToolBarHandle: THandle read FProgramToolBarHandle;//程序最小化按扭容器
property HideTrayBtnHandle: THandle read FHideTrayBtnHandle;//显示隐藏图标的按扭
property ClockHandle: THandle read FClockHandle;//时钟显示区域句柄
procedure SetTimeDlg; //设置时间对话框
procedure HideTrayBtnClick; //显示隐藏按扭单击
procedure ImeRectBtnClick;//输入法按扭单击
procedure ClearTrayBtnList; //清除托盘区列表
procedure ClearTaskBtnList;
procedure ShowTime;
procedure StartBtnClick;
procedure HideOn;
procedure ShowOn;
propertyTrayBarVisible: boolean read FTrayBarVisible write SetTrayBarVisible;
propertyImeBarVisible: boolean read FImeBarVisible write SetImeBarVisible;
propertyStartBtnVisible: boolean read FStartBtnVisible write SetStartBtnVisible;
propertyReBarVisible: boolean read FRegBarVisible write SetReBaVisible;
propertyTaskToolBarVisible: boolean read FTaskToolBarVisible write SetTaskToolBarVisible;
propertyTaskBarVisible: boolean read FTaskBarVisible write SetTaskBarVisible;
propertyquickBarVisible: boolean read FquickBarVisible write SetquickBarVisible;
propertyVisible: boolean read FVisible write SetVisible; //是否隐藏任务栏
propertyShowHideBtn: boolean read FShowHideBtn Write SetShowHideBtn;//是否显示系统隐藏的托盘按扭
propertyTrayBtnCount: integer read GetTrayBtnCount;//托盘图标的个数
propertyTaskBtnCount: integer Read GetTaskBtnCount;
propertyTrayBtnList: TStringList read FTrayBtnList;
propertyTaskBtnList: TStringList Read FTaskBtnList;
propertyTrayBtns: TSysToolbarBtn read GetTrayBtns; //托盘按扭
PropertyTaskBtns: TSysToolbarBtn read GetTaskBtns; //任务栏按扭
end;
implementation
{ TSysTaskbarOperate }
procedure TSysTaskBarOperate.ClearTaskBtnList;
begin
while FTaskBtnList.Count > 0 do
begin
FTaskBtnList.Objects.Free;
FTaskBtnList.Delete(FTaskBtnList.Count - 1);
end;
end;
procedure TSysTaskBarOperate.ClearTrayBtnList;
begin
while FTrayBtnList.Count > 0 do
begin
FTrayBtnList.Objects.Free;
FTrayBtnList.Delete(FTrayBtnList.Count - 1);
end;
end;
constructor TSysTaskbarOperate.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FTrayBtnList := TStringList.Create;
FTaskBtnList := TStringList.Create;
HigherThenXp := (Win32MajorVersion > 5) or ((Win32MajorVersion = 5) and (Win32MinorVersion > 0));
FTaskBarHandle := FindWindow('Shell_TrayWnd',nil);
FStartBtnHandle := FindWindowEx(FTaskBarHandle,0,'Button',nil);
//if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 10)then //98系统
FReBarHandle:= FindWindowEx(FTaskBarHandle,0,'ReBarWindow32',nil);
FQuitLauchHandle := FReBarHandle;
FProgramContrainerHandle := FindWindowEx(FQuitLauchHandle,0,'MSTaskSwWClass',nil);
FImeRecHandle := FindWindowEx(FQuitLauchHandle,0,'CiceroUIWndFrame',nil);
if HigherThenXp then
FProgramToolBarHandle := FindWindowEx(FProgramContrainerHandle,0,'ToolbarWindow32',nil)
else FProgramToolBarHandle := FProgramContrainerHandle;
FTrayBarHandle := FindWindowEx(FTaskBarHandle,0,'TrayNotifyWnd',nil);
FTrayNotifyHandle := FTrayBarHandle;
FClockHandle := FindWindowEx(FTrayBarHandle,0,'TrayClockWClass',nil);
FHideTrayBtnHandle := FindWindowEx(FTrayBarHandle,0,'Button',nil);
if HigherThenXp then
FTrayBarHandle := FindWindowEx(FTrayBarHandle,0,'SysPager',nil);
if (Win32MajorVersion = 5) and (Win32MinorVersion >= 0) then
FTrayBarHandle := FindWindowEx(FTrayBarHandle,0,'ToolbarWindow32',nil);
FQuitLauchHandle := FindWindowEx(FQuitLauchHandle,0,'ToolbarWindow32',nil);//快速启动栏
//SetWindowLong(FStartBtnHandle, GWL_WNDPROC, Longint(MakeObjectInstance(StartBtnWndProc)));
GetIconList;
GetTaskList;
Visible := true;
ReBarVisible := true;
TaskBarVisible := true;
quickBarVisible := true;
TaskToolBarVisible := true;
StartBtnVisible := true;
TrayBarVisible := true;
ImeBarVisible := true;
end;
destructor TSysTaskbarOperate.Destroy;
begin
ClearTrayBtnList;
FTrayBtnList.Free;
ClearTaskBtnList;
FTaskBtnList.Free;
inherited;
end;
procedure TSysTaskBarOperate.GetIconList;
var
ThreadID: THandle;
ThreadHandle: THandle; //线程句柄
Buff: pchar;
i,BtnCount: integer;
R: Cardinal;
BtnInfo: TTBButton;
SysHide: boolean;
SysToolBtn: TSysToolbarBtn;
S: array of char;
BtnRect: TRect;
begin
GetWindowThreadProcessId(FTrayBarHandle, @ThreadID);//获取托盘窗口的线程 ID
ThreadHandle := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, ThreadID);//得到线程句柄
Buff := VirtualAllocEx(ThreadHandle,nil,4096,MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE);//指定进程的虚拟空间保留或提交内存区域，除非指定MEM_RESET参数，否则将该内存区域置0
BtnCount := SendMessage(FTrayBarHandle,TB_BUTTONCOUNT, 0, 0);//得到托盘按扭个数
//SendMessage(FTrayBarHandle,TB_GETIMAGELIST,0,0);
//SendMessage(FTrayBarHandle,TB_GETBITMAPFLAGS,0,0);
try
for i := 0 to BtnCount - 1 do
begin
WriteProcessMemory(ThreadHandle, Buff, @BtnInfo, SizeOf(BtnInfo), R);
SendMessage(FTrayBarHandle, TB_GETBUTTON, i,integer(Buff));
ReadProcessMemory(ThreadHandle, Buff, @BtnInfo, SizeOf(BtnInfo), R);
SysHide := IsSysBtnHide(BtnInfo.fsState);
if SysHide and (not FShowHideBtn) then
Continue;
SysToolBtn := TSysToolbarBtn.Create;
SysToolBtn.SysHide := SysHide;
SysToolBtn.FVisible := not SysHide;
SysToolBtn.AssignBtnInfo(BtnInfo);
//SysToolBtn.FPicture.Canvas
SysToolBtn.FBtnIndex := BtnInfo.idCommand;
SendMessage(FTrayBarHandle,TB_GETBUTTONTEXT,SysToolBtn.FBtnInfo.idCommand,integer(integer(@Buff) + SizeOf(@SysToolBtn.FBtnInfo)));
ReadProcessMemory(ThreadHandle, Pointer(integer(@Buff) + SizeOf(@SysToolBtn.FBtnInfo)),@S,SizeOf(S), R);
//if SysToolBtn.FBtnInfo.fsState = 12 then
SysToolBtn.FBtnCaption := String(s);
SysToolBtn.EventHandle := FTrayBarHandle;
if not SysHide then
begin
SendMessage(FTrayBarHandle,TB_GETRECT,BtnInfo.idCommand,integer(integer(@Buff) + SizeOf(BtnInfo)));
ReadProcessMemory(ThreadHandle,Pointer(integer(@Buff) + SizeOf(BtnInfo)), @BtnRect,SizeOf(BtnRect),R);//得到Rect信息
SysToolBtn.FBtnRect := BtnRect;
SysToolBtn.FPicture.Width := BtnRect.Right - BtnRect.Left;
SysToolBtn.FPicture.Height := BtnRect.Bottom - BtnRect.Top;
BitBlt(SysToolBtn.FPicture.Canvas.Handle,0,0,SysToolBtn.FPicture.Width,SysToolBtn.FPicture.Height,
GetDc(FTrayBarHandle),BtnRect.Left,BtnRect.Top,SRCCOPY); //抓图
end;
FTrayBtnList.AddObject(SysToolBtn.FBtnCaption,SysToolBtn);
{if BtnInfo.fsState <> TBSTATE_HIDDEN then //如果是隐藏的，则不显示出来
begin
//FTrayBtnList.Add(s)
end;}
end;
finally
VirtualFreeEx(ThreadHandle, Buff, 0, MEM_RELEASE);
CloseHandle(ThreadHandle);
end;
end;
function TSysTaskBarOperate.GetTaskBtnCount: integer;
begin
result := FTaskBtnList.Count;
end;
function TSysTaskBarOperate.GetTaskBtns(Index: integer): TSysToolbarBtn;
begin
if (Index > -1 ) and (Index < FTaskBtnList.Count) then
result := TSysToolbarBtn(FTaskBtnList.Objects)
else result := nil;
end;
procedure TSysTaskBarOperate.GetTaskList;
var
i,BtnCount: integer;
ThreadId: LongInt;
ThreadHandle: THandle;
vBuffer: array of Char;
SysToolBtn: TSysToolbarBtn;
BtnInfo: TTBButton;
Buff: pointer;
BtnRect: TRect;
WriteNum: Cardinal;
SysHide: boolean;
begin
BtnCount := SendMessage(FProgramToolBarHandle, TB_BUTTONCOUNT,0,0);
GetWindowThreadProcessId(FProgramToolBarHandle,@ThreadId);
ThreadHandle := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
PROCESS_VM_WRITE, False, ThreadId);
Buff := VirtualAllocEx(ThreadHandle, nil,4096, MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE);
try
for i := 0 to BtnCount - 1 do
begin
WriteProcessMemory(ThreadHandle,Buff,@BtnInfo,Sizeof(BtnInfo),WriteNum);
SendMessage(FProgramToolBarHandle,TB_GETBUTTON, i,integer(Buff));
ReadProcessMemory(ThreadHandle, Buff, @BtnInfo, SizeOf(BtnInfo), WriteNum);
SendMessage(FProgramToolBarHandle,TB_GETRECT,BtnInfo.idCommand,integer(integer(Buff) + SizeOf(BtnInfo)));
ReadProcessMemory(ThreadHandle,Pointer(integer(Buff) + SizeOf(BtnInfo)), @BtnRect,SizeOf(BtnRect),WriteNum);//得到Rect信息
SysHide := (BtnRect.Right - BtnRect.Left = 0) and (BtnRect.Bottom - BtnRect.Top= 0);
SysHide := IsSysBtnHide(BtnInfo.fsState) or SysHide;
if SysHide and (not FShowHideBtn) then
Continue;
SysToolBtn := TSysToolbarBtn.Create;
SysToolBtn.SysHide := SysHide;
SysToolBtn.FVisible := not SysHide;
SysToolBtn.AssignBtnInfo(BtnInfo);
//SysToolBtn.FPicture.Canvas
SysToolBtn.FBtnIndex := BtnInfo.idCommand;
SendMessage(FProgramToolBarHandle,TB_GETBUTTONTEXT,SysToolBtn.FBtnInfo.idCommand,integer(integer(Buff) + SizeOf(@SysToolBtn.FBtnInfo)));
ReadProcessMemory(ThreadHandle, Pointer(integer(Buff) + SizeOf(@SysToolBtn.FBtnInfo)),@VBuffer,SizeOf(VBuffer), WriteNum);
SysToolBtn.FBtnCaption := String(VBuffer);
SysToolBtn.EventHandle := FProgramToolBarHandle;
SysToolBtn.FBtnRect := BtnRect;
FTaskBtnList.AddObject(SysToolBtn.FBtnCaption,SysToolBtn);
end;
finally
VirtualFreeEx(ThreadHandle, Buff,0, MEM_RELEASE);
CloseHandle(ThreadHandle);
end;
end;
function TSysTaskBarOperate.GetTrayBtnCount: integer;
begin
result := FTrayBtnList.Count;
end;
function TSysTaskBarOperate.GetTrayBtns(Index: integer): TSysToolbarBtn;
begin
if (Index > -1 ) and (Index < FTrayBtnList.Count) then
result := TSysToolbarBtn(FTrayBtnList.Objects)
else result := nil;
end;
procedure TSysTaskBarOperate.HideTrayBtnClick;
begin
PostMessage(FHideTrayBtnHandle,WM_LButtonDown,0,0);
PostMessage(FHideTrayBtnHandle,WM_LButtonUp,0,0);
end;
procedure TSysTaskBarOperate.ImeRectBtnClick;
begin
PostMessage(FImeRecHandle,WM_LButtonDown,0,MakeLParam(4,5));
PostMessage(FImeRecHandle,WM_LButtonUp,0,MakeLParam(4,5));
end;
function TSysTaskBarOperate.IsSysBtnHide(BtnState: Dword): boolean;
begin
result := GetBitNum(4,BtnState) = 1;
end;
procedure TSysTaskBarOperate.SetReBaVisible(const Value: boolean);
begin
if (FRegBarVisible <> Value) and Visible then
begin
FRegBarVisible := Value;
if Value then
ShowWindow(FReBarHandle,SW_Normal)
else
ShowWindow(FReBarHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.SetquickBarVisible(const Value: boolean);
begin
if (FquickBarVisible <> Value) and TaskBarVisible then
begin
FquickBarVisible := Value;
if Value then
ShowWindow(FQuitLauchHandle,SW_Normal)
else
ShowWindow(FQuitLauchHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.SetShowHideBtn(const Value: boolean);
begin
if FShowHideBtn <> Value then
begin
FShowHideBtn := Value;
ClearTrayBtnList;
GetIconList;
ClearTaskBtnList;
GetTaskList;
end;
end;
procedure TSysTaskBarOperate.SetTaskBarVisible(const Value: boolean);
begin
if (FTaskBarVisible <> Value) and FRegBarVisible then
begin
FTaskBarVisible := Value;
if Value then
ShowWindow(FProgramContrainerHandle,SW_Normal)
else
ShowWindow(FProgramContrainerHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.SetTaskToolBarVisible(const Value: boolean);
begin
if (FTaskToolBarVisible <> Value) and (FTaskBarVisible) then
begin
FTaskToolBarVisible := Value;
if Value then
ShowWindow(FProgramToolBarHandle,SW_Normal)
else
ShowWindow(FProgramToolBarHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.SetTimeDlg;
begin
winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);
// SendMessage(FClockHandle, WM_LBUTTONDBLCLK,0,MakeLong(2,2));
// SendMessage(FClockHandle,WM_LBUTTONUP,0,MakeLong(2,2));
end;
procedure TSysTaskBarOperate.SetVisible(const Value: boolean);
begin
if FVisible <> Value then
begin
FVisible := Value;
if FVisible then
ShowWindow(FTaskBarHandle,SW_NORMAL)
else
ShowWindow(FTaskBarHandle,SW_HIDE);
end;
end;
procedure TSysTaskBarOperate.ShowTime;
begin
AddTipTool({FClockHandle}FProgramToolBarHandle,1,pchar('时间显示'), PChar(DateToStr(now)),$00FFBFBF,$00A60053);//添加气泡提示
end;
procedure TSysTaskBarOperate.StartBtnClick;
begin
SendMessage(self.FStartBtnHandle,WM_LBUTTONDOWN,0,0);
SendMessage(self.FStartBtnHandle,WM_LBUTTONUP,0,0);
end;
procedure TSysTaskBarOperate.StartBtnWndProc(var Message: TMessage);
begin
if Message.Msg = WM_LButtonup then
ShowMessage('sdf');
end;
procedure TSysTaskBarOperate.SetStartBtnVisible(const Value: boolean);
begin
if (FStartBtnVisible <> Value) and Visible then
begin
FStartBtnVisible := Value;
if Value then
ShowWindow(FStartBtnHandle,SW_Normal)
else
ShowWindow(FStartBtnHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.SetImeBarVisible(const Value: boolean);
begin
if (FImeBarVisible <> Value) and FRegBarVisible then
begin
FImeBarVisible := Value;
if Value then
ShowWindow(FImeRecHandle,SW_Normal)
else
ShowWindow(FImeRecHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.SetTrayBarVisible(const Value: boolean);
begin
if (FTrayBarVisible <> Value) and FVisible then
begin
FTrayBarVisible := Value;
if Value then
ShowWindow(FTrayNotifyHandle,SW_Normal)
else
ShowWindow(FTrayNotifyHandle,SW_Hide);
end;
end;
procedure TSysTaskBarOperate.HideOn;
begin
ReBarVisible := false;
TrayBarVisible := false;
StartBtnVisible := false;
end;
procedure TSysTaskBarOperate.ShowOn;
begin
ReBarVisible := true;
TaskBarVisible := true;
quickBarVisible := true;
TaskToolBarVisible := true;
StartBtnVisible := true;
TrayBarVisible := true;
ImeBarVisible := true;
end;
{ TSysToolbarBtn }
procedure TSysToolbarBtn.AssignBtnInfo(Info: TTBButton);
begin
FBtnInfo.iBitmap := Info.iBitmap;
FBtnInfo.idCommand := Info.idCommand;
FBtnInfo.fsState := Info.fsState;
FBtnInfo.fsStyle := Info.fsStyle;
FBtnInfo.bReserved := Info.bReserved;
FBtnInfo.dwData := Info.dwData;
FBtnInfo.iString := Info.iString;
end;
procedure TSysToolbarBtn.Click;
begin
SendMessage(EventHandle,WM_LBUTTONDOWN,0,MakeLong(FBtnRect.Left + 2,FBtnRect.Top + 2));
SendMessage(EventHandle,WM_LBUTTONUP,0,MakeLong(FBtnRect.Left + 2,FBtnRect.Top + 2));
end;
constructor TSysToolbarBtn.Create;
begin
Inherited Create;
FillChar(FBtnInfo,SizeOf(FBtnInfo), 0);
FPicture := TBitMap.Create;
end;
procedure TSysToolbarBtn.DbClick;
begin
SendMessage(EventHandle, WM_LBUTTONDBLCLK,0,MakeLong(FBtnRect.Left + 2,FBtnRect.Top + 2));
SendMessage(EventHandle,WM_LBUTTONUP,0,MakeLong(FBtnRect.Left + 2,FBtnRect.Top + 2));
end;
destructor TSysToolbarBtn.Destroy;
begin
FPicture.Free;
if (not isSysHide) and (not FVisible) then
Visible := true
else if IsSysHide and FVisible then
Visible := false;
ZeroMemory(Pointer(@FBtnInfo),Sizeof(FBtnInfo));
inherited;
end;
function TSysToolbarBtn.GetBtnInfo: TTBButton;
begin
result := FBtnInfo;
end;
procedure TSysToolbarBtn.RClick;
begin
SendMessage(EventHandle,WM_RBUTTONDOWN,0,MakeLong(FBtnRect.Left + 2,FBtnRect.Top + 2));
SendMessage(EventHandle,WM_RBUTTONUP,0,MakeLong(FBtnRect.Left + 2,FBtnRect.Top + 2));
end;
procedure TSysToolbarBtn.SetVisible(const Value: boolean);
begin
if FVisible <> Value then
begin
FVisible := Value;
if FVisible then
SendMessage(EventHandle,TB_HIDEBUTTON,BtnInfo.idCommand,0)
else
SendMessage(EventHandle,TB_HIDEBUTTON,BtnInfo.idCommand,1);
end;
end;
end.
使用Demo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzButton, StdCtrls, RzLstBox, ExtCtrls, RzPanel, ToolWin,
ComCtrls,WindowsOperate, RzChkLst, RzRadChk, RzLabel, RzTabs;
type
TForm1 = class(TForm)
RzPageControl1: TRzPageControl;
TabSheet1: TRzTabSheet;
RzCheckList1: TRzCheckList;
RzLabel1: TRzLabel;
RzRadioButton1: TRzRadioButton;
RzRadioButton2: TRzRadioButton;
TabSheet2: TRzTabSheet;
Image2: TImage;
RzLabel2: TRzLabel;
RzCheckList2: TRzCheckList;
RzLabel3: TRzLabel;
RzRadioButton4: TRzRadioButton;
RzRadioButton3: TRzRadioButton;
RzButton1: TRzButton;
procedure FormCreate(Sender: TObject);
procedure RzCheckList1Change(Sender: TObject; Index: Integer;
NewState: TCheckBoxState);
procedure RzRadioButton1Click(Sender: TObject);
procedure RzCheckList1Click(Sender: TObject);
procedure RzButton2Click(Sender: TObject);
procedure RzRadioButton3Click(Sender: TObject);
procedure RzCheckList2Change(Sender: TObject; Index: Integer;
NewState: TCheckBoxState);
procedure RzCheckList2DblClick(Sender: TObject);
procedure RzButton1Click(Sender: TObject);
procedure RzCheckList1DblClick(Sender: TObject);
private
{ Private declarations }
OldProc:FARPROC;
procedure StartBtnWndProc(var Message: TMessage);
procedure ReSetList(ShowHideBtn: boolean=false);
public
{ Public declarations }
nn: TSysTaskBarOperate;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses CommCtrl,ShellApi;
procedure TForm1.FormCreate(Sender: TObject);
begin
nn := TSysTaskBarOperate.Create(self);
RzRadioButton2.Checked := true;
RzRadioButton3.Checked := true;
end;
procedure TForm1.StartBtnWndProc(var Message: TMessage);
begin
end;
procedure TForm1.RzCheckList1Change(Sender: TObject; Index: Integer;
NewState: TCheckBoxState);
begin
if NewState = CbChecked then
TSysToolbarBtn(nn.TrayBtnList.Objects).Visible := true
else
TSysToolbarBtn(nn.TrayBtnList.Objects).Visible := false;
nn.HideTrayBtnClick;
end;
procedure TForm1.RzRadioButton1Click(Sender: TObject);
begin
ReSetList(not RzRadioButton2.Checked);
RzRadioButton3.Checked := RzRadioButton2.Checked;
RzRadioButton4.Checked := RzRadioButton1.Checked;
end;
procedure TForm1.ReSetList(ShowHideBtn: boolean);
var
i: integer;
begin
nn.ShowHideBtn := ShowHideBtn;
self.RzCheckList1.Items := nn.TrayBtnList;
self.RzCheckList2.Items := nn.TaskBtnList;
for i := 0 to RzCheckList1.Items.Count - 1 do
RzCheckList1.ItemChecked := not TSysToolbarBtn(nn.TrayBtnList.Objects).isSysHide;
for i := 0 to RzCheckList2.Items.Count - 1 do
RzCheckList2.ItemChecked := not nn.TaskBtns.isSysHide
end;
procedure TForm1.RzCheckList1Click(Sender: TObject);
begin
if RzCheckList1.ItemIndex <> -1 then
begin
Image2.Width := nn.TrayBtns.Picture.Width;
Image2.Height := nn.TrayBtns.Picture.Height;
Image2.Picture.Assign(nn.TrayBtns.Picture);
end;
end;
procedure TForm1.RzCheckList1DblClick(Sender: TObject);
begin
if RzCheckList1.ItemIndex <> -1 then
nn.TrayBtns.Click;
end;
procedure TForm1.RzButton2Click(Sender: TObject);
begin
nn.TrayBtns.DbClick
end;
procedure TForm1.RzRadioButton3Click(Sender: TObject);
begin
RzRadioButton2.Checked := RzRadioButton3.Checked;
RzRadioButton1.Checked := RzRadioButton4.Checked;
end;
procedure TForm1.RzCheckList2Change(Sender: TObject; Index: Integer;
NewState: TCheckBoxState);
begin
if NewState = CbChecked then
nn.TaskBtns.Visible := true
else
nn.TaskBtns.Visible := false;
end;
procedure TForm1.RzCheckList2DblClick(Sender: TObject);
begin
if RzCheckList2.ItemIndex <> -1 then
nn.TaskBtns.Click;
end;
procedure TForm1.RzButton1Click(Sender: TObject);
begin
nn.HideOn;
end;
end.
[ 本帖最后由 suiyunonghen 于 2008-6-27 11:41 编辑 ] /:QQ2 新手刚学看不明白 本人学delphi还不久，学习了
页:
[1]