Discussion :

[cincap]

Bonjour à toutes et à tous,

Petite question, quand j'exécute un TOpenDialog (op1), j'utilise sa propriété "initialdir", donc la logique voudrait que ceci soit exact :

Dans le Oncreate :

Code :

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

1
2
3
 
 
 op1.InitialDir :=  ExtractFilePath(Application.ExeName);

Test :

1) j'ai deux dossier nommé "1" et "2", je copie mon application dans le dossier "1" et je l'execute, lors du choix de mon fichier avec un TOpenDialog, je peux charger ce qui se trouve dans ce dossier "1".

2) je copie mon application dans le dossier "2" et je l'execute, en principe lors du choix de mon fichier avec un TOpenDialog, je devrai charger ce qui se trouve dans ce dossier "2" et pourtant, il me ramène au dossier "1".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TFchoix.BmusiqueClick(Sender: TObject);
begin
chappli := ExtractFilePath(Application.ExeName);
 
op1.InitialDir := ExtractFilepath(Application.ExeName);
//Op1.Options := [ofNoChangeDir];
op1.Filter:='Tous (*.mp3; *.Wav; *.Mid; *.Wma)|*.mp3; *.Wav; *.Mid; *.Wma|MP3 (*.mp3)|*.mp3|Wav (*.wav)|*.wav|Midi (*.mid)|*.mid|Wma (*.wma)|*.wma';
 
if not op1.Execute then
 
exit else begin
 
...............;

Edit : j'ai essayé aussi en créant directement mon TOpenDialog sans résultat !

Existe t'il une explication ?

Merci d'avance,

Cincap

[diden138]

Bonjour,
C'est un bug connu sous certaines version de windows dis nous ton environnement, en faite il faut forcer le changement de répertoire, allez un petit bout de code

Code :

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

1
2
3
4
5
6
 
chappli := ExtractFilePath(Application.ExeName);
 
ForceCurrentDirectory := True;
 
SetCurrentDir (chappli);

Voila, tu l'a compris on force le changement de répertoire courant, et on utilise SetCurrentDir au lieu de InitialDir


Cordiales Salutations,

[cincap]

@ Diden138, excellent et bien vu, je n'avais pas trouvé de réponse à ce sujet sur les forums ou j'ai mal interprété.

Sur XP pas de problème pourtant !

Sinon je suis sous Seven 64Bits et D6.

Encore merci,

@+,

Cincap