How to get the exe directory

[Mistrel]

Here is a neat thing you can do if you ever get lost in your current directory. :roll:

Code: Select all

Define lpme.MODULEENTRY32

h=CreateToolhelp32Snapshot_($00000008,GetCurrentProcessId_())
lpme\dwSize=SizeOf(MODULEENTRY32)
Module32First_(h,@lpme)

For i=0 To 255
	module.s+Chr(lpme\szModule[i])
Next i

For i=0 To 259
	path.s+Chr(lpme\szExePath[i])
Next i

Debug module.s
Debug path.s

[Fluid Byte]

Same result, less code:

Code: Select all

Filename$ = Space(#MAX_PATH)
GetModuleFileName_(0,Filename$,#MAX_PATH)
Debug GetFilePart(Filename$) : Debug Filename$

[PB]

And even less code and natively:

Code: Select all

Debug ProgramFilename()

[Mistrel]

Thanks for the tip, Fluid Byte!

And even less code and natively:

Code: Select all

Debug ProgramFilename()

Less code, yes. But this doesn't return the value I need from within a dll.