Programm Verzeichniss herausfinden
Verfasst: 29.11.2005 20:32
Wie finde ich das Verzeichniss raus in dem meine Exe ist?
Geht das überhaupt?
Geht das überhaupt?
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
Procedure.s ExePath()
CompilerIf #exe=1
ExePath2.s = Space(1000)
GetModuleFileName_(0,@ExePath2,1000)
CompilerElse
ExePath2.s=""
CompilerEndIf
ProcedureReturn GetPathPart(ExePath2.s)
EndProcedure
Code: Alles auswählen
Procedure.s GetExePath()
Prg.s = Space(#MAX_PATH)
GetModuleFileName_(GetModuleHandle_(0), @Prg, #MAX_PATH)
Prg = GetPathPart(Prg)
If (FindString(prg,"\PureBasic\Compilers\", 1))
Prg.s = Space(#MAX_PATH)
GetCurrentDirectory_(#MAX_PATH,@Prg)
EndIf
If Right(Prg, 1) <> "\" : Prg + "\" : EndIf
ProcedureReturn Prg
EndProcedure
Code: Alles auswählen
getprogdir:
;{
buffer.s = Space(1000)
GetCurrentDirectory_(1000,@buffer)
progdir$ = buffer
startprefs$ = progdir$ + "\prefs\last.prefs"
Debug startprefs$
;}
Return ;getprogdir
weil die current in einem mutitasking-system von einem anderen task verändert werden kann...scholly hat geschrieben:Und warum reicht nicht einfach sowas ?
Äh... aber das benutzt TS-soft in seinem code doch auchKaeru Gaman hat geschrieben:weil die current in einem mutitasking-system von einem anderen task verändert werden kann...Und warum reicht nicht einfach sowas ?