Then begin

Animate1.StartFrame:=l;

Animate1.StopFrame:=Animate1.FrameCount;

Animate1.Active:=True;

Button1.caption:='Стоп';

RadioButton2.Enabled:=False;

End

Else

Begin

Animate1.Active:=False;

Button1.caption:='Пуск';

RadioButton2.Enabled:=True;

End;

End;

End.

comonAVi қасиетінің мәндері анимацияны анықтайды

	Мән	Анимация	Процесс
	АviCopyFiles		Файлды көшіру
	AviDeleteFile		Файлды алып тастау
	aviRecycleFile		Файлды корзинаға алып тастау

5.2. MediaPlayer компоненті

MediaPlayer компонентінің белгісі System парағында орналасқан. Ол видеороликтерді, дыбысты және ды быспен байланысқан анимацияны шығаруға мүмкіндік береді.

MediaPlayer компонентінің белгісі

.

MediaPlayer компоненті

MediaPlayer компонентінің батырмалары

5.3. Дыбысты шығару

Дыбыстық фрагменттер WAV кеңейтілуі бар файлдарда орналасқан. Мысалы, C:\Winnt\Media каталогында Windows стандартты дыбыстары бар файлдарды табуға болады.

Келесі программа WAV-файлдарда орналасқан дыбыстық фрагменттерді шығару үшін ediaPiayer компонентін пайдалану мүмкіндігін көрсетеді.

Microsoft Windows-тың дыбыстары программасының формасы

MediaPlayer1 компонентінің қасиеттерінің мәндері

Листинг:

unit WinSound_; interface

Uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, MPlayer;

Type

TForm1 = class (TForm)

MediaPlayerl: TMediaPlayer; // медиаплеер

Label1: TLabel;

ListBox1: TListBox;

Label2: TLabel;

procedure FormActivate(Sender: TObject);

procedure ListBoxlClick(Sender: TObject);

procedure MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;

var DoDefault: Boolean); private

{ Private declarations } public

{ Public declarations } end;

const

SOUNDPATCH='с:\winnt\media\';

Var

Form1: TForm1;