Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Проблемма с окнами   Найти похожие ветки 

 
ZeTToG350   (2010-03-27 21:00) [0]

Привет всем.
Вобщем я пишу как бы защиту для сервера.
Работает она так:
Если запущена игра, то сканируем комп на открытые окна.
Заганяем их в масив, и сверяем со списком окон исключений,
Если не совпадает то закрываем окна.
У меня на компе работает как надо, а вот у людей начинаются приколы:
То с рабочего стола уйдут все ярлыки то ещё что то.
Помогите решить эту проблемму.
Мои соображения: программа закрывает какоето системное окно,
в моей винде это было Program manager, когда его закрывало с рабочего стола слетали ярлыки.

Вот код проги:
Wnd := GetWindow(Handle, gw_HWndFirst);
 while (Wnd <> 0) do begin {Не показываем:}
   if (Wnd <> Application.Handle) and {-Собственное окно}
     IsWindowVisible(Wnd) and {-Невидимые окна}
     (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
     then begin
     GetWindowText(Wnd, buff, sizeof(buff));
// начало списка исключений.
     a:= pos("Opera", buff);
     b:= pos("Winamp", buff);
     c:= pos("qip", buff);
     d:= pos("Окно сообщений", buff);
     e:= pos("Internet Explorer", buff);
     j:= pos("Mozilla Firefox", buff);
     k:= pos("Спокойное общение", buff);
     m:= pos("Skype", buff);
     n:= pos("Infium", buff);
     l:= pos("ICQ", buff);
     if (buff = "Program Manager") or (buff = "Form1")
     or (buff = "Form2")
     or (a <> 0) or (b <> 0) or (c <> 0) or (d <> 0)
     or (e <> 0) or (j <> 0) or (k <> 0) or (m <> 0)
     or (buff = "RocketDock") or (n <> 0) or (l <> 0)
     then
     //нечего не делаем.
     else   //закрываем окна...
     PostMessage(FindWindow(nil, buff), WM_QUIT, 0, 0);
     end;
   Wnd := GetWindow(Wnd, gw_hWndNext);
 end;

согласен, написано немного туповато:)


 
Jeer ©   (2010-03-27 21:54) [1]

Считай, что мы прочитали сценарий RPG - ничего, что немного туповат.


 
Вася   (2010-03-28 10:05) [2]

Чем закрывать все окна кроме списка исключений,
не лучше ли пытаться закрывать окна как раз по списку, а все остальные (про которые ты знать ничего не знаешь) оставить?

ЗЫ. Если бы на моем компьютере какая-то программа что-либо закрыла без моего согласия, это был бы последний день ее работы у меня


 
Anatoly Podgoretsky ©   (2010-03-28 10:38) [3]

> Вася  (28.03.2010 10:05:02)  [2]

Возможно вместе с тобой.


 
[true]TRIx ©   (2010-03-28 14:18) [4]

Приколы будут возникать. Разве ты не знал, что рабочий стол у тебя тоже начинает WM_QUIT

Вобще что ты написал это никак не годится для того что ты делаешь!. Не сделать это так.


 
ZeTToG350   (2010-03-28 14:44) [5]

А сверять по списку тоже не вариант, они название окон сменят и все:)


 
Chirockie   (2010-03-28 22:10) [6]

The FindWindow function retrieves the handle to the top-level window whose class name and window name match the specified strings. This function does not search child windows.

...

Return Values

If the function succeeds, the return value is the handle to the window that has the specified class name and window name.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.

(C) Delphi Help

const
 HWND_DESKTOP = 0;


(C) Borland (Windows.pas)



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.066 c
2-1266225428
oleg1963lora
2010-02-15 12:17
2010.08.27
Работа с датой-временем.


15-1267047005
Юрий
2010-02-25 00:30
2010.08.27
С днем рождения ! 25 февраля 2010 четверг


2-1272796812
Костя
2010-05-02 14:40
2010.08.27
доступ к oracle без графических компонентов


4-1237722427
Delion
2009-03-22 14:47
2010.08.27
Comm Port под Vista AMDx64


15-1266928491
Кто б сомневался
2010-02-23 15:34
2010.08.27
Интернет убил «Убийцу» (защита от пиратства)