Прога выводящая картинку на экран и блокирующая комп
Пользователи, просматривающие топик: 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 =)))))
|
|
|
|
|
|
