RealICQClient/Log/AudioCase.pas

unit AudioCase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, IdBaseComponent, IdVCard,
  DSPack, ACMWaveOut, ACMWaveIn, MPlayer, MMSystem, StdCtrls, cefvcl;

type
  TForm5 = class(TForm)
    btn1: TButton;
    Chromium1: TChromium;
    FilterGraph1: TFilterGraph;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.btn1Click(Sender: TObject);
begin
  PlaySound(PChar('C:\Users\luququ\Downloads\C7CC5EFD8369458822A7AE5DE4EBDF63.amr'),0,SND_ASYNC or SND_FILENAME);
end;

end.