Minimize semua windows

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   h : HWnd;
begin
     h:=handle;
     while h > 0 do
     begin
          if IsWindowVisible(h) then
             Postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
          h:=GetnextWindow(h,GW_HWNDNEXT);
     end;
end;

Anda Telah Membaca Minimize semua windows

Semoga Artikel Minimize semua windows Bisa Bermanfaat untuk kita semua. Jika Ada Hal yang ingin ditanyakan, Silahkan Komentar atau Hubungi kami via Web Chat yang tersedia