[casperock]

Сообщение от Alegun

Извнт за ляп, тогда отмена, попробуйте вот так

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then
  begin
   MediaPlayer1.FileName:='1.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
  end;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_LEFT then MediaPlayer1.Stop;
end;

З.Ы. Тяжело без делфи код под неё собирать, извнт :-)

Спасибо за старание помочь, но увы((
Сейчас заметил такую штуку, если запустить программу и сразу нажимать стрелочки - вылазит "No MCI device open", а если нажать мышкой, а потом стрелочки - ошибки уже нет. Но и воспроизведения тоже.

Это не может быть из-за того что у меня Window 7?