Q&A

  • ShowWindow에 대한 질문입니다.
ShowWindow 함수를 사용하여 메모장이라던지 익스플로어 화면은 안보이게 할수 있는데
델파이 프로그램같은경우는 완전히 안보이게 할수가 없어요... ㅜㅜ
가능한 방법이 있을까요?

<!--CodeS-->
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   wnd : LongWord;
begin
     wnd := FindWindow(nil,'Project1 - Turbo Delphi - Unit1');

     if IsWindowVisible(wnd) then begin
        ShowWindow(wnd,SW_HIDE);
     end
     else begin
        ShowWindow(wnd,SW_SHOW);
     end;
end;
<!--CodeE-->

감사합니다.
2  COMMENTS
  • Profile
    김재철 2007.12.20 18:23
    델파이 프로그램에서는 테스크바에 표시되는 부분이 TApplication입니다.
    wndOwner := GetWindow(wnd, GW_OWNER);
    이런식으로 소유자 윈도우를 얻으면 TApplication의 핸들이 구해집니다.
    마찬가지로 ShowWindow 함수를 이용해서 숨기거나 보이거나 하면 됩니다.

    ※ 윈도우 핸들은 LongWord 대신에 HWND로 선언해주세요 ^^;;

  • Profile
    최양효 2007.12.20 21:40