Как запретить сворачивать форму?

[Mikle]

Имеется некоторая полноэкранная D3D программа. После случайного нажатия Ctrl+Esc, WinKey и т. п. Windows переключает задачу, что приводит к глюкам. При этом я не обнаружил никаких событий, сопровождающий сворачивание формы. LostFocus, Deactivate, Resize не помогают.
Подскажите как отследить момент сворачивания, либо (даже лучше), просто запретить сворачивать форму.

[RayShade]

А что если просто убрать кнопки min&max?

[Sebas]

Вообщето Resize

[Urvin]

Наложи заклятие AlwaysOnTop

[Mikle]

Sebas
Resize не происходит.
RayShade
Этих кнопок нет изначально, кроме того форма полноэкранная. Режим экрана может не соответствовать режиму рабочего стола, видимо поэтому нет Resize - окно не сворачивается, а остается на каком-то "другом" экране.
Urvin
Вот AlwaysOnTop еще не пробовал. Прокатит ли? Попробую - скажу.

[basicom]

Выполни три действия и да будет тебе счастье :

1.в system.ini пропиши :
Shell=путь программы(вместо Eхplorer.exe) дабы не загружать ничего лишнего.
2.При загрузке формы: MyForm.WindowState = 2
3.В события формы Paint и Resize то же пиши:
MyForm.WindowState = 2

[Urvin]

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

'Always On Top
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' Not Always On Top
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

[zzoom]

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

Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Отрубает CTRL+ALT+DEL, ALT+ESC etc. :

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

SystemParametersInfo 97&, True, CStr(1), 0

И врубает обратно:

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

SystemParametersInfo 97&, False, CStr(1), 0

Вот по поводу параметров извини - не помню, применял давно в похожей ситуации. Под Win95/98 работает строго, под NT - не в курсе.

[Mikle]

zzoom

Вот это уже то, что нужно. CTRL+ALT+DEL я отрубать не буду - вещь нужная, да и случайно не нажмешь.
А параметры я найду - есть у знакомого толстая книжка по API. Только справлюсь ли я таким способом с WinKey?

[zzoom]

А параметры я найду - есть у знакомого толстая книжка по API. Только справлюсь ли я таким способом с WinKey?

ага, и со всем тем что к нему прилагается (WinKey+R, WinKey+F...)

[Mikle]

Как выяснилось, это тоже не совсем то. То есть оно, конечно, работает, но я не могу заранее угадать, какие горячие клавиши могут быть определены у конечного пользователя. А запрещать все подряд - не годится, самой программе для работы нужны многие клавиши.
Но я решил по-другому - выбросил из программы все DoEvents. После этого, естественно, перестали работать таймеры и события нажатия клавиш. Но вместо таймеров работает QueryPerformanceCounter, а клавиатуру я опрашиваю асинхронно - это даже удобнее.
Так что проблемма, вроде, решена.

[Алекс]

А поподробней как отрубить ctrl+alt+del А гораздо лучше отловить это событие???

[TrueTrue]

Ребят, не хотел создавать новую тему, мне необходимо запретить сворачивать форму. Только мне ненужна форма по верх всех окон, как описывается решение тут. Потому TopMost мне не подходит.

Вроде как нашёл в инете решение

вот тут:
http://ru.stackoverflow.com/questions/453114/%D0%A1%D0%B4%D0%B5%D0%BB%D0%B0%D1%82%D1%8C-%D0%BD%D0%B5%D1%81%D0%B2%D0%BE%D1%80%D0%B0%D1%87%D0%B8%D0%B2%D0%B0%D1%8E%D1%89%D0%B5%D0%B5%D1%81%D1%8F-%D0%BE%D0%BA%D0%BD%D0%BE-%D0%BF%D0%BE-wind-not-topmost

попробовал прописать вот так у себя:

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

Declare Function GetShellWindow Lib "user32.dll" () As Long
Declare Function SetWindowLongPtr Lib "user32.dll" Alias "SetWindowLongPtrW" (ByVal handle As Long, ByVal i As Integer, ByVal style As Long) As Long

