Task Bar를 숨기고 나타내기 위해서는
findwindow라는 api함수를 사용해서 윈도의 핸들을 얻어낸뒤,
ShowWindows라는 함수를 사용하면 됩니다.
우선 적으로 Task bar를 숨기기 위해서는 다음과 같이 작성을 하면 됩니다.
procedure TForm1.Button1Click(Sender:TObject);
var
hBar : THandle;
begin
hBar:=Findwindow('Shell_TrayWnd',nil);
ShowWindow(hBar,SW_HIDE);
end;
숨겨진 상태의 Task bar를 나타내려면
procedure TForm1.Button2Click(Sender:TObject);
var
hBar : THandle;
begin
hBar:=FindWindow('Shell_TrayWnd',nil);
ShowWindow(hBar,SW_SHOWNORMAL);
end;
|