MeiaPlayer

[IkaMazini]

Возможно использовать кое-что другой код?

procedure TForm1.Button1Click(Sender: TObject);
begin
*with MediaPlayer1 do
begin
*MediaPlayer1.FileName := 'min.wav';
*AutoRewind := true;
*Open;
try
*Wait := True;
*Play;
finally
*Form1.Close;
*end;
end;
end;

[vasketsov]

Не понятно, чего Вы хотите получить в итоге. Напишите подробнее.

[IkaMazini]

procedure TForm1.Button2Click(Sender: TObject);
begin
 if OpenDialog3.Execute then
begin
 AssignFile(f, OpenDialog3.FileName);
 Reset(f);
try
 size := FileSize(f);
 GroupBox1.Caption := 'File Size is ' + IntToStr(size) + ' Byte';
finally
 CloseFile(f);
 Edit1.Text := OpenDialog1.FileName;
 end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
MediaPlayer1.FileName := 'min.wav';
AutoRewind := true;
Open;
try    //здес что-то не так
Wait := True;
Play;
finally
Form1.Close;
end;
end;
end;


Добавлено:

var
   f: file;
   size: Longint;

Добавлено:

vasketsov    

[ivank]

Ура! Ура! Ура! Васкецов вернулся!

Модераторы, не штрафуйте меня, я больше небуду. Просто я очень рад.

[hasherfrog]

:rotate: ivank Ну что, что?.. Я и сама офигела... (с)

[mar]

ой! и мой респект 2vasketsov до кучи :)

[vasketsov]

ivank
Да я не то чтобы и пропадал :)



Добавлено:

IkaMazini
А что именно не так? Ну, ошибка какая-то или что? Описание есть ее, чтоб им поделиться?