Q&A

  • 작업표시줄 안뜨게 하는 방법 알려주세요.
현재 메인폼을 fsStayOnTop으로 설정하여 작업표시줄을 현재의 윈도우

밑으로 오게하였습니다.

그런데 메인폼에서 다른폼을 생성하고(이것도 fsStayOnTop입니다) 마우스를 아래로

당기면 작업표시줄이 나타납니다.

이것 안나타나게 하는 방법없습니까?



안나타나게 하는 목적은 현재프로그램이외에 다른프로그램을 실행하지 못하게

하려고 합니다.

일단 시작버튼을 없에고 윈도우의 크기를 최대로하고 타이틀바를 없에서

윈도우를 이동 못하게하였으며, Ctrl-Alt-Del 키와 Alt-Tab, Alt-F4를

사용 못하게 하는 것까지는 했는데 작업표시줄은 도저히 제어하는 방법을

찾을 수가 없더군요.



아시는 분 빨리 답변해 주시면 고맙겠습니다.

감사합니다.

이 게시물을
1  COMMENTS
  • Profile
    주경래 • 2000.12.13 07:02
    죄송합니다.

    찾아보니 답이 있었군요.

    작업표시줄을 아예 없에는 방법이 있어 참고했습니다.

    감사합니다.

    참고로 저와 같은 분들을 위해 그 분이 올려주신 내용을

    아래에 적겠습니다.



    // 폼이 생성되면 작업표시줄 감추기

    procedure TfrmDuExMain.FormCreate(Sender: TObject);

    var

    hTaskBar : HWND;

    begin

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

    ShowWindow(hTaskBar, SW_HIDE);

    end;



    // 폼이 클로즈되면 작업표시줄 보이게

    procedure Tform1.FormClose(Sender: TObject;

    var Action: TCloseAction);

    var

    hTaskBar : HWND;

    begin

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

    ShowWindow(hTaskBar, SW_SHOW);

    end;
←First Page
2056 2057 2058 2059 2060 2061 2062 2063 2064 2065
Last Page→
한델 로그인 하기