{ Private declarations } public
{ Public declarations } end;
const
SOUNDPATCH=':\winnt\media\';
Var
Form1: TForm1;
Implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
Var
SearchRec: TSearchRec;
Begin
Form1.MediaPlayer1.Play;
if FindFirst(SOUNDPATCH+'*.wav', faAnyFile, SearchRec) =0 then
Begin
Form1.ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;
procedure TForm1.ListBoxlClick(Sender: TObject);
Begin
Label2.Caption:=ListBox1.Items[ListBox1.itemlndex];
procedure TForm1.MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;
VarDoDefault: Boolean); begin
if (Button = btPlay) and (Label2.Caption <> '') then
Begin
WithMediaPlayerl do begin
FileName:=SOUNDPATCH+Label2.Caption;
Open;
end;
end;
end;
End.
қ ү Windows-ң құғ ғ . ү | | | | ң .
ң қ
WAV- ү құ. ң қ ө қ . ү ң . ң ғ ң ү ң . ғ ө .
қ
қ
, , , - ,
қ ү .
қ ғ
MediaPlayer- қ ң
MediaPlayer1 ң қң ә
Қ | ә | ||
Name | MediaPlayer1 | ||
FileName | delphi.avi | ||
DeviceType | dtAVIVideo | ||
AutoOpen | True | ||
Display | Panel1 | ||
Visible | False |
:
Uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls,
Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;
Type
TForm1 = class (TForm)
Label1: TLabel; Panel1: TPanelButton1: TButtonMediaPlayer1: TMediaPlayer; procedure ButtonlClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
|
|
Private
{ Private declarations) public
{ Public declarations } end;
Var
Form1: TForm1;
Implementation
($R *.DFM}
procedure TForm1.ButtonlClick(Sender: TObject);
Begin
MediaPlayer1.Play;
end;
procedure TForm1.FormCreate(Sender: TObject);
Begin
MediaPlayer1.DisplayRect:=Rect(0,0,60,60);
end;
End.
құ
:
ң
7...
ұ ү Macromedia Flash 5 қғ .
Movie
Movie Properties
ә ғ . ү: қ, ө қ құ ..
құ ү Insert Keyframe ң .ә ңғ қ. ғ . құ.
ғ ү ә қ қғ ү . ү File Import ң қ ң қ .: