Get exe name?

Blitz3D Forums/Blitz3D Programming/Get exe name?

Kev
 #1
Hi Luke

decls

.lib "kernel32.dll"
GetModuleFileNameA%(hModule%,lpFileName*,nSize%):"GetModuleFileNameA"


an example
lpFileName = CreateBank(256)
str_len = GetModuleFileNameA(0,lpFileName,BankSize(lpFileName))

If str_len > 0 Then
	For grab_exe_name = 0 To str_len-1
		exe_name$ = exe_name + Chr(PeekByte(lpFileName,grab_exe_name))
	Next
EndIf

Print exe_name$
MouseWait
End


kev