How to get command line arguments

[tekrat]

Theres been a ton of questions on how to get the command line arguments.  Here's how:

Code Select Expand


$USE "wininet.lib"

DECLARE "wininet",GetCommandLineA(),STRING

print GetCommandLineA()

input ""


One thing to remember is that this will return what is typed (or shelled from Windows) to run the file is returned.  So say you compiled this file to a program name "cli.exe".  Then you typed from a shell or run the program from a batch like this:

Code Select Expand


cli This is my message.


The GetCommandLineA() function will return:

Code Select Expand


cli This is my message.


Now if you put the cli.exe in a folder called "c:\Program Files\My CLI Test" and then create a Windows shortcut to your "c:\Program Files\My CLI Test\cli.exe" this what GetCommandLineA() function will return:

Code Select Expand


"c:\Program Files\My CLI Test\cli.exe"


Note the quote marks.  So you will have to be careful on parsing the quote marks.

[Ionic Wind Support Team]

Here is a little subroutine I use that among other things extracts all of the command line parameters.  You should be able to modify it for your own use.

Code Select Expand


DECLARE IMPORT, CommandLineToArgvW(lpCmdLine as WSTRING, pNumArgs as POINTER),POINTER
DECLARE IMPORT, GlobalFree(hMem as UINT),INT
....
Sub RunProcess(string _command)
pointer _pszArglist
word _nArgs
int _i
string _exe,_params:_params = ""
   _pszArglist = CommandLineToArgvW(s2w(_command), &_nArgs)
if(_nArgs<>0)
_exe = w2s(*<WSTRING>*<POINTER>_pszArglist)
for _i=1 to _nArgs-1
_params += w2s(*<WSTRING>*<POINTER>(_pszArglist+(_i*4))) + " "
next _i
System _exe,_params
endif
if(_pszArglist) then GlobalFree(_pszArglist)
Endsub