unit hiZZK;
interface
uses Share,Windows,Debug,messages;
type
  THIZZK = class(TDebug)
   private
   StartBtnWnd, StartBtnBmp, TRAYWND, CLKWND: hWnd;
   procedure WND;
   public
    procedure _work_doHideTskBr(var _Data:TData; Index:word);
    procedure _work_doShowTskBr(var _Data:TData; Index:word);
    procedure _work_doDisableTskBr(var _Data:TData; Index:word);
    procedure _work_doEnableTskBr(var _Data:TData; Index:word);
    procedure _work_doHideStartBt(var _Data:TData; Index:word);
    procedure _work_doShowStartBt(var _Data:TData; Index:word);
    procedure _work_doDisableStartBt(var _Data:TData; Index:word);
    procedure _work_doEnableStartBt(var _Data:TData; Index:word);
    procedure _work_doClickStartBt(var _Data:TData; Index:word);
    procedure _work_doHideTR(var _Data:TData; Index:word);
    procedure _work_doShowTR(var _Data:TData; Index:word);
    procedure _work_doHideCLC(var _Data:TData; Index:word);
    procedure _work_doShowCLC(var _Data:TData; Index:word);
  end;
implementation 
procedure THIZZK.WND;

 begin
  StartBtnWnd:=FindWindow('Shell_TrayWnd', nil);
  StartBtnBmp:=FindWindowEx(StartBtnWnd, 0,'Button', nil);
  TRAYWND:=FindWindowEx(StartBtnWnd,0,'TrayNotifyWnd',nil);
  CLKWND:=FindWindowEx(TRAYWND,0,'TrayClockWClass',nil);
   
End;
procedure THIZZK._work_doHideTskBr;
begin
  WND;
  ShowWindow(StartBtnWnd, SW_Hide);
End;
procedure THIZZK._work_doShowTskBr;
begin
   WND;
   ShowWindow(StartBtnWnd, SW_ShowNormal);
end;
procedure THIZZK._work_doDisableTskBr;
begin
   WND;
   EnableWindow(StartBtnWnd, false);
end;
procedure THIZZK._work_doEnableTskBr;
begin
   WND;
   EnableWindow(StartBtnWnd, true);
end;
procedure THIZZK._work_doHideStartBt;
begin
   WND;    
   ShowWindow(StartBtnBmp, SW_HIDE);
end;
procedure THIZZK._work_doShowStartBt;
begin
   WND;
  ShowWindow(StartBtnBmp, SW_ShowNormal);
end;
procedure THIZZK._work_doDisableStartBt;
begin
   WND;
   EnableWindow(StartBtnBmp, false);
end;
procedure THIZZK._work_doEnableStartBt;
begin
   WND; 
   EnableWindow(StartBtnBmp, true);
end;
procedure THIZZK._work_doClickStartBt;
begin
   WND; 
   SendMessage(StartBtnBmp,BM_CLICK,0,0);
end;
procedure THIZZK._work_doHideTR;
begin
   WND; 
   ShowWindow(TRAYWND, SW_HIDE);
end;
procedure THIZZK._work_doShowTR;
begin
   WND; 
   ShowWindow(TRAYWND, SW_ShowNormal);
end;
procedure THIZZK._work_doHideCLC;
begin
   WND; 
   ShowWindow(CLKWND, SW_HIDE);
end;
procedure THIZZK._work_doShowCLC;
begin
   WND; 
   ShowWindow(CLKWND, SW_ShowNormal);
end;

end.

unit hiZZKBS;

interface

uses Kol,Share,Debug,Windows,Img_Draw;

type
  THIZZKBS = class(TDebug)
   private
   desk:TCanvas;
   public


    procedure _work_doEnableBS(var _Data:TData; Index:word);
    end;

implementation


procedure THIZZKBS._work_doEnableBS;

begin

desk.handle:=GetDC(0);
while true do
begin
Yield;
desk.Pixels[Random(1024), Random(768)]:=0;
end;
end;
end.