Const GWLP_HWNDPARENT = -8   ' значение этой константы нашёл в Инете, может неверное...

    Dim X As Long
    X = GetShellWindow()

    'X перевожу в 16-ричное своей функцией и получается такое значение: &H1010A

SetWindowLongPtr form1.hWnd, GWLP_HWNDPARENT, &H1010A


короче, при старте, сообщение типа VB6 не может найти точку входа в Библиотеку "user32.dll"

Ребята, подскажите кто разбирается, если тут ошибка. Или это решение тупиковое?

[Teranas]

запрещать сворачивать форму не хорошо, 1) это не уважение к пользователю, хотя этот пункт можно игнорировать 2) это вмешательство в работу системы, что пользователю может, не понравится, да и антивирусам, по-секрету

[Teranas]

Вообще ошибка при сворачивании типичная для 3D программ, и производители, что бы упростить задачу отключают сочетания клавиш приводящие к переключению или сворачиванию своей программы
вот, нашел для вас информацию
https://exelab.ru/pro/cpp.php?r=system&d=zdrt928
и вот ещё на тему ошибки
http://www.cyberforum.ru/visual-basic/thread498556.html

[TrueTrue]

запрещать сворачивать форму не хорошо, 1) это не уважение к пользователю, хотя этот пункт можно игнорировать 2) это вмешательство в работу системы, что пользователю может, не понравится, да и антивирусам, по-секрету

Простите, глупейшее умозаключение.
Как же тут любят разглагольствовать не разобравшись. Неужели так сложно, просто подсказать если знаете ответ. А если не знаете, то просто промолчать.

Я делаю всплывающие панели по бокам экрана. Как были в WinXP примерно. Им по статусу необходимо быть не сворачиваемыми.

[TrueTrue]

Вообще ошибка при сворачивании типичная для 3D программ, и производители, что бы упростить задачу отключают сочетания клавиш приводящие к переключению или сворачиванию своей программы
вот, нашел для вас информацию
https://exelab.ru/pro/cpp.php?r=system&d=zdrt928
и вот ещё на тему ошибки
http://www.cyberforum.ru/visual-basic/thread498556.html

Спасибо за старание и подсказку, это совершенно не то, что мне нужно.

Мне ненужно запрещать Ctrl + Alt + Delete и так же ненужно запрещать другие комбинации. Мне просто нужно, что бы при сворачивании свернулись все формы, но не свернулась моя. Я думал отлавливать комбинации клавиш через Глобал-хук, но таким образом я не отловлю справа в углу экрана сворачивание всех окон или значок свернуть все окна.


Ошибка которая у меня происходит, происходит ещё до прорисовки формы на экране.

при выполнении этой строки:

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

SetWindowLongPtr frmLSpeedPanel.hWnd, GWLP_HWNDPARENT, &H1010A

потому ни о каком DirectDraw речи идти не может.

[alibek]

но таким образом я не отловлю справа в углу экрана сворачивание всех окон или значок свернуть все окна.

Дело в том, что этот значок (или команда Win+D) не сворачивает окна, а скрывает их, выводя рабочий стол. Это запретить нельзя.
А сворачивание окна (или Win+M) предотвращается типом окна/границы.

[Teranas]

глобальные хуки, хм...

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

Private 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
Call SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)


и Explorer не будет сворачивать форму

[TrueTrue]

но таким образом я не отловлю справа в углу экрана сворачивание всех окон или значок свернуть все окна.

Дело в том, что этот значок (или команда Win+D) не сворачивает окна, а скрывает их, выводя рабочий стол. Это запретить нельзя.
А сворачивание окна (или Win+M) предотвращается типом окна/границы.

Уважаемый Alibek, судя по вашему рейтингу я не сомневаюсь, что опыт у Вас огромный в VB6, только вот у меня уже почти получилось то, что я хотел.

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

