| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
программа-заставка [D5, D6, WinXP]
vaxluk © (2005-06-01 17:27:00)Подскажите пожалуйста, как можно из avi-файла в delphi сделать программу-заставку?
Kerk (2005-06-03 15:38:00) [1]XProger © (02.06.05 3:22) [4]
во! оно :)
Kerk (2005-06-03 15:37:00) [2]WondeRu © (02.06.05 22:49) [6]
не будет кошерным?
Не будет работать предпросмотр в диалоге выбора скринсейвера, не будет диалога настройки и т.д. Ничего не будет.
WondeRu (2005-06-02 22:49:00) [3]Kerk © (02.06.05 19:03) [5]
Вот только это не будет скринсевером в полном смысле :)
не будет кошерным?
Kerk (2005-06-02 19:03:00) [4]XProger © (01.06.05 21:02) [1]
Вот только это не будет скринсевером в полном смысле :)
XProger (2005-06-02 03:22:00) [5]http://www.delphimaster.ru/articles/screensaver/index.html
а вот это для хардкорщиков ;)
XProger (2005-06-01 21:53:00) [6]WondeRu, даю в зависимости от настроения ;)
Но могу и послать
http://web.ict.nsc.ru/~cancel/delphi/scrsave.html
WondeRu (2005-06-01 21:14:00) [7]XProger © (01.06.05 21:02) [1]
давно слежу за твоими ответами... всегда по делу, молодец!!!
Но... ты не думал, что давать нужно лишь направление, а не готовое решение?
XProger (2005-06-01 21:02:00) [8]Берёшь TMediaPlayer кидаешь на форму
Кидаешь TPanel на форму Align := alClient;
У MediaPlayer1 ставишь Display в Panel1
Далее в свойствах формы
BorderStyle := bsNone;
WindowState := wsMaximized;
FormStyle := fsNormal;
Затем в событии onCreate формы пишешь:
MediaPlayer1.FileName := 'video.avi';
MediaPlayer1.Open;
MediaPlayer1.Play;
А в событии onKeyDown:
Close;
Затем компилируешь проект, и готовый ехе переименовываешь в *.scr
Ну и остаётся скинуть этот файл в системную директорию винды :)
Удачи!
| |
