GetExePath

[Charles Pegge]

Extraction of ExePath from the commandline:

Code: [Select]


'include $/inc/minwin.inc

! GetCommandline "GetCommandLineA" lib "kernel32.dll"

function GetExePath() as string
================================
char* s=getCommandline
byte *b=strptr s
sys bb=@b,bs=@b,mm=0,ms=0
do
  select case b
  case 0  : exit do
  case 32 : if mm=0 : exit do '   space (no quote at start)
  case 34 : if mm   : exit do ' " double quote
            mm=@b
            bs=@b+1
  case 47 : ms=@b             ' / fwd slash
  case 92 : ms=@b             ' \ back slash
  end select
  @b++
end do
if ms then return mid s,bs-bb+1,ms-bs+1 'includes end slash
end function

print GetExePath



[Charles Pegge]

More directly, using GetModuleFileName

Code: [Select]

! GetModuleFileName "GetModuleFileNameA" lib "kernel32.dll"


function GetExePath() as string
===============================
char s[256]
byte *b=strptr s
GetModuleFileName 0,@b,256
sys i
do
  select b
  case 0  : exit do
  case 92 : i=@b
  end select
  @b++
end do
return left s,i-strptr(s)+1 'includes final slash
end function

print GetExePath