Ctrl+Alt+Delete

← →
Master Paleva © (2004-04-26 11:47) [0]

Скажите пожалуйста, можно ли запретить комбинацию этих клавиш через Делфи. Или сделать так, чтобы программа самозапускалась при закрытии.

← →
Smithson © (2004-04-26 11:49) [1]

Запретить - нельзя.
Простой вариант самозапуска - написать сервис, который будет проверять наличие программы и рестартовать ее.

← →
VMcL © (2004-04-26 11:54) [2]

>>Master Paleva © (26.04.04 11:47)

>можно ли запретить комбинацию этих клавиш через Делфи

http://msdn.com/ - искать "gina".

← →
Игорь Шевченко © (2004-04-26 12:06) [3]

Можно вопрос к автору - нафига ?

> [2] VMcL © (26.04.04 11:54)

Не смешно

← →
Anatoly Podgoretsky © (2004-04-26 12:24) [4]

VMcL © (26.04.04 11:54) [2]
А это что запрещает

← →
Ivolg © (2004-04-26 19:25) [5]

Блокирует деспечер задачь:

procedure EnableCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = "\Software\Microsoft\Windows\CurrentVersion\Policies";
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey(sRegPolicies+"\System\",True) then
begin
case YesNo of
False:
begin
WriteInteger("DisableTaskMgr",1);
end;
True:
begin
WriteInteger("DisableTaskMgr",0);
end;
end;
end;
CloseKey;
if OpenKey(sRegPolicies+"\Explorer\",True) then
begin
case YesNo of
False:
begin
WriteInteger("NoChangeStartMenu",1);
WriteInteger("NoClose",1);
WriteInteger("NoLogOff",1);
end;
True:
begin
WriteInteger("NoChangeStartMenu",0);
WriteInteger("NoClose",0);
WriteInteger("NoLogOff",0);
end;
end;
end;
CloseKey;
finally
Free;
end;
------------------------------------------------
Включить:

EnableCTRLALTDEL(true);
-------------------------------
Выключить:

EnableCTRLALTDEL(false);
----------------------------------
Uses Registry

← →
Master Paleva © (2004-04-29 10:02) [6]

Спасибо всем за помощь

← →
Alexander666 © (2004-04-30 03:49) [7]

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

← →
WondeRu © (2004-04-30 08:20) [8]

Удалено модератором
Примечание: Личная переписка

← →
DVM © (2004-04-30 09:24) [9]

> Alexander666 © (30.04.04 03:49) [7]
> Запретить можно и без всяких джин. Могу прислать код, если
> надо.

код в студию!

← →
Alexander666 © (2004-04-30 09:49) [10]

Боюсь здесь публиковать, дабы уже один раз мою ветку с этим кодом модераторы удалили. А может она сама по себе так исчезла :-)

← →
DVM © (2004-04-30 09:57) [11]

Удалено модератором
Примечание: Личная переписка

← →
Gero © (2004-04-30 10:10) [12]

Удалено модератором
Примечание: Личная переписка

← →
Игорь Шевченко © (2004-04-30 10:56) [13]

Удалено модератором
Примечание: Личная переписка

← →
Pul (2004-04-30 12:00) [14]

Так, а код будет или нет?

← →
WondeRu © (2004-04-30 15:43) [15]

Удалено модератором
Примечание: Личная переписка

← →
Alexander666 © (2004-05-01 06:37) [16]

Удалено модератором
Примечание: Подобный код высылать по персональной почте

← →
Alexander666 © (2004-05-01 06:39) [17]

Удалено модератором
Примечание: Для этого желающие могут обратиться к тебе лично

← →
Alexander666 © (2004-05-01 06:42) [18]

Как видно, все элементарно!!! Использованные материалы: Рихтер, Игорь Шевченко (фокус с NtQuerySystemInformation), сайт Мастера Делфи и еще кой какой сайт (ссылку точную уже не помню).

← →
Alexander666 © (2004-05-01 06:46) [19]

Мда, функция типа EjectLib пишется почти также, как и InjectLib, только там используется FreeLibrary, и нужно получить hModule выгружаемой библиотеки, в нашем случае SASHook.dll, из winlogon.exe. Писать ее, естественно, времени нет. Да и вообще, читайте Рихтера.

← →
Gero © (2004-05-01 08:10) [20]

> Alexander666 ©

Напрасно Вы код на всеобщее обозрение выложили.
Не подумали, чем это может обернуться?

← →
Alexander666 © (2004-05-01 11:49) [21]

Вот-с, сказал же, что по почте перешлю, кому надо. Извиняюсь за опубликование кода.

← →
Игорь Шевченко © (2004-05-01 12:29) [22]

Удалено модератором
Примечание: Личная переписка, обращать по почте, мессендеру или в чате к Alexander666

← →
Wiz@rd © (2004-05-02 12:52) [23]

Удалено модератором
Примечание: Ты что не читаешь сообшений модератора?

← →
xShadow © (2004-05-05 09:04) [24]

Удалено модератором
Примечание: Личная переписка

← →
RustiK © (2004-05-05 10:40) [25]

Мужики подкинте орехов... : )

Ну уж черезчур обжованная тема...

Погу посоветовать другое....

ставишь хук на Ctrl+Alt+Delete как только поймал тут же посылай программно Esc или программно нажимай кнопку Cancel вот и ФСЁ!!

← →
Polevi © (2004-05-05 10:42) [26]

>RustiK © (05.05.04 10:40) [25]
у тебя работает ?

← →
RustiK © (2004-05-05 10:45) [27]

Когда-то работало...

← →
Gero © (2004-05-05 10:46) [28]

> ставишь хук на Ctrl+Alt+Delete как только поймал тут же
> посылай программно Esc или программно нажимай кнопку Cancel
> вот и ФСЁ!!

Гениально...
А Вы не подумали, что после нажатия Ctrl+Alt+Del программно кнопку Cancel Вы уже не нажмете?

← →
RustiK © (2004-05-05 10:47) [29]

Ну на счет Cancel я может и загнул (это тока теория) а Esc посылали, даже по таумеру

← →
Gero © (2004-05-05 10:50) [30]

> Ну на счет Cancel я может и загнул

Не может, а точно.
И Esc программно не нажмете.
В Win2k/XP разумеется.
В Microsoft"e тоже ведь не дураки работают.

← →
Polevi © (2004-05-05 11:16) [31]

достали уже ересь всякую постить

не вам

Удалено модератором
Примечание: Личная переписка

налетели как мухи на г..
извините

← →
Elrond (2004-05-08 14:46) [37]

Удалено модератором
Примечание: Личная переписка

← →
Elrond (2004-05-08 14:46) [38]

Удалено модератором
Примечание: Личная переписка

← →
mixir (2004-05-08 18:01) [39]

Пи..
Стока этого есть, wasm батенька васм!
И вообще подобные темы надо удалать сразу, а то надоели.

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

Код кому-нибудь нужен?
Вариант 1:program small; {автор Richard Leigh, Deakin Univesity 1997} uses WinProcs; {$R *.RES} var Dummy : integer; begin Dummy := 0; {Отключаем ALT-TAB} SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); {Отключаем CTRL-ALT-DEL} SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); end.

Есть вариант с CreateService

Ctrl+Alt+Delete Найти похожие ветки