如何关闭打开的所有窗口？

Question

按CTRL键，用MOUSE左键点所有的窗口，然后点右键，选中“关闭”。。

Answer 1

下面的代码是最小化的，你改一下吧procedure EnumWindowProc(wnd: HWND; lPar: LPARAM); stdcall;
begin
  if IsWindowVisible(wnd) then
    TStringList(lPar).Add(IntToStr(wnd));
end;procedure TForm1.Button1Click(Sender: TObject);
var
  lPar: TStringList;
  i: Integer;
begin
  lPar := TStringList.Create;
  EnumWindows(@EnumWindowProc, LPARAM(lPar));
  for i := 0 to lPar.Count - 1 do
    ShowWindow(StrToInt(lPar[i]), SW_MINIMIZE);
end;