GetCommandLineArgs$ sub

An example of using the Windows API to retrieve the entire command line, then parsing that line to extract just the arguments passed to the executable.
Ex:

• If cmdLine$ contains "C:\test.exe /switch", then args$ will be assigned the value "/switch"
• If cmdLine$ contains ""C:\test foler\test.exe" /someSwitch /anotherSwitch",
• args$ will be assigned "/someSwitch /anotherSwitch"

 
sub GetCommandLineArgs$ byref args$
q$ = chr$(34)
 
'API call returns pointer to a string
'containing command line contents
calldll #kernel32, "GetCommandLineA",_
pointer as ulong
 
'Use winstring() to actually get the string
'from pointer
cmdLine$ = trim$(winstring(pointer))
cLen = len(cmdLine$)
 
'Extract just the arguments from the variable
if (left$(cmdLine$, 1) = q$) then
qPos = instr(cmdLine$, q$, 2)
args$ = trim$(right$(cmdLine$, cLen - qPos))
else
pLen = len(word$(cmdLine$,1))
args$ = trim$(right$(cmdLine$, cLen - pLen))
end if
end sub