Programm als exe fertigstellen

[_frank_]

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