Код:
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;
(((показывает все окна даже которые небыли видны до скрытия окн...
выводит все окна... как сделать чтобы показать окна которые были видны до их скрытия... а остальные не трогать
