программа-заставка

← →
vaxluk (2005-06-01 17:27) [0]

Подскажите пожалуйста, как можно из avi-файла в delphi сделать программу-заставку?

← →
XProger © (2005-06-01 21:02) [1]

Берёшь 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
Ну и остаётся скинуть этот файл в системную директорию винды :)

Удачи!

← →
WondeRu © (2005-06-01 21:14) [2]

XProger © (01.06.05 21:02) [1]

давно слежу за твоими ответами... всегда по делу, молодец!!!
Но... ты не думал, что давать нужно лишь направление, а не готовое решение?

← →
XProger © (2005-06-01 21:53) [3]

WondeRu, даю в зависимости от настроения ;)
Но могу и послать
http://web.ict.nsc.ru/~cancel/delphi/scrsave.html

← →
XProger © (2005-06-02 03:22) [4]

http://www.delphimaster.ru/articles/screensaver/index.html
а вот это для хардкорщиков ;)

← →
Kerk © (2005-06-02 19:03) [5]

XProger © (01.06.05 21:02) [1]

Вот только это не будет скринсевером в полном смысле :)

WondeRu © (02.06.05 22:49) [6]
не будет кошерным?

Не будет работать предпросмотр в диалоге выбора скринсейвера, не будет диалога настройки и т.д. Ничего не будет.

программа-заставка Найти похожие ветки