https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812009 Mon, 15 Jan 2001 12:11:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812009 http://www.sysinternals.com/win9x/98source.shtml
Там исходники лежат, с очень похожим назначением, правда либо Ассемблер либо Си,
ну это не проблема, ежели знаком с ними, благо Делфи позволяет на Ассемблере писать также легко как на Паскале... ;-))
Делается это перехватом (hook) функций VxD, обслуживающих клаву и мышь...
Там, кстати полно всякого "шпионского" софта полезного, позволяющего перехватывать службы, хэндлы, порты, сетевые соединения.
Там я нашел программку для перехвата потока COM-порта... долго искал...]]> repairman Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812008 Fri, 12 Jan 2001 08:38:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812008 В 9х - пожалуйста:
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,NIL,0);
- для включения;
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,NIL,0);
- для выключения.]]> krivenia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812007 Thu, 04 Jan 2001 22:15:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812007 Вот так она описана в MSDN...
BOOL BlockInput(
BOOL fBlockIt // block option
);
Импортируй из USER32.DLL
А с cntr+alt+del нужно бороться перводом GDI в режим скриин сейвера.. Где то доку потерял по этому пример привести не могу.. Но работает... :)))]]> ad_tolya Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812006 Thu, 04 Jan 2001 19:04:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812006 Во-первых: эта функция есть в Win98 и выше и нет её в NT, и ко всему прочему прерывания восстанавливаются после нажатия любимой комбинации Ctrl+Alt+Del... И что в этом случае делать?]]> krivenia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812005 Mon, 31 Dec 2001 07:13:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812005 fBlockIt- 0 - off
1 - on]]> hlod Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812004 Sun, 30 Dec 2001 19:43:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812004 Заранее благодарю... И с Новым Годом! \%)))]]> krivenia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812003 Sat, 29 Dec 2001 20:18:00 +0000 https://forum.sources.ru/index.php?showtopic=108550&view=findpost&p=812003 Мне нужн, чтобы в определённое время стали не доступны ни клавиатура ни мышь, как это реализовать?]]> krivenia Delphi: Общие вопросы