안녕 하세요?

BacTeria 박종민 입니다.

Modal 폼의 활성화 여부라... 윈도우의 스타일에 관한 질문이신 것 같은데요.

이것은 GetWindowLong() API로 해결할 수 있습니다.

사용법은 다음과 같습니다.

------------------------------------------------------------------------------

procedure TForm1.Timer1Timer(Sender: TObject);
var
  GetHandle: LongInt;
  H: THandle;
begin
  H := FindWindow(nil, '제목없음 - 데이타맨 편집기 98');

  GetHandle := GetWindowLong(H, GWL_STYLE);

  if (GetHandle and WS_MAXIMIZE) = WS_MAXIMIZE then Caption := 'Maximize!';
  if (GetHandle and WS_MINIMIZE) = WS_MINIMIZE then Caption := 'Minimize!';
end;

------------------------------------------------------------------------------

여기서 H는 얻고자 하는 윈도우의 핸들이구요.

WS_MAXIMIZE, WS_MINIZE 등의 모든 윈도우 스타일 관련 상수가 쓰일 수 있습니다.

위의 소스는 "새롬 데이타맨 편집기"의 최대, 최소 여부를 얻어내는군요.

이만... 청주에서 박종민.