작업표시줄 숨기기와 종료하기

작업표시줄 숨기기 / 보이기

#ads_1

procedure ShowHideTaskbar(bShow: Boolean);

var
  wndHandle: THandle;
  wndClass: array[0..50] of Char;

begin

  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  // taskbar 핸들 얻기

  wndHandle := FindWindow(@wndClass[0], nil);

  if bShow then
    ShowWindow(wndHandle, SW_RESTORE) //보이기
  else
    ShowWindow(wndHandle, SW_HIDE); //숨기기

end;

#ads_2

작업표시줄 종료하기

function ExitExplorer: Boolean;
var
  TrayHandle: HWND;

const  WM_EXITEXPLORER = $5B4;

begin

  Result := False;

  TrayHandle := FindWindow('Shell_TrayWnd', nil);

  if TrayHandle <> 0 then

    Result := PostMessage(TrayHandle, WM_EXITEXPLORER, 0, 0);

end;

#ads_3