Вторник, 01.12.2020, 10:54 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Прошу помощи в проверке кода!!! (Прикол с блокнотом)
Прошу помощи в проверке кода!!!
zarutaДата: Воскресенье, 13.01.2013, 14:45 | Сообщение # 1
Был не раз
Зарегистрирован: 25.12.2012
Группа: Пользователи
Сообщений: 10
Статус: Offline
Уважаемые аксакалы форума и спецы Delphi !!!!!!

У меня вдруг возникла идея написать небольшой прикольчик.....суть дела такова:
- Запускается приложение, клавиатура и мышь блокируются, на экран выводится окно блокнота и в нем печатается текст.....
-...именно печатается по одной букве ( набирается) а не появляется предложение....
- ......и юзер ничего не может сделать, пока текст весь не появится на экране, после этого блокнот закрывается...
- ......клавиатура и мышь разблокированы..и все как ни в чем не бывало..
- ......но у меня проблема,блокнот запускается, но ничего не печатается....и не блокируется мышь и клавиатура...
-....подскажите где ошибка....прошу сильно не бить.....только учусь!
-....вот исходник
Прикрепления: 6840655.rar(8.0 Kb)


Сообщение отредактировал zaruta - Воскресенье, 13.01.2013, 14:46
 
Don_DiegoДата: Воскресенье, 13.01.2013, 15:10 | Сообщение # 2
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 253
Статус: Offline
zaruta, вечерком набросаю тебе, когда-то такое на Visual Basic триста лет назад делал biggrin
 
zarutaДата: Воскресенье, 13.01.2013, 15:31 | Сообщение # 3
Был не раз
Зарегистрирован: 25.12.2012
Группа: Пользователи
Сообщений: 10
Статус: Offline
Don_Diego Большое Спасибо, что откликнулись на просьбу, не ожидал так быстро! Буду ждать.
 
NeoДата: Воскресенье, 13.01.2013, 18:23 | Сообщение # 4
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Вот держи smile
Исправил маленько.
Прикрепления: 4842659.rar(159.2 Kb)
 
zarutaДата: Воскресенье, 13.01.2013, 19:02 | Сообщение # 5
Был не раз
Зарегистрирован: 25.12.2012
Группа: Пользователи
Сообщений: 10
Статус: Offline
Neo Спасибо! Печатает по буквенно-это отлично, но не блочит блокнот, клаву и мышь и диспетчер жив
....... хотелось бы, что бы после вывода текста, блокнот закрывался, диспетчер, клава и мышь разблокировались..
т.е все возвратилось на свои места!
 
xXxSh@dowxXxДата: Воскресенье, 13.01.2013, 19:28 | Сообщение # 6
Авторитетный
Зарегистрирован: 22.01.2012
Группа: Модераторы
Сообщений: 702
Статус: Offline
Вот еще кое что подобное, то же прикол, но не доделанный до конца, нашел уже очень давно где то на форуме smile
Прикрепления: matrix.rar(6.0 Kb)


Сообщение отредактировал xXxSh@dowxXx - Воскресенье, 13.01.2013, 19:29
 
Don_DiegoДата: Понедельник, 14.01.2013, 00:18 | Сообщение # 7
Продвинутый
Зарегистрирован: 16.04.2012
Группа: Пользователи
Сообщений: 253
Статус: Offline
Neo, и xXxSh@dowxXx, уже написали тебе. Ну я и от себя немного добавлю.


Теперь закрывает блокнот. Но, все же думаю было лучше как вначале, блокировать клавиатуру и мышь через BlockInput. Да, и учтите - не у всех стоит стандартный Notepad, например у меня AkelPad, и текст как бы на него накладывается, а не пишет в нем...


Сообщение отредактировал Don_Diego - Понедельник, 14.01.2013, 00:20
 
zarutaДата: Понедельник, 14.01.2013, 00:40 | Сообщение # 8
Был не раз
Зарегистрирован: 25.12.2012
Группа: Пользователи
Сообщений: 10
Статус: Offline
Don_Diego Огромное спасибо! Теперь Сам немного подстрою!
 
delphicode » Delphi » Вопросы по Delphi » Прошу помощи в проверке кода!!! (Прикол с блокнотом)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2020 Хостинг от uCoz