Sound abspielen bei wechseln des Tabs einer PageControl ?

[DeddyH]

Ungetestet:

Delphi-Quellcode:

const
  SOUNDDIR = 'C:\Programm Files\Premaider\Livestreamtool\';
  
procedure TDeinForm.PageControlChange(Sender: TObject);
var
  SoundFile: string;
begin
  case PageControl.ActivePageIndex of
    0: 
      SoundFile := 'Sound1.wav';
    1:
      SoundFile := 'Sound2.wav';
    2:
      SoundFile := 'Sound3.wav';
    3:
      SoundFile := 'Sound4.wav';
    4:
      SoundFile := 'Sound5.wav';
    else
      SoundFile := '';
  end;
  if SoundFile <> '' then
    PlaySound(PChar(SOUNDDIR + SoundFile), 0, SND_FILENAME or SND_ASYNC);    
end;

[Premaider]

Zitat von DeddyH:

Ungetestet:

Delphi-Quellcode:

const
  SOUNDDIR = 'C:\Programm Files\Premaider\Livestreamtool\';
  
procedure TDeinForm.PageControlChange(Sender: TObject);
var
  SoundFile: string;
begin
  case PageControl.ActivePageIndex of
    0: 
      SoundFile := 'Sound1.wav';
    1:
      SoundFile := 'Sound2.wav';
    2:
      SoundFile := 'Sound3.wav';
    3:
      SoundFile := 'Sound4.wav';
    4:
      SoundFile := 'Sound5.wav';
    else
      SoundFile := '';
  end;
  if SoundFile <> '' then
    PlaySound(PChar(SOUNDDIR + SoundFile), 0, SND_FILENAME or SND_ASYNC);    
end;

Habe das ganze an mein Programm angepasst und es startet auch normal, doch wenn ich jetzt den Tab wechsle dann ertönt nur ein kurzes "beep" anstatt dem gewünschten Sound.

[DeddyH]

Dann lass Dir doch mal SOUNDDIR + SoundFile ausgeben und schau, ob es die Datei tatsächlich gibt.

Zitat:

SND_FILENAME
The pszSound parameter is a file name. If the file cannot be found, the function plays the default sound unless the SND_NODEFAULT flag is set.

[Gustav.R]

Bei Leerzeichen im Dateipfad emfehle ich Gänsefüßchen drumherum

GG

[DeddyH]

Die sind hier nicht nötig (zumindest auf meinem Rechner, gerade ausprobiert).