Как подсчитать количество открытых окон?

← →
Mozgan (2007-01-27 20:20) [0]

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

← →
FAskerQ © (2007-01-27 20:37) [1]

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

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);

← →
Mozgan (2007-01-27 20:41) [2]

Друг мой!

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

← →
Mozgan (2007-01-27 21:02) [3]

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

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

← →
Mozgan (2007-01-27 21:52) [4]

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

← →
antonn © (2007-01-27 23:18) [5]

вот функция, принудительно закрывает все окна - устоять не возможно :)
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)

> 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;

← →
Mozgan (2007-01-28 20:04) [7]

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

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

← →
$P|@Sh (2007-01-28 21:02) [8]

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

Как подсчитать количество открытых окон? Найти похожие ветки