SetParent form1.hWnd, &H1010A

решает полностью проблему сворачивания формы. Один единственный нюанс не могу добиться!!!

Форма не сворачивается! Ни значком ни клавишами, остальные сворачиваются, моя нет. Но теперь, проблема в том, что моя форма не выходит поверх Других форм. Тоесть, я кликаю на уголок моей формы, а она остаётся по прежнему внизу. Вероятнее всего, как я думаю это потому, что я сделал её дочерней формой рабочего стола. Может подскажете мне, как можно решить этот момент?

Только повторюсь, мне ненужен TopMost! мне нужно нормальное состояние формы, тоесть что бы при активации, она становилась поверх других.

[Хакер]

Я делаю всплывающие панели по бокам экрана. Как были в WinXP примерно. Им по статусу необходимо быть не сворачиваемыми.

Значит ты делаешь их категорически неправильно.

Покажи скриншотом или на примере, что ты пытаешься сделать?

[TrueTrue]

Я делаю всплывающие панели по бокам экрана. Как были в WinXP примерно. Им по статусу необходимо быть не сворачиваемыми.

Значит ты делаешь их категорически неправильно.

Покажи скриншотом или на примере, что ты пытаешься сделать?

Да я уже давно всё сделал и пользуюсь ими лет 5, просто они всегда сворачивались, мне надоело и я решил заняться этим вопросом. Я такими панелями пользовался всегда в WinXP, потом перешёл на Семёрку, а там таких панелей не было. Пришлось сделать. Мне осталось только разобраться с тем, как им запретить сворачиваться и всё.

[bon818]

Я такими панелями пользовался всегда в WinXP, потом перешёл на Семёрку, а там таких панелей не было.

Да уж, сам на семерке то и дело тыкаю мышкой в верхнею часть стола чтоб вылезло окно, а его там нет, очень не удобно когда привыкнешь.
Да вообще неудобно без них. Пытался найти, что то подобное, но так и не нашел.
Вы свою прогу публикуете ? Можно попробовать?

По поводу сворачивания в ХР.
Использовал это:
Файл: Свернуть все окна.scf
Содержимое:

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

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

И эти окна-панели тоже сворачиваются, как и все остальные.
Но после все встают на свои места.
Кроме того, не какие уведомления, система в сворачиваемые окна не отсылает(неспроста наверно:)),
так что игнорировать их или как то среагировать не получится (легально).

Присутствует на экране
Команда сверну все окна

[TrueTrue]

Я такими панелями пользовался всегда в WinXP, потом перешёл на Семёрку, а там таких панелей не было.

Да уж, сам на семерке то и дело тыкаю мышкой в верхнею часть стола чтоб вылезло окно, а его там нет, очень не удобно когда привыкнешь.
Да вообще неудобно без них. Пытался найти, что то подобное, но так и не нашел.
Вы свою прогу публикуете ? Можно попробовать?

По поводу сворачивания в ХР.
Использовал это:
Файл: Свернуть все окна.scf
Содержимое:

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

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

И эти окна-панели тоже сворачиваются, как и все остальные.
Но после все встают на свои места.
Кроме того, не какие уведомления, система в сворачиваемые окна не отсылает(неспроста наверно:)),
так что игнорировать их или как то среагировать не получится (легально).

Присутствует на экране
Команда сверну все окна

Если интересно, конечно выложу, без проблем, мне не жалко. До ума бы довести.

Как я и сказал, именно запрет сворачивания у меня получилось достичь посредством того, что я сделал эти окна ДОЧЕРНИМИ рабочему столу. НО! Теперь проблема, что они всегда находятся только под Окнами. Тоесть их невозможно вывести на передний план, совсем. Хочу всётаки разобраться с этим вопросом.

[Хакер]

Да я уже давно всё сделал и пользуюсь ими лет 5, просто они всегда сворачивались, мне надоело и я решил заняться этим вопросом.

