Затемнение какой-то части экрана (как при Завершении работы)

[PUNK-GRUNGER]

ПРивет,
Когда на рабочем столе клацаем Alt+F4, то появляется форма с пунтками выбора "Завершение" и т.д. Остальная же часть экрана затемняется... Кто поможет сделать так, только с моей формой.

Затемнение вручную не предлогать Должна быть какая-то Апишка.

P.S. Если это тема обсуждалась - дайте линку или код, а модератор пусть меня накажет плюсометом

P.P.S. По форуму поискал, но ничего стоящего не нашел (или плохо искал).

[CyberYen]

Ладно, даффай поэксперементируем вместе...
Никогда не обращал внимания, что после появления диал. окна, типа завершения работы, или завершения сеанса - панель задач, да и остальные проги уже не реагируют на клик мыши?? Или останавливаются часы на панели задач??

Короче, ближе к делу.
Прога получает снимок экрана, потом запускается в ПОЛНОЭКРАННОМ режиме, малая часть экрана отводится под наше диал. окошко, остальная часть экрана, вроде-бы такая же, как и раньше... Только это уже снимок . За тем, ровно через 3 сек. где-то за 4-5 сек. постепенно уменьшается контрасность и насыщенность снимка.

Вообщем, при достаточном умении, такую прогу (затемнения экрана) можно слепить максимум за 30 мин.

Искал ты может быть и не плохо, но Апишку найдешь врятли.

[PUNK-GRUNGER]

Вариант с "ручным" затемнением не подходит. Я уверен, что мелкомягкие сделали какую-то тайную ф-цию

Как я это понял... Была у меня программулина одна, типа гейм-мейкера - игрушки делала. И вот там я однажды заметил, что затемняется экран также, как и при завершении сеанса. Сначала, думал - программисты делали такой эффект вручную. Но когда я переустановил Windows ME на XP ... в том же гейм-мекере затемлялись окна... но уже в стиле XP. Т.е. полюбому какая-то функция есть.

Я же не думаю, что программеры делали разные затемнения на разные окна

[Sebas]

а что мешает нарисовать сетку на экране,а потом броткастом послатьрефреш всем окнам?

[alibek]

На Desktop накладываешь сетку (черные пикселы в шахматном порядке), потом выводишь окно, модальное на уровне системы.

[Eduard]

Я один раз тоже страдал над этим (кстати тоже делал прогу для выключения компа), и решил сделать затемнение, как там в Пуск-Завершение работы..., сделал получилось точно также как там. Ну короче у меня есть исходник, если ещё нужно завтра дам (ссылку).

[Eduard]

Ну вот как обещал, даю вам ссылки:

Вот собственно сам мой сайт, где есть много чего про VB и конечно мои проги с исходниками:
http://www.zone.ee/vbprogs/

А вот и сам этот исходник (на данный момент это - Shutdown Computer v3.6):
http://www.zone.ee/vbprogs/files/progs/zip/shutdown.zip

[A.A.Z.]

выводишь окно, модальное на уровне системы.

alibek, будь добр, напиши, как это сделать?

[PUNK-GRUNGER]

Спасибо за помощь. Ща будем сетку малювать.

[Eduard]

...ай лано не буду нов. топик делать... продолжу по теме...
...как мона сделать из цветноц картинки, черно-белую НО не полностью ч/б а с оттенками серого... ведь в xp shutdown там она не ч/б... вот такойже эффект мне хочеться сделать... чтоь можно было менять степень серости картинки... для плавного перехода... Ваш предложения....

[tyomitch]

...ай лано не буду нов. топик делать... продолжу по теме...
...как мона сделать из цветноц картинки, черно-белую НО не полностью ч/б а с оттенками серого... ведь в xp shutdown там она не ч/б... вот такойже эффект мне хочеться сделать... чтоь можно было менять степень серости картинки... для плавного перехода... Ваш предложения....

Знаю как через GDI+. Надо?

[Eduard]

Знаю как через GDI+. Надо?

tyomitch конечно нада... хоть что-то будет... а то ваще ничё нету

[tyomitch]

1. Подключаешь к проекту мою обёртку
2. Пишешь в форме:

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

Option Explicit
Dim WithEvents Timer As Timer
Dim Color As Single, Pic As prjGDIplus.Image

Private Sub Form_DblClick()
Color = 1
Timer.Interval = 50
Timer.Enabled = True
Set Pic = CreateImage("\Documents and Settings\All Users\Документы\Мои рисунки\Образцы рисунков\Водяные лилии.jpg")
End Sub

Private Sub Form_Load()
Width = ScaleX(800, vbPixels, vbTwips)
Height = ScaleY(600, vbPixels, vbTwips)
Set Timer = Controls.Add("VB.Timer", "Timer")
End Sub

Private Sub Timer_Timer()
Dim ImageAttributes As New ImageAttributes
ImageAttributes.SetSaturation Color
CreateGraphics(hDC).DrawImageEx Pic, 0, 0, ImageAttributes:=ImageAttributes
Color = Color * 0.8
End Sub


3. Запускаешь проект, даблкликаешь на форме, любуешься эффектом.

Если у тебя не WinXP Rus, то исправь путь к картинке.

[Eduard]

tyomitch де твоя dll-ка, я же её где то видел ... щас поиск поюзаю на GDI+

[Eduard]

ну tyomitch где твой хваленый контрол-то... ваще немогу найти его, я тож его хочу поюзать, там такие возможности описывают про него на форуме

[tyomitch]

Вариант с "ручным" затемнением не подходит. Я уверен, что мелкомягкие сделали какую-то тайную ф-цию

FTR, такая функция есть, но она не экспортирована. IOW, ты замаешься её разыскивать в каждом билде shell32.dll, а автоматизировать её поиск вряд ли удастся.

Я же не думаю, что программеры делали разные затемнения на разные окна

Получается, делали

[tyomitch]

ну tyomitch где твой хваленый контрол-то... ваще немогу найти его, я тож его хочу поюзать, там такие возможности описывают про него на форуме

И как только можно его не найти... http://mix.web.ur.ru/JPEG.zip