Sound in Anwendung

[Tommy1988]

so nochmal probiert mit ner wave.. klappt trotzdem nicht..

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils,
  mmsystem,
  Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R sound.RES}

procedure TForm1.Button1Click(Sender: TObject);
begin

PlaySound(PChar('1'), hInstance, snd_Resource or snd_aSync);
end;

end.

rc-datei:
1 WAVE "sound.wav"