Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ctrl+Alt+Delete [D7, WinXP]

Страницы: < 1 2 3 >
Master Paleva © (2004-04-26 11:47:00)
Скажите пожалуйста, можно ли запретить комбинацию этих клавиш через Делфи. Или сделать так, чтобы программа самозапускалась при закрытии.

xShadow (2004-05-05 09:04:00) [21]
Удалено модератором
Примечание: Личная переписка

Wiz@rd (2004-05-02 12:52:00) [22]
Удалено модератором
Примечание: Ты что не читаешь сообшений модератора?

Игорь Шевченко (2004-05-01 12:29:00) [23]
Удалено модератором
Примечание: Личная переписка, обращать по почте, мессендеру или в чате к Alexander666

Alexander666 (2004-05-01 11:49:00) [24]
Вот-с, сказал же, что по почте перешлю, кому надо. Извиняюсь за опубликование кода.

Gero (2004-05-01 08:10:00) [25]

> Alexander666 ©

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

Alexander666 (2004-05-01 06:46:00) [26]
Мда, функция типа EjectLib пишется почти также, как и InjectLib, только там используется FreeLibrary, и нужно получить hModule выгружаемой библиотеки, в нашем случае SASHook.dll, из winlogon.exe. Писать ее, естественно, времени нет. Да и вообще, читайте Рихтера.

Alexander666 (2004-05-01 06:42:00) [27]
Как видно, все элементарно!!! Использованные материалы: Рихтер, Игорь Шевченко (фокус с NtQuerySystemInformation), сайт Мастера Делфи и еще кой какой сайт (ссылку точную уже не помню).

Alexander666 (2004-05-01 06:39:00) [28]
Удалено модератором
Примечание: Для этого желающие могут обратиться к тебе лично

Alexander666 (2004-05-01 06:37:00) [29]
Удалено модератором
Примечание: Подобный код высылать по персональной почте

WondeRu (2004-04-30 15:43:00) [30]
Удалено модератором
Примечание: Личная переписка

Pul (2004-04-30 12:00:00) [31]
Так, а код будет или нет?

Игорь Шевченко (2004-04-30 10:56:00) [32]
Удалено модератором
Примечание: Личная переписка

Gero (2004-04-30 10:10:00) [33]
Удалено модератором
Примечание: Личная переписка

DVM (2004-04-30 09:57:00) [34]
Удалено модератором
Примечание: Личная переписка

Alexander666 (2004-04-30 09:49:00) [35]
Боюсь здесь публиковать, дабы уже один раз мою ветку с этим кодом модераторы удалили. А может она сама по себе так исчезла :-)

DVM (2004-04-30 09:24:00) [36]

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

код в студию!

WondeRu (2004-04-30 08:20:00) [37]
Удалено модератором
Примечание: Личная переписка

Alexander666 (2004-04-30 03:49:00) [38]
Запретить можно и без всяких джин. Могу прислать код, если надо.

Master Paleva (2004-04-29 10:02:00) [39]
Спасибо всем за помощь

Ivolg (2004-04-26 19:25:00) [40]
Блокирует деспечер задачь:

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

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »