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-->
감사합니다.
wndOwner := GetWindow(wnd, GW_OWNER);
이런식으로 소유자 윈도우를 얻으면 TApplication의 핸들이 구해집니다.
마찬가지로 ShowWindow 함수를 이용해서 숨기거나 보이거나 하면 됩니다.
※ 윈도우 핸들은 LongWord 대신에 HWND로 선언해주세요 ^^;;