Прозрачый текст поверх всего

[seelts]

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

[Amed]

Надпись... Есть как минимум 2 варианта:

1) делаем форму маленькую, делаем её поверх всех окон (см. faq), и показываем/скрываем (.Visible) по надобности.
2) Пишем текст прямо на GetDC(0) - смотреть надо в сторону API-Guide, а точнее, DrawText.

[tyomitch]

Amed, думаю что DirectX-овых прогам забить на окна поверх них и на всё такое... Хотя не уверен :-/

[xolod]

Как вариант, сначала принудительно свернуть все программы, затем вывести форму со BorderStyle=none на весь экран+поверх всего..
Вот только если клавишу Windows нажмешь на клаве или Ctrl+Alt+Del, ессено выпловет меню пуск или менеджер задач. Как решить, даже не знаю, может глобальный хук ..

[tyomitch]

Свой драйвер клавы поставить
У которого есть команды "блокировать" и "разблокировать".

[xolod]

Может поможешь с реализацией ?
Или Шамана попросим, а то надоели его вызовы функций по указателю.. Пускай общественно полезной деятельностью займеться

[xolod]

Во!
В теме rundll и чем его едят Gamer написал несколь ф-ций через этот rundll вызываемых, дык там же есть keyboard disable, мож ее, родимую, езать. А когда компьютер серверов разблокируется, enable ей делать

[tyomitch]

Может поможешь с реализацией ?

Могу и помочь, только это не на VB

Или Шамана попросим, а то надоели его вызовы функций по указателю.. Пускай общественно полезной деятельностью займеться

Ага... Давай просить вместе

[tyomitch]

Во!
В теме rundll и чем его едят Gamer написал несколь ф-ций через этот rundll вызываемых, дык там же есть keyboard disable, мож ее, родимую, езать. А когда компьютер серверов разблокируется, enable ей делать

Афаик это только в Win9x канает... Можешь проверить? А то мне в лом

[er_admin]

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

[GSerg]

Чем нарушать работу DX-овых прог (что весьма нетривиально, ибо d3ddevice очень может быть D3DERR_DEVICELOST в том случае, когда кто-то на весь экран играет), лучше присобачить на монитор индикатор красивый неоновый - Осталось 5 минут! И мигать им. Управлять через LPT

[xolod]

tyomitch
Проверил, подтверждаю, не канает ...

[xolod]

GSerg
Пользуясь случаем, хочу предложить написать драйвер клавиатуры с... модификациями , хочешь? Ну скажи что хочешь... мы так надеемся
О деталях можешь прочитать чуть выше

[Amed]

tyomitch, я видел как-то клубную прогу, там вылезало как раз окошко посередине, и ничему не мешало %)

Правда, это со слов администраторов, сам я не гарантирую.

[GSerg]

Писание драйверов - это Тёмыч

Хотя чё мелочиться, давайте внедрять сигнал в кабель монитора, раз уж такая пьянка

[xolod]

Самое простое и очевидное решение ...
Может напишем подобную универсальную УТИЛИТУ для компьютерных клубов и продадим ее (в проектах недавно темка подобная возникла вновь)

[xolod]

Самое простое и очевидное решение ...
Может напишем подобную универсальную УТИЛИТУ для компьютерных клубов и продадим ее (в проектах недавно темка подобная возникла вновь)

[xolod]

Ящик пива, это конечно заманчиво ...
Темыыыч, найдем?

[tyomitch]

Дык эта, драйвер-то у меня полунаписанный лежит, поднять бы и доделать - самое то... Но то ли это, что нужно?
А то получится как с чтением GIF-ов, Native DLL и переводом в 256 цветов без потерь: пока нету, всем надо, а как есть - все забили.

[xolod]

Если это кому реально надо, вы пишите не стесняйтесь..
ЗЫ: Я нефильтрованное люблю, преимущественно русское

[Max!]

Извеняюсь что прерываю ваш интересный разгавор , и хачу вклинится !!

Вообщем как вам ткой вариант

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

В форму

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Dim mMove As Boolean
Dim SX As Integer
Dim SY As Integer
Private Sub Form_Load()

Const TEXT = "Time out !!!"
Dim hRgn As Long
Font.Name = "Times New Roman"
Font.Bold = True
Font.Size = 55
Width = TextWidth(TEXT)
Height = TextHeight(TEXT)
BeginPath hdc
Print TEXT
EndPath hdc
hRgn = PathToRegion(hdc)
SetWindowRgn hwnd, hRgn, False
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2

End Sub

В Модуль

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40




[xolod]

DirectX, как и OpenGL (не говоря уж о MetalX, который все в обход window'ых драйверов делает) положить с прибором на HWND_TOPMOST.. Проверено

[xolod]

Я пример написал, скомпилил, ты посмотри, если тебе пойдет, о исходниках и пиве - договоримся