Конференция VBStreets

**claymen** » 18.04.2006 (Вт) 17:02

Наверное многие сталкивались с проблемой тключить/включить
"горячие" клавиши Windows: Ctrl-Alt-Del, Ctrl-Shift-Esc, Alt-Tab, Alt-F4.
Смотрел FAQ, но не нашёл там этого. Кто знает, скиньте код plz.

**RayShade** » 18.04.2006 (Вт) 17:15

Я бы поискал по форуму. С ключевыми словами типа "заблокировать".

Можно почерпнуть много интересного. Да.

**GSerg** » 18.04.2006 (Вт) 17:15

Я так понимаю по совокупности трёх вопросов, что автор не пользуется поиском принципиально. Это несколько наказуемо на данном форуме, сказал бы я...

**Роман-вб** » 18.04.2006 (Вт) 17:20

Посмотри это

**RayShade** » 18.04.2006 (Вт) 17:21

Для справки. Поиск - это вот, примерно тут

GSerg

Может, он просто, страницу невнимательно смотрит? Не написать ли нам о том, как найти поиск? на главной странице?

**alibek** » 18.04.2006 (Вт) 17:23

RayShade писал(а):Не написать ли нам о том, как найти поиск? на главной странице?

72 шрифтом, полужирный Verdana, красного цвета, на черном фоне, в таблице, отцентрованной по экрану.
И то не поможет.

**RayShade** » 18.04.2006 (Вт) 17:45

Да, причем это будет absolute positioned div, и будет скролиться вместе со страницей

Отбрасывать тень, иметь мерцающую границу и переливающуюся gradient fill (IE6+)

**RayShade** » 18.04.2006 (Вт) 17:49

Или IE5+

**Ramzes** » 18.04.2006 (Вт) 17:57

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

**Viper** » 18.04.2006 (Вт) 18:04

Поможет единственное средство: при нажатии кнопки "Новая тема" делать переход на http://bbs.vbstreets.rusearch.php

Это конечно негуманно, но поможет

**claymen** » 18.04.2006 (Вт) 18:09

Извините, но я не нашёл там про: Ctrl-Shift-Esc, да и пример кода про Alt-Tab (DirectX) у меня не работает.

**Роман-вб** » 18.04.2006 (Вт) 18:11

claymen писал(а):Извините, но я не нашёл там про: Ctrl-Shift-Esc, да и пример кода про Alt-Tab (DirectX) у меня не работает.

Там -- это где?

**ANDLL** » 18.04.2006 (Вт) 18:20

Может на страницу новой темы добавить графу "По каким ключевым словам вы провели поиск?"

**Роман-вб** » 18.04.2006 (Вт) 18:24

Ну к чему такие изощрения. Плохой вопрос -- удалить надо.

**claymen** » 18.04.2006 (Вт) 18:26

Я смотрю ответа всёравно не найти.
Как мне удалить эту тему?

**GSerg** » 18.04.2006 (Вт) 18:36

Не надо удалять.
Искать надо. По crtl alt del не пробовал?..

**claymen** » 18.04.2006 (Вт) 18:39

GSerg
Про Ctrl-Alt-Del я разобрался. Не могу найти Ctrl-Shift-Esc, Alt-F4
Да и пример, про Alt-Tab (DirectX) у меня не работает.

**Роман-вб** » 18.04.2006 (Вт) 18:42

claymen

Не могу найти Ctrl-Shift-Esc, Alt-F4

Что ты писал для Ctrl-Alt-Del ?

**claymen** » 18.04.2006 (Вт) 18:45

Роман-вб
Да у меня нет проблем Ctrl-Alt-Del !
Я не могу найти Ctrl-Shift-Esc, Alt-F4 и Alt-Tab (на тот, что исспользует DirectX)

**Роман-вб** » 18.04.2006 (Вт) 19:04

claymen
Покажи код. Возможно избавишься от проблем.
Просто покажи

**claymen** » 18.04.2006 (Вт) 19:09

Роман-вб
Вариант кода №1

Код: Выделить всё: Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Private Const SPI_SCREENSAVERRUNNING = 97& Public Sub AllowKeys(bParam As Boolean) Dim lRetVal As Long, bOld As Boolean lRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, bParam, bOld, 0&) End Sub Private Sub Form_Load() Call AllowKeys(True) 'блокировка сочетаний End Sub Private Sub Form_Unload(Cancel As Integer) Call AllowKeys(False) 'разблокировка сочетаний End Sub

Вариант кода №2

Код: Выделить всё: Const SPI_SCREENSAVERRUNNING = 97 Private 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 Private Sub Command1_Click() Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0) End Sub Private Sub Command2_Click() Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0) End Sub Private Sub Form_Unload(Cancel As Integer) Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0) End Sub

**GSerg** » 18.04.2006 (Вт) 19:13

Долго думал, чем отличаются варианты кода, придумать ничего не смог.

Перед тем, как ты осознаешь ненужность, трудность или невозможность блокировки отдельных сочетаний клавиш, хотелось бы задать вопрос: зачем блокировать?

**claymen** » 18.04.2006 (Вт) 19:18

GSerg
Просто моя программа выводит на экран Form1, что-то вроде User Login
И пока не будут введены определённые данные в Form1 - нельзя вернуться обратно в Windows.

**GSerg** » 18.04.2006 (Вт) 19:34

Тогда возникает дополнительный вопрос: а смотрел ли автор раздел с популярными вопросами хотя бы бегло по названиям тем, в нём присутствующих?

**Kovu** » 18.04.2006 (Вт) 22:59

RayShade писал(а):Да, причем это будет absolute positioned div, и будет скролиться вместе со страницей Отбрасывать тень, иметь мерцающую границу и переливающуюся gradient fill (IE6+)

Хотелось бы эту всю красоту увидеть хотя бы одним глазком

**Smert** » 19.04.2006 (Ср) 18:49

Я понимаю, что с контрол+альт+дел проблем нет, но может наведёт на мысль

Пример

В таймере с интервалом 1
a=FindWindow(0, "Диспетчер задач Windows")
if a<>0 then
SendMessage a,WM_DESTROY,0,0
end if

Некоторые проблемы и так можно решить :wink:

BV » 19.04.2006 (Ср) 18:53

И что будет, если не та версия/язык ОС?

**ANDLL** » 19.04.2006 (Ср) 19:34

Я понимаю, что с контрол+альт+дел проблем нет

Да, конечно, никаких проблем. А как, часом не подскажеш :roll:

Конференция VBStreets

Горячие клавиши Windows

Горячие клавиши Windows

OK

Re: OK

Ладно

Кто сейчас на конференции