[DyaДько]

Код:

function GetTempDirectory: String;
var
  tempFolder: array[0..MAX_PATH] of Char;
begin
  GetTempPath(MAX_PATH, @tempFolder);
  result := StrPas(tempFolder);
end;

procedure FormCreate(Sender: TObject);
var 
Res : TResourceStream;
begin
Res:=TResourceStream.Create(Hinstance, 'SONG1', RT_RCDATA);
Res.SavetoFile(GetTempDirectory + '\1.mp3');
Res.Free;
end;

procedure TForm1.Play(path:string);
begin
if not FileExists(path) then begin
MessageBox(Form1.Handle,'Файл для воспроизведения не найден',
'Ошибка открытия файла',MB_OK or MB_ICONEXCLAMATION)
exit;
end; 
MediaPlayer1.FileName:=path;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;