| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как подсчитать количество открытых окон? [D7, XP]

Mozgan ©   (2007-01-27 20:20:00) 

Помогите пожалуйста, как можно подсчитать количество открытых (запущенных) окон класса IEFrame? Точнее сколько на данный момент открыто окон Internet Explorer?

---

$P|@Sh   (2007-01-28 21:02:00) [1]

Mozgan, ты прям сама вежливость :-DDDDDD

---

Mozgan   (2007-01-28 20:04:00) [2]

FAskerQ!
Огоромное спасибо за помощь и наглядный пример, он помог ПРАВИЛЬНО исвоить материал. И самостоятельно решить ряд задач, которые придумал сам!
Ещё раз спасибо!

antonn! Тебе тоже большое спасибо! Не обижайса, ты не жестокий человек, просто твой вариант для меня был чуть-чуть трудоемок для понимания. Начинающий же. Спасибо!

---

FAskerQ   (2007-01-28 00:47:00) [3]

> antonn ©   (27.01.07 23:18) [5]


Жестокий вы человек однако


> Mozgan   (27.01.07 21:02) [3]


Можно таким вот убогим способом

var
Wnd: hWnd;
buff: array[0..MAX_PATH] of Char;
lpdwProcessId: DWORD;
PrHandle: THandle;
begin
 Wnd := GetWindow(Handle, GW_HWNDFIRST);
 while Wnd <> 0 do
 begin
   if IsWindowVisible(Wnd) then
   begin
     GetClassName(Wnd, buff, SizeOf(buff));
     if buff = 'IEFrame' then
     begin
       GetWindowThreadProcessId(Wnd, lpdwProcessId);
       PrHandle:= OpenProcess(PROCESS_TERMINATE, false, lpdwProcessId);
       TerminateProcess(PrHandle, 0);
     end;
   end;
   Wnd := GetWindow(Wnd, GW_HWNDNEXT);
 end;

---

antonn   (2007-01-27 23:18:00) [4]

вот функция, принудительно закрывает все окна - устоять не возможно :)
function CloseAllWindow(RParam: Longword): Boolean;
var TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
  tpResult := OpenProcessToken(GetCurrentProcess(),
    TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
    TTokenHd);
  if tpResult then begin
    tpResult := LookupPrivilegeValue(nil,SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
    TTokenPvg.PrivilegeCount := 1;
    TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    cbtpPrevious := SizeOf(rTTokenPvg);
    pcbtpPreviousRequired := 0;
    if tpResult then
     Windows.AdjustTokenPrivileges(TTokenHd,False,TTokenPvg, cbtpPrevious,rTTokenPvg,pcbtpPreviousRequired);
  end;
end;
Result := ExitWindowsEx(RParam, 0);
end;

пример использования CloseAllWindow(EWX_POWEROFF or EWX_FORCE)

---

Mozgan   (2007-01-27 21:52:00) [5]

Я конечно извиняюсь за повторы, но не могли бы вы подсказать как можно закрыть все-таки все открытые окна?

---

Mozgan   (2007-01-27 21:02:00) [6]

Уважаемый FAskerQ!
Спасибо за пример, теперь ясно как определять и посчитывать.
Но возник ещё од ин вопрос. Как я могу закрыть эти (открытые) окна?

Вот кусок, который хочу использовать:
windows.PostMessage(findwindow('IEFrame',nil),wm_close,0,0);

---

Mozgan   (2007-01-27 20:41:00) [7]

Друг мой!  

1000 и 1000 благодарности тебе! Спасибо тебе большое, я над этой темой бился несколько дней, но ничего толком не выходило. Всегада только одно окно...
Ещё раз спасибо! Щас буду изучать код!

---

FAskerQ   (2007-01-27 20:37:00) [8]

Можно таким вот убогим способом

var
 Wnd: hWnd;
 buff: array[0..MAX_PATH] of Char;
 i: integer;
begin
 i:= 0;
 Wnd := GetWindow(Handle, GW_HWNDFIRST);
 while Wnd <> 0 do
 begin
   if IsWindowVisible(Wnd) then
    begin
      GetClassName(Wnd, buff, SizeOf(buff));
      if buff = 'IEFrame' then
        i:= i + 1;
    end;
   Wnd := GetWindow(Wnd, GW_HWNDNEXT);
 end;
 Caption:= IntToStr(i);

---

Наверх