Хах.
Тот факт, что сделал уже давно (целых 5 лет назад) совершенно не аргумент в пользу того, что ты сделал это правильно. Судя по описанию мучений, как раз получается, что ты не пользовался стандартными системными механизмами, которые система предоставляет всем желающим для создания каких-угодно боковых панелей.

Как я и сказал, именно запрет сворачивания у меня получилось достичь посредством того, что я сделал эти окна ДОЧЕРНИМИ рабочему столу. НО! Теперь проблема, что они всегда находятся только под Окнами. Тоесть их невозможно вывести на передний план, совсем. Хочу всётаки разобраться с этим вопросом.

А про системное workarea ты слышишь впервые, скажи?

[TrueTrue]

...А про системное workarea ты слышишь впервые, скажи?

Да, Вы правы, первый раз слышу. Но спасибо Вам за исчерпывающую информацию, за дельные советы, аргументированную помощь, я обязательно распечатаю Вашу аватару и подпишу "Академик VB6" и повешу на стену, что бы знать, что существует такой ЗНАЮЩИЙ человек как Вы!!!))))))

Я очень рад, что хоть что-то остаётся в этой жизни неизменным.))))) С самого первого дня моей регистрации, как занимались тут все писькомерством, лили воду, чесали бестолку, умничали, так и по сей день, эээх, причём в основном это делают старики.Из-за лени ли, а может от высокого мнения о себе, я уже не знаю.))))

Спасибо всем за помощь и участие, я таки добился необходимого результата.

Ниже выкладываю анимированную Гифку, правда в плохом качестве, большой объём вышел, но в принципе и так понятно.

[ger_kar]

Спасибо всем за помощь и участие, я таки добился необходимого результата.

А как добился то? Я честно сказать из последнего поста мало чего понял.

[Хакер]

Я очень рад, что хоть что-то остаётся в этой жизни неизменным.

Да, я тоже, сколько здесь сижу, вечно встречаю чудаков, которые, когда им пытаешься искренне помочь — без зла, без издёвки — взрываются своим негодованием по поводу того, что над ними издеваются или оказывают им помощь неправильным образом (как тут в соседнем топике жалуется Вова номерной).

Код не выкладывался, какими механизмами пользуется человек — не ясно. Вопрос о том, пользуется ли он системными механизмами и знает ли про workarea, воспринимает за издевательство. Что тут можно ещё сказать...

[TrueTrue]

Спасибо всем за помощь и участие, я таки добился необходимого результата.

А как добился то? Я честно сказать из последнего поста мало чего понял.

Я писал выше, что решал вопрос посредством того, что делал родителем формы Рабочий стол.

Так вот при открытии формы, я возвращаю ей предыдущего родителя, а при скрытии снова делаю её дочерней Рабочему столу. Таким образом при активации она работает как нужно а при деактивации её не возможно свернуть. Получилось очень хорошо.

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

SetParent form1.hWnd, &H1010A

&H1010A - это hWnd рабочего стола

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

[TrueTrue]

Я очень рад, что хоть что-то остаётся в этой жизни неизменным.

Да, я тоже, сколько здесь сижу, вечно встречаю чудаков, которые, когда им пытаешься искренне помочь — без зла, без издёвки — взрываются своим негодованием по поводу того, что над ними издеваются или оказывают им помощь неправильным образом (как тут в соседнем топике жалуется Вова номерной).

Код не выкладывался, какими механизмами пользуется человек — не ясно. Вопрос о том, пользуется ли он системными механизмами и знает ли про workarea, воспринимает за издевательство. Что тут можно ещё сказать...

Уважаемый, в этой теме Вы отметились 3 или даже 4 раза, что бы не сказать "пометили тему"... и ни один из Ваших постов не был хоть малость информативным. Кичились и отмазывались. Спасибо. Кто хочет реально помочь и поучаствовать, помогает и участвует. Я подробно расписал всё, пояснил и выложил часть кода.

Просто возьмите себе уже наконец за правило, знаете - посоветуйте, не знаете просто молчите и всё.