| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Фичя,Помогите! Шрифты Как определить сколько раз запущен фаил? Хм......, Э....Сори... Глюк в Animated Menus! Странная DLL, с ресурсами Иконка в системном трее, статья Сервис + иконка в трее Как читать ATIP несколько процессов последовательно Звуковая карта, Определить DLL???, Туча вопросов помогите!! Низкоуровневый перехват мыши, работа с ловушками Как минимизировать все окна Как Вы относитесь к курящим девушкам? Нужен хелп (работа с реестром: LoadKey), Не работает LoadKey Узнать частоту обновления экрана?, Win9X, WinXP Использование dll, Выход из процедурыи дельфи Синхронизация при помощи крит. секции, как??? Изменение иконки в систрее WinAmp, Компоненты Как Вы относитесь к курящим девушкам? Установка компонентов из .pas файлов перекомпиляция system.pas, ... нужен debug режим Где искать буфер TBitmap TFileStream, Поиск SMART API asm-вставки в делфи Список используемых dll, Чужого приложения Формы, окна Скрыть приложение из ALT+TAB и списка приложений., Как скрыть в windows xp\2k Потоки и процессы, реализация задачи Как сконвертировать String в HKEY правильно?!, HKEY(Text: String) работает некорректно Создание потоков, TThread наверное? "Послать" сообщение Удаление расшаренных ресурсов Нафигация по файловой системе, как реализовать? Как запустить чужой exe, как поток к своей программе Защита от копирования Вопрос по коду., Работа с окнами Блокировать вывод на экран Сообщение своей проге по сети, Как послать сообщ. своей проге по сети? Мигающая иконка в System Tray, Заставить мигать иконку в System Tray Определить номер кластера HDD, Программное определение номера кластера Рассылка почты с помощью Делфи, Рассылать письма (адреса одинаковые) Сервисы, Не работает Копирование файлов..., ...используя "msctls_progress32" Реестр + ExtractIcon CloseWindow(FindWindow(nil,pchar(filename)));, не закрывает окно а сворачивает почему? Виртуальный диск, Как создать? Реестр и wallpaper(как?), Реестр и wallpaper(как?) Ошибка, Прога полностью на WinAPI Перехват API функции, Простой пример id иконки в трее, ...как определить Отслеживание деятельности сторонних программ, обращения к диску, процессор и память ICQClient событие OnStatusChange не отрабатывается, Как получить статус уина? Как получить инфу о сервисе в ХР? Изменить Папку Рабочий стол Как сейчас на счет бесплатного Delphi 6 personal QueryPerformanceCounter, Определить загрузку процессора Использование файла подкачки, какую пользу извлечь? Импорт файлов реестра, Нужен програмный импорт файлов реестра А-у! Дельфи 7.0 взбесился, Посоветуйте, что делать EXE и CD, EXE и CD Как отловить когда жмут "Свернуть все окна"?, Application.OnMinimize не происходит Несовместимость..., String and PWideChar Как Вы относитесь к курящим девушкам? Обноновить конфигурацию оборудования, естно программно :) Служба индексирования SystemTr(a)y... Или "...место где часы...", SystemTr(a)y... Или "...место где часы.. |
Платные хостинги Раскрутка сайта Книги по программированию Блокировать вывод на экран
- Плз, подскажите, есть ли какой-нибудь способ временно блокировать вывод на экран, а затем восстановить. Блокировка должна быть глобальной, а не только в активном окне. - Как вариант делаешь скриншот всего рабочего стола и вешаешь его на экран. - Интересная мысль, а как это будет выглядеть в коде? Ни разу не сталкивался. - Что значит "блокировать вывод"? - Требуется запретить прочим приложениям взаимодействие с экраном на какое-то время, т.е. как бы "заморозить" экран на время. Я не знаю, возможно ли такое вообще и может быть это имеет какое-то другое название. - Код procedure TForm1.Button1Click(Sender: TObject);var Desktop: TCanvas; Image: TImage;begin Desktop := TCanvas.Create; Desktop.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER)); Image := TImage.Create(Self); Image.Width := Screen.Width; Image.Height := Screen.Height; PaintDesktop(Image.Canvas.Handle); Desktop.Draw(0, 0, Image.Picture.Graphic);end;highlightSyntax('delphicyZTY4','delphi'); Добавлено @ 20:33 Код var Window: HWND;begin Window := FindWindow('ProgMan', nil) ShowWindow(Window, SW_HIDE);end;highlightSyntax('delphi2EwNTY','delphi');Самым наглым образом прячет иконки с рабочего стола. Это сообщение отредактировал Quadr0 - 26.5.2005, 20:35 - Приложения не взаимодействуют с экраном. Ты хочешь сделать так, что бы на время ничто и никто не смог бы вывести на экран что то? - Именно это и требуется.Это возможно? - Код var Form: TForm;begin Form := TForm.Create; Form.BorderStyle := bsNone; PostMessage(Form.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 1); Form.FormStyle := fsStayOnTop; Form.Color := clBackground; Form.ShowModal;end;highlightSyntax('delphiYjBiNz','delphi');Намертво. Когда надоест - убей форму. Добавлено @ 20:44 Размеры также можно неPostMessage(Form.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 1);поставить, аКод Form := TForm.Create(Application);Form.Width := Screen.Width;Form.Height := Screen.Height;Form.Left := 0;Form.Top := 0;highlightSyntax('delphiI3ODhi','delphi'); Это сообщение отредактировал Quadr0 - 26.5.2005, 20:40 - Quadr0Вот это уже интереснее, а как бы сделать так, чтобы эта созданная форма имела не просто однородную заливку, а "скриншот" экрана?Что-то вроде положить на форму TImage, а в него - картинку с скриншотом. Вот только как сделать скриншот? - Код PaintDesktop(form.Canvas.Handle);highlightSyntax('delphijE2MGM','delphi');Никакого Image не надо. - Нужно сделать "снимок" не просто Desktop-а , а всего Screen.А может есть какой-то другой способ сделать чтобы на время ничто и никто не смог бы вывести ничего на экран? - Не думаю. Чем тебя этот не устраивает?Цитата (BasilL @ 26.5.2005, 21:25)А может есть какой-то другой способ сделать чтобы на время ничто и никто не смог бы вывести ничего на экран?Программно "нажми" PrintScreenSysRq и вставь из буфера обмена на форму. - Quadr0Так подойдет.А как-бы при этом еще и сделать так, чтобы по Ctrl-Alt-Del диспетчер задач не вылазил, а то при этом его окно получает фокус, а мое окно оказывается за ним? - А ты хочешь, чтобы пользователь твоей программы застрелился? Ему этого не даст Windows . Диспетчер он на то и диспетчер, чтобы всякую гадость вырубать. Можно отловить нотификацию Screen.OnActiveFormChange и возвратить свою форму заново поверх всех.P.S.Screen.OnActiveFormChange означает, что активная формиа экрана поменялась.  |