delphi 检查应用程序是否最小化

如果MainFormOnTaskbar为True，则最小化MainForm将最小化“任务栏”的MainForm窗口。在这种情况下，应该检查TForm.WindowState或IsIconic（MainForm.Handle）。

但是，如果MainFormOnTaskbar为False，则最小化MainForm将隐藏MainForm窗口，并将TApplication窗口最小化到任务栏。在这种情况下，应检查IsIconic（Application.Handle）。

代码1：

if WindowState = wsMinimized  then

begin

//do some logging

end;

代码2：

if WinApi.Windows.IsIconic(Application.MainForm.Handle)

then begin

  // Log something

end;

代码3：

TForm1 = class(TForm)

  private

    procedure WMSize(var Msg: TWMSize); message WM_SIZE;

  end;

procedure TForm1.WMSize(var Msg: TWMSize);

begin

   if Msg.SizeType = SIZEICONIC then begin

       // Do something

   end;

end;