Как открыть и сохранить mp3 файл в delphi?

[Rahim1993]

Как открыть и сохранить mp3 файл в Дельфи 7?

[Pitbull]

gпроигріваешь с помощью стандартного компонента(вкладка Sustem):

procedure TForm1.Button1Click(Sender: TObject);
begin
 if MediaPlayer1.Mode=mpPlaying then
  MediaPlayer1.Stop;

 if OpenDialog1.Execute then
    begin
      MediaPlayer1.FileName:=OpenDialog1.FileName;
      MediaPlayer1.Open;
      MediaPlayer1.Play;
    end;
end;

можно проиграть с помощью уже установленніх программ:

uses shellapi; //не забудьте его подключить

procedure TForm1.Button1Click(Sender: TObject);
var
 h: hwnd;

begin
    ShellExecute(h,'open','c:\1.mp3',nil,nil,SW_SHOW);
end;

Насчет сохранения, то напишите конкретно, что ві хотите.... Если просто изменить звук, то

рrocedure SetVolume(const volL, volR: Word); 
var 
  hWO: HWAVEOUT; 
  waveF: TWAVEFORMATEX; 
  vol: DWORD; 
begin 
  FillChar(waveF, SizeOf(waveF), 0);
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol := volL + volR shl 16; 
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO); 
end;

(не забудьте подключить модуль MMsystem)

[Rahim1993]

Спасибо, все получилось