Task Bar가 자동 숨김 상태인지는 다음과 같은 함수로 체크할 수 있습니다.
우선 uses 절에
ShellAPI 라는 항목을 추가하시고요.
procedure TForm1.Button1Click(Sender:TObject);
var
TaskBarState : TAppBarData;
TaskState : Boolean;
begin
TaskBarState.cbSize:=SizeOf(TaskBarState);
TaskState:=(ShAppBarMessage(ABM_GETSTATE,TaskBarState) and ABS_AUTOHIDE)>0;
end;
저도 Tip프로그램에 있는 것을 보아서 Return형이 정확이 어떤 형태인지 모르겠습니다.
나름대로 Debugger를 사용해서 살펴보면, ShAppBarMessage(.....)항목에서 자동숨김모드일경우에는 3 아닐경우에는 값이 2가 Return되더군요.
위의 루틴을 사용하셔서, ShowWindow API 함수를 사용하시면 되겠지요...
그럼...
|