[R.M.V.D]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

скрыть:

Код:

1 2 3 4 5 6 7 8 9

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;

показать:

Код:

1 2 3 4 5 6 7 8 9

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;