noch kleine Anmerkung...
Zitat von
Klaus01:
ExtractFilePath(Application.exeName)+'\sounds'
Zitat von
Delphi-Hilfe:
function ExtractFilePath(const FileName: string): string;
Beschreibung
Der zurückgegebene String enthält die Zeichen von FileName bis einschließlich des Doppelpunkts oder umgekehrten Schrägstrichs, mit dem die Pfadinformationen von Dateiname und Erweiterung getrennt werden.
somit muss es lauten:
ExtractFilePath(Application.exeName)+'sounds\'
Gruß Frank