Windows 9X에서는 화면 맨 아래에 사용자가 설정할 수있는 작업 표시 줄이 있습니다. 작업 표시 줄을 마우스 오른쪽 버튼으로 클릭하고 속성을 선택하면 팝업 대화 상자에서 설정할 수 있습니다. 그러면 컴파일 된 프로그램에서 작업 표시 줄을 제어하는 방법은 다음과 같습니다.
참고 : 다음 프로그램에서 FindWindow 및 SetWindowpos API 기능을 사용하여 기능의 선언 된 컨텐츠는 Windows.pas 파일에 있습니다.
먼저 새 프로젝트를 작성하고 Button1 (캡션 속성은 숨겨진 작업 표시 줄) 및 Button2 (캡션 속성은 디스플레이 작업 표시 줄입니다)를 기본 Form1에 배치하고 다른 속성은 변경되지 않은 상태로 유지 된 다음 다음 프로그램 코드를 입력하십시오.
단위 스타트 바;
인터페이스
창, 메시지, 시스템, 클래스, 그래픽, 컨트롤, 양식, 대화 상자, stdctrls를 사용합니다.
type tform1 = class (tform)
버튼 1 : tbutton;
버튼 2 : tbutton;
절차 버튼 1Click (sender : tobject);
절차 button2click (sender : tobject);
프로 시저 Formcreate (sender : tobject);
개인 {개인 선언}
공개 {공개 선언}
끝;
var form1 : tform1;
구현 {sr *.dfm}
절차 tform1. formcreate (sender : tobject);
시작하다
ret : = findwindow ( 'shell_traywnd', ');
끝;
절차 tform1.button1click (sender : tobject);
시작하다
setwindowpos (ret, 0, 0, 0, 0, 0, SWP_HideWindow);
끝;
절차 tform1.button2click (sender : tobject);
시작하다
setWindowpos (ret, 0, 0, 0, 0, 0, SWP_SHOWWINDOW);
끝;
끝.
이제 실행할 수 있습니다 (F9를 누르면 Button1을 누르면 작업 표시 줄이 다시 숨겨져 있습니다.
참고 : 위의 프로그램은 Windows 98 및 Delphi4.0 c/s의 중국어 버전으로 디버깅되어 전달되었습니다.