[eXplorer]

Код:

function EnumMiniProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!!
Begin
If Wd<>Form1.Handle then
If IsWindowVisible(WD) then
If not IsIconic(WD) then
If isWindow(WD) then
ShowWindow(WD, SW_hide);
EnumMiniProc:= TRUE;
end;

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

скрываю все видимые окна..

делаю тоже самое чтобы показать окна...

Код:

function EnumMaxProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!!
Begin
If Wd<>Form1.Handle then
If IsWindowVisible(WD) then
If not IsIconic(WD) then
If isWindow(WD) then
ShowWindow(WD, SW_hide);
EnummaxProc:= TRUE;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EnumWindows (@EnumMaxProc, 0);
end;

(((показывает все окна даже которые небыли видны до скрытия окн...
выводит все окна... как сделать чтобы показать окна которые были видны до их скрытия... а остальные не трогать