library HIDE.doc

library HIDE; //库名uses SysUtils, Classes, windows, messages; //使用的库文件var hHk :HHOOK; //定义钩子变量hHKtype //定义一个钩子结构PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;KBDLLHOOKSTRUCT = recordvkCode: DWORD;ScanCode: DWORD;Flags: DWORD;Time: DWORD;dwExtraInfo: DWORD;end; //定义钩子结构结,有点另人费解.{$R *.res}function ycxsks( yc:Boolean): Boolean;stdcall; //隐藏-显示任务条varh:THandle;//定义一个句柄beginif yc = True thenbeginh:=FindWindow(Shell_TrayWnd,nil);ShowWindow(h,SW_hide); //隐藏任务条endelsebeginh:=FindWindow(Shell_TrayWnd,nil);ShowWindow(h,SW_SHOW); //显示任务条end;Result:=true;end;function keyHookProc(nCod