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

Get command line arguments

GetCommandLineArgs$ sub