Fórum Duvida #209257

procedure TForm1.ButtonKillAllClick(Sender: TObject);
var
   pTask : PTaskEntry;
   Task : Bool;
   ThisTask: THANDLE;
begin
   GetMem (pTask, SizeOf (TTaskEntry));
   pTask^.dwSize := SizeOf (TTaskEntry);
   Task := TaskFirst (pTask);
   while Task do
      begin
      if pTask^.hInst = hInstance then
         ThisTask := pTask^.hTask
      else
         TerminateApp (pTask^.hTask, NO_UAE_BOX);
      Task := TaskNext (pTask);
      end;
   TerminateApp (ThisTask, NO_UAE_BOX);
end;

Function EnumWindowsProc (Wnd: HWND; lb: TStringlist): BOOL; stdcall;
var
   caption: Array [0..128] of Char;
begin
  Result := True;
  if IsWindowVisible(Wnd) and
  ((getWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
  (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow)) and 
  ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
  then
  begin
     SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
     lb.AddObject( caption,TObject( Wnd ));
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  strs:TStringlist;
  i:integer;
  hwnd:Thandle;
begin
  strs:=tstringlist.Create;
  EnumWindows( @EnumWindowsProc, integer(strs));
  for i := 1 to strs.Count-1 do
  begin
    hwnd:=findwindow(nil,pchar(strs.Strings[i]));
    if hwnd <> 0 then
       sendmessage(hwnd,wm_close,0,0);
  end;
end;