Dossier d'execution

Oliv · Message par **Oliv** » mar. 20/avr./2004 15:48

Je n'arrive pas à retrouver la commande/APi qui permet de retrouver le dossier ou est exécuté le programme, pourtant que suis presque certain d'avoir lu comment faire ici ou sur le musée. Merci d'aider ma pauvre mémoire

Chris · Message par **Chris** » mar. 20/avr./2004 16:59

GetCurrentDirectory_() il me semble, mais j'en suis pas sur!

Chris

comtois · Message par **comtois** » mar. 20/avr./2004 17:02

http://purebasic.hmt-forum.com/viewtopic.php?t=293

Oliv · Message par **Oliv** » mar. 20/avr./2004 17:25

ahhh, merci

Heis Spiter · Message par **Heis Spiter** » mar. 20/avr./2004 18:07

http://heisspiter.no-ip.com/~purebasic/ ... ecution.pb

Oliv · Message par **Oliv** » mar. 20/avr./2004 19:26

merci

cederavic · Message par **cederavic** » mar. 20/avr./2004 19:28

http://www.serveurperso.com/~cederavic/ ... 2e06b654f3

Guimauve · Message par **Guimauve** » mar. 20/avr./2004 19:29

Si tu veux te faire une petite librairie avec Tailbite voiçi le source. La première retourne le nom du fichier exe de ton programme et l'autre le répertoire d'éxécution de ton programme.

Code : Tout sélectionner

; >>>>>>>>>>>>>>>>>>>>>>>>
; Codé par : Le Soldat Inconnu
; Ajusté par Guimauve
; Le 10 mars 2004
; Version  1.0
; <<<<<<<<<<<<<<<<<<<<<<<<

ProcedureDLL.s GetExeName() 
  ExeName.s = Space(255) 
  GetModuleFileName_(0, @ExeName, 255) 
  ProcedureReturn ExeName
EndProcedure 

ProcedureDLL.s GetExeDirectory()
 appdir.s = Space(255)
 GetCurrentDirectory_(255, @appdir)
 If Right(appdir, 1) <> "\"; si l'adresse ne finit pas par "\"
   appdir = appdir + "\"; on ajoute le "\"
 EndIf
 ProcedureReturn appdir
EndProcedure

Oliv · Message par **Oliv** » mar. 20/avr./2004 21:31

Merci à vous