Эта программа пригодится любителям MS-DOS а и Turbo Pascal-я

Программка проигрывает звуковой файл.

 

Нажмите File->New->Other->Console Application

 

 

program Project2;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils,

  MMSystem;

 

begin

PlaySound(PChar('c:\999.wav'),0,SND_FILENAME or SND_ASYNC or SND_NOSTOP);

Sleep(15000);

end.