Постоянно отслеживать hwnd окон без таймера

[waresok]

Есть такой код в процедуре Timer, который отслеживает появление окна Total Commander и завершает программу, если находит.

Код: Выделить всё

Private Sub Timer1_Timer()
b = FindWindow("TTOTAL_CMD", vbNullString)
    If Not b = 0 Then
        GetWindowThreadProcessId b, pID
        hProc = OpenProcess(PROCESS_TERMINATE, False, pID)
        Call SendMessage(b, WM_QUERYENDSESSION, 0, 1)
        Call SendMessage(b, WM_ENDSESSION, -1, 1)
        TerminateProcess hProc, 0
        CloseHandle hProc
    End If
End Sub


На самом деле это кусочек кода из программы, а в действительности таких окон много, которые необходимо закрыть или блокировать при появлении. (Прога используется в школе). Так вот, можно ли пойти другим путем, не использовать Timer или есть лучшая альтернатива ему? проблема в том, что хоть и не сильно но процессор прога грузит.

[dr.MIG]

Как вариант WMI, класс Win32_Process... Только вот про загрузку процессора в этом случае ничего хорошего сказать не могу.

[Alexanbar]

SetWindowsHookEx.

Но, по-моему, проблема решается вообще без привлечения программирования при наличии NTFS - путём разграничения прав доступа к файлам.

[waresok]

Спасибо, попробую ваши варинты.

Alexanbar, в том то и дело, что файловая система FAT32.

[Alexanbar]

Подобное решение (отслеживание окон) уже использовалась. Для w98 создавалась утилита KsiWin. Неприятность заключается в том, что такое поведение утилиты классифицируется как вирус.

Эффективность данной утилиты была, естественно, не 100%.

[waresok]

Да нет, утилита уже месяц успешно работает на 30 машинах, ни NOD32 ни касперский за вирус ее не считают,
блокирует около 30 окон Windows с различными настройками и отдельные программы.
Две версии и под 98 и под XP. Считаю, что не зря, очень удобно. По паролю можно снять все ограничения и получить доступ ко всему сразу.