Скачать: CL | DM;

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

← →
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 ©   (2005-06-02 22:49) [6]

Kerk ©   (02.06.05 19:03) [5]
Вот только это не будет скринсевером в полном смысле :)

не будет кошерным?

---

← →
Kerk ©   (2005-06-03 15:37) [7]

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

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

---

← →
Kerk ©   (2005-06-03 15:38) [8]

XProger ©   (02.06.05 3:22) [4]

во! оно :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c