unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, 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}
function EnumChildWindowsProc(h: hwnd; lparam: integer): BOOL;
stdcall;
begin
  EnableWindow(h, false);
  Result:= true;
end;

function EnumWindowsProc(h: hwnd; lparam: integer): BOOL;
stdcall;
begin
  if IsWindowVisible(h)
  then EnumChildWindows(h, @EnumChildWindowsProc, lparam);
  Result:= true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc, 0);
end;

end.

Копирайт © 2007, Lanselot. Все права защищены.