нужен текст проги который бы показывал следующее: компьютер стоит-полтом включается-потом пишется авторизуйтесь-потом как бы происходит авторизация и пишется (допустим)пусть имя вася-потом комп принимает инфу-чуть чуть комп думает-и выдает-это не ваш компьютер! плиз кто может помочь-мне такая прога оч сильна нужна!хелп!!! ВСЕМ ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!)))
компьютер стоит-полтом включается-потом пишется авторизуйтесь-потом как бы происходит авторизация и пишется (допустим)пусть имя вася-потом комп принимает инфу-чуть чуть комп думает-и выдает-это не ваш компьютер!
А дальше-то что ? Прога должна завершать работу винды ? И соответственно запуск самой проги должен производить при старте винды ? Это на каком паскале тебе надо ? Их много и не каждый такое провернуть сможет...
Или нужна просто бутафорская шутка ? Которая запрашивает ввод а потом выводит надпись ?
--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
А дальше-то что ? Прога должна завершать работу винды ? И соответственно запуск самой проги должен производить при старте винды ? Это на каком паскале тебе надо ? Их много и не каждый такое провернуть сможет...
Или нужна просто бутафорская шутка ? Которая запрашивает ввод а потом выводит надпись ?
нужна просто програмка-я ее запушу с рабочего стола или с папки!))все намного легче!)))
Решение для object pascal (Delphi, короче): с помощью чего-нибудь типа Macromedia Flash рисуете нужный вам мультик, после чего сохраняете его в виде avi, после чего проигрываете его с помощью стандартного дельфийского компонента (TMediaPlayer, если я не ошибаюсь). Решение для Turbo Pascal: с помощью чего-нибудь типа Macromedia Flash рисуете нужный вам мультик, причём все картинки делаете 320 на 200 и 256 цветов, после чего сохраняете его в виде BMP Sequense (вроде так это слово пишется), после чего на Паскале делаете графический режим 320X200X256 (последнее число - цветов, а не бит), как это делается - можно узнать где угодно, и по одной грузите эти картинки (как грузить бээмпэшки - можно узнать где угодно) и показываете. Если винчестер и комп не тормоза, то должно нормально отображаться без тормозов. А задержку между кадрами в 55 милисекунд можно сделать так:
... var Time: longint absolute $0040: $006C; T: longint;
... {здесь понадобилось сделать задержку} while T = Time do; {точку с запятой здесь нельзя забывать} T := Time; ...
Так как вы мне ничего конкретного, что вам именно надо, не сказали, то я сказал самый дубовый и самый общий метод проигрывания заставок.
Решение для object pascal (Delphi, короче): с помощью чего-нибудь типа Macromedia Flash рисуете нужный вам мультик, после чего сохраняете его в виде avi, после чего проигрываете его с помощью стандартного дельфийского компонента (TMediaPlayer, если я не ошибаюсь). Решение для Turbo Pascal: с помощью чего-нибудь типа Macromedia Flash рисуете нужный вам мультик, причём все картинки делаете 320 на 200 и 256 цветов, после чего сохраняете его в виде BMP Sequense (вроде так это слово пишется), после чего на Паскале делаете графический режим 320X200X256 (последнее число - цветов, а не бит), как это делается - можно узнать где угодно, и по одной грузите эти картинки (как грузить бээмпэшки - можно узнать где угодно) и показываете. Если винчестер и комп не тормоза, то должно нормально отображаться без тормозов. А задержку между кадрами в 55 милисекунд можно сделать так:
... var Time: longint absolute $0040: $006C; T: longint;
... {здесь понадобилось сделать задержку} while T = Time do; {точку с запятой здесь нельзя забывать} T := Time; ...
Так как вы мне ничего конкретного, что вам именно надо, не сказали, то я сказал самый дубовый и самый общий метод проигрывания заставок.
мне нужна просто прога-в графическом режиме паскаля!!)))