Aide qui aura le besoins
Code : Tout sélectionner
;exemples de 3 fonctions intéressantes :
; GetCurrentDirectory_
; SearchPath_
; SetCurrentDirectory_
Procedure.s path(fichier$) ;petite procedure pour récuperer le chemin d'un nom de fichier
i=Len(fichier$)
Repeat
i=i-1
Until Mid(fichier$,i,1)="\"
Path$=Left(fichier$,i)
ProcedureReturn Path$
EndProcedure
;Quelque fonction bien utile pour récupérer les noms de répertoires
rep.s=Space(256) ; bien définir la variable sinon ça plante....
;Tout d'abord le répertoire courant
GetCurrentDirectory_(256,rep)
MessageRequester("rep_courant : ",rep,0)
;Le répertoire qui contient notre executable
;tres interessant dans des cas tel celui ci :
; - pour un logiciel type lecteur : film, photo, musique, texte....
; lorsque l'on utilise un fichier ini pour garder les parametre utilisateur
; et que l'on veux pouvoir appeler le logiciel en cliquant sur un fichier dans l'explorateur
; on a besoin de connaitre le repertoire où est le logiciel
SearchPath_(NULL,"repertoire.exe",NULL, 256, rep,NULL );
MessageRequester("rep logiciel : ",path(rep),0)
;On peut directement changer le répertoire courant pour que le logiciel marche comme lorsque l'on clique dessus
SetCurrentDirectory_(path(rep))
;Vérification du répertroire courant
GetCurrentDirectory_(256,rep)
MessageRequester("rep_courant apres changement : ",rep,0)
Compiler le code avec le nom repertoire.exe
Créer un raccourci dans un autre répertoire
Changer le répertoire " Démarrer dans :" dans les options du raccourci
et
