[R.M.V.D]

Тема на один ответ)
На форуме есть старая тема о том, как скрыть панель задач
Там такой код:

Код:

uses
  ShellAPI,
 
const
  ABM_SETSTATE = $0a;
var
  pData: TAppBarData;
begin
  ZeroMemory(@pData, SizeOf(TAppBarData));
  pData.cbSize:=SizeOf(TAppBarData);
  pData.hWnd:=FindWindow('Shell_TrayWnd', '');
  pData.lParam:=ABS_AUTOHIDE;
  SHAppBarMessage(ABM_SETSTATE, pData);
end;

Админ: Пользуемсе тегами, иначе последуют санкции!

Как его программно отменить?

[M.A.D.M.A.N.]

ShowWindow
ключи SW_SHOW, SW_HIDE

@Админ, одновременно сообщение поправили

[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;