[NumLock]

скрыть:

Код:

var
  pData: TAppBarData;
begin
  ZeroMemory(@pData, SizeOf(TAppBarData));
  pData.cbSize:=SizeOf(TAppBarData);
  pData.hWnd:=FindWindow('Shell_TrayWnd', nil); 
  pData.lParam:=ABS_ALWAYSONTOP or ABS_AUTOHIDE;
  SHAppBarMessage(ABM_SETSTATE, pData);
end;

показать:

Код:

var
  pData: TAppBarData;
begin
  ZeroMemory(@pData, SizeOf(TAppBarData));
  pData.cbSize:=SizeOf(TAppBarData);
  pData.hWnd:=FindWindow('Shell_TrayWnd', nil);  
  pData.lParam:=ABS_ALWAYSONTOP;
  SHAppBarMessage(ABM_SETSTATE, pData);
end;