通过HOOK来实现隐藏任务栏

首先HOOK就需要创建一个DLL，这个我就不讲了

例如我们创建的DLL叫：HIDEWINDOWBAR

我们再定义一个全局的 句柄：HKHandle :HHOOK;

还有一个结构体

type
PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
KBDLLHOOKSTRUCT = record
vkCode: DWORD;
ScanCode: DWORD;
Flags: DWORD;
Time: DWORD;
dwExtraInfo: DWORD;
end;



然后开始写代码

首先一个函数是隐藏任务栏

function YCRWL( yc:Boolean): Boolean;stdcall; //隐藏-显示任务条

var
h:THandle;
begin
if yc = True then
begin
h:=FindWindow('Shell_TrayWnd',nil);
ShowWindow(h,SW_hide); //隐藏任务条
end else
begin
h:=FindWindow('Shell_TrayWnd',nil);
ShowWindow(h,SW_SHOW); //显示任务条
end;
Result:=true;
end;



下面是定义的两个对外导出的函数

1：function Enablehidewindowsbar:Boolean;stdcall;export; //外部调用

begin
if hHk = 0 then
begin
hHk := SetWindowsHookEx(13,@keyHookProc,HInstance,0);
Result := True;
end
else
Result := False;
ycxsks(true);
end;

2:function disEnablehidewindowsbar:Boolean; stdcall; export; //外部调用

begin
if hHk <> 0 then
begin
UnHookWindowsHookEx(hHk);
hHk := 0;
Result := True;
end
else
Result := False;
ycxsks(False);

end;

exports

Enablehidewindowsbar, disEnablehidewindowsbar;



下面是HOOK函数

主要是现实了都按键的控制



function keyHookProc(nCode: Integer;WParam: WPARAM;LParam: LPARAM): LRESULT;stdcall;
//调用键盘钩子，屏蔽左右win功能键
var
p: PKBDLLHOOKSTRUCT;
y: integer;
begin
if nCode<0 then
Result:= CallNextHookEx(hHk,nCode,WParam,LParam)
else
begin
y := 0;
case WParam of
WM_KEYDOWN,WM_SYSKEYDOWN: //按键后判断所按键
begin
p:=PKBDLLHOOKSTRUCT(Lparam);
if p^.vkCode = VK_LWIN then
y := 1;
if p^.vkCode = VK_RWIN then
y := 1;
end;
WM_KEYUP,WM_SYSKEYUP: //松开按键后判断所按键
begin
p:=PKBDLLHOOKSTRUCT(Lparam);
if p^.vkCode = VK_LWIN then
y := 1;
if p^.vkCode = VK_RWIN then
y := 1;
end;
end;
if y=1 then
Result:=1 //如果为WIN功能键则屏蔽
else
Result:= CallNextHookEx(hHk,nCode,WParam,LParam); //其他键放下一个钩子
end
end;

有了这些，可以自己拼接成一个单元，这里就不讲了
本文地址：[url]http://www.xszlo.com/article/2012-12-03/7570.html[/url]，转发请保留这个地址，谢谢