[Gakuro]

Помогите плизз!!!
Не могу открыть wav-файл посредством PlaySound из OpenDialog (Button1 открывает диалог, Button2 играет файл):

Код:

uses MMSystem;

var myfile:PAnsiChar;

procedure TForm1.eventOnClick(Sender: TObject);
begin
  if sender=Button1 then
  begin
     if OpenDialog.Execute then myfile:=OpenDialog.Files.GetText
     else exit;
  end;
  if sender=Button2 then PlaySound(myfile,0,SND_ASYNC);
end;

Админ: Пользуемся тегами для оформления кода!

И ничего не играет, только раздаётся системный звук!

[NumLock]

Код:

  if OpenDialog1.Execute then
    PlaySound(PAnsiChar(OpenDialog1.FileName), 0,
      SND_FILENAME or SND_ASYNC or SND_NODEFAULT);

[Gakuro]

Это понятно, это работает. Дело в том, что мне надо имя файла сохранить как переменную, тк он (те она) используется потом, посля закрытия диалога. И с ini-файла PlaySound тож не хочет открывать..

[NumLock]

и в чем проблема:

Код:

var
  Form1: TForm1;
  s: String;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then s:=OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PlaySound(PAnsiChar(s), 0, SND_FILENAME or SND_ASYNC or SND_NODEFAULT);
end;

?