Discussion :

[Yepazix]

Hello,

Bon la question est conne, vous allez vous foutre de moi mais bon je me lance :

J'uttilise un composant Tmediaplayer.
Je charge dans Filename un fichier en faisant un truc du genre.

Mediaplayer1.Filename:='d:\sound\monfichier.wav';

Jusque la tout va bien.

Le souci c'est que quand j'aurai fini mon programme je le mettrai surement ailleurs, probablement dans c:\programfile\monprogramme\
donc le chemin serait c:\programfile\monprogramme\sound\monfichier.wav

je voudrais savoir s'il serait possible de définir les choses pour que le programme sache ou allez. le principe c'est que le dossier sound qui contiendra tous les sons sera toujours dans le dossier du programme.
Je voudrais donc faire un truc du genre :

Mediaplayer1.Filename:='dans le dossier du programme\sound\monfichier.wav';

Quelqu'un sait si c'est possible et comment ?

Merci.

[Andry]

Avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
{$WARN SYMBOL_PLATFORM OFF}
 AppDir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
{$WARN SYMBOL_PLATFORM ON}

AppDir pointera toujours au dossier d'installation de ton application.
Donc il te suffit de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Mediaplayer1.Filename:= AppDir + 'sound\monfichier.wav';

Voilà

[GoustiFruit]

Mince, dire que j'avais écrit mes propres fonctions pour inclure/exclure le slash/backslash final, alors que ça existait déjà !
Merci pour IncludeTrailingBackslash (IncludeTrailingPathDelimiter maintenant) !

[cincap]

@ Puce84, et le dossier "Sound" comment se crée t'il ?

Voici un lien qui permet de créer avec une fonction ce dossier et d'utiliser ton fichier.

http://www.developpez.net/forums/d68...gramme-delphi/

@+,

Cincap