Прога выводящая картинку на экран и блокирующая комп
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Прога выводящая картинку на экран и блокирующая комп - 2005-09-26 23:50:49
|
|
|
ef_sam
Сообщений: 2
Оценки: 0
Присоединился: 2005-09-26 23:40:58
|
Нужна прога выводящая картинку на экран, и что бы её (картинку) нельзя было убрать… Желательно что бы перезагрузка тоже не помогала… Картинка должна перекрывать и блокироать весь экран… Например указываешь этой проге картинку, задаёшь время когда эта прога должна запуститься и вывести картинку… Но что б не чё кроме ресета не помогало… А после загрузки винды она опять появлялась… Ну чё-то типа вируса. Антивирь на машине не стоит… И желательно чтобы exe`шник можно было заранее подготовить, а потом на нужной машине запустить двойным кликом (при этом не чё не происходит, до наступления определённого времени)… На компе стоит windоws XP SP1… Мож кто знает такую прогу??? Помогите пожалуйста…
|
|
|
Прога выводящая картинку на экран и блокирующая комп - 2005-09-27 01:12:42
|
|
|
ku7mich
Сообщений: 52
Оценки: 0
Присоединился: 2005-06-30 17:33:51
|
***Прогу не искал, но кусок кода на Delphi - пожалуйста, может пригодиться. Выдержка из "kuliba".
№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№ Некоторое время назад передо мной встала задача создать процедуру для отключения/включения клавиатуры. Я использовал один из Ваших "Советов" и исходники компонента, который нашел в Интернете, но, к сожалению, не знаю автора и его кординат. Вот основные выдержки из того, что получилось у меня в итоге. Думаю, тут нет ничего сложного.
——————————————————————————– // используемые переменные var
Dummy : integer=0; OldKbHook : HHook=0;
impementation
function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt; stdcall; begin
if code<0 then Result:=CallNextHookEx( oldKbHook, code, wparam, lparam ) else Result:=1; end;
// включение клавы procedure TForm1.KeyBoardOn(Sender: TоЬjесt); begin
if OldKbHook <> 0 then begin UnHookwindоwshookEx( OldKbHook ); OldKbHook := 0; end; SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, 0, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, 0, 0); end;
// выключение клавы procedure TForm1.KeyBoardOff(Sender: TоЬjесt); begin
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); OldKbHook := SetwindоwsHookEx( WH_KEYBOARD, @KbHook, HInstance, 0 ); end;
Некоторые замечания по поводу этих процедур:
Если программу упаковать UPX-ом - клава не будет отключаться (причин не знаю). В ДОС-окне клава будет работать (FAR, VC и т.п.) :( Состояния клавиш NumLock,CapsLock,ScrollLock не отслеживаются и могут быть изменены. Возможно EnableHardwareKeyboard более эффективен и прост, но я тоже, к сожалению, не знаю, как им пользоваться. Если вместо WH_KEYBOARD поставить WH_MOUSE, то можно выключать таким образом мышь :-) №№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№
|
|
|
Прога выводящая картинку на экран и блокирующая комп - 2005-09-27 15:08:37
|
|
|
-ddd-
Сообщений: 4918
Оценки: 42
Присоединился: 2005-05-23 17:20:41
|
Берешь заставку ставишь на неё пасс,вот и все:))
|
|
|
Прога выводящая картинку на экран и блокирующая комп - 2005-09-27 19:31:17
|
|
|
ef_sam
Сообщений: 2
Оценки: 0
Присоединился: 2005-09-26 23:40:58
|
Мож конкретно кто название проги скажет???
Раньше кажись вирь был какой-то, он фотку на весь экран показывал, даже перезагрузка не помогала… Мож название виря кто-нибуду помнит???
|
|
|
Прога выводящая картинку на экран и блокирующая комп - 2005-09-28 19:04:29
|
|
|
-ddd-
Сообщений: 4918
Оценки: 42
Присоединился: 2005-05-23 17:20:41
|
ScrenServer =)))))
|
|
|
|
|