Главная страница
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.047 c
15-1274974724
@!!ex
2010-05-27 19:38
2010.08.27
Как правильно выкупать доменное имя?


3-1243786232
Serjio77
2009-05-31 20:10
2010.08.27
Ошибка отображения данных в результате sql запроса в BDE


2-1268318095
rust-02
2010-03-11 17:34
2010.08.27
Нужно считать текстовой файл до определённых слов. delphi


2-1274253236
Delphist2
2010-05-19 11:13
2010.08.27
excel


15-1272137380
antonn
2010-04-24 23:29
2010.08.27
Цитата из "Искусство войны"