Repeat Funktion

[lebbesch007]

Vielen Dank für deine Bemühungen aber irgendwie scheint es, obwohl ich alles so gemacht habe immer noch nicht zu Funtionieren (mein Code

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.nfm}

{$R hintergrund.res}

procedure TForm2.FormCreate(Sender: TObject);
begin

end;

procedure Hintergrundklang(AnAus: boolean);
begin
  if AnAus then
    PlaySound('hintergrund', hInstance, SND_ASYNC or SND_LOOP or SND_RESOURCE)
  else
    PlaySound(nil, hInstance, 0);
end;

end.

PlaySound, hinstance etc, streicht Delphi rot an!
Die Datei hintergrund.res befindet sich im Verzeichnis.