안녕하세요. ^^;

WM_SYSCOMMAND메세지에 WParam값을 $FFF0값을 and연산한값이 SC_MINIMIZE일때.. 최소화 될때.. 날아오는 메세지 값이거든요.

프로그램이 최소활때..
TApplication객체에서는 위에 메세지값이 날아오면.. OnMinimize에 이벤트가 있을때 처리를 합니다.


type
  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure DoMinimize(Sender: TObject);
  public

  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := DoMinimize;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Application.OnMinimize := nil;
end;

procedure TMainForm.DoMinimize(Sender: TObject);
begin
  //최소화 되었을때 처리..
end;

end.

폼이 최소될때는
procedure TMainForm.WMSysCommand(var Message: TWMSysCommand);
begin
  with Message.CmdType and $FFF0 = SC_MINIMIZE) then
    //최소화 이벤트 처리
end;



그럼..20000.