#include "windows.bi"
Declare Function __getmainargs Cdecl Alias "__getmainargs" (Byval As Integer Ptr,_
Byval As Zstring Ptr Ptr Ptr,Byval As Zstring Ptr Ptr Ptr,_
Byval As Integer,Byval As LPSTARTUPINFO) As Integer
Dim As Integer argc
Dim As ZString Ptr Ptr argv
Dim As ZString Ptr Ptr env
Dim As Integer sinfo
Dim As Integer i
sinfo=0
__getmainargs(@argc,@argv,@env,0,Cast(LPSTARTUPINFO,@sinfo))
For i=0 To argc-1
Print "Cmdline parameter " & i & " = " & **argv
argv=argv+1
Next i
#include "windows.bi"
Declare Function __getmainargs Cdecl Alias "__getmainargs" (Byval As Integer Ptr,_
Byval As Zstring Ptr Ptr Ptr,Byval As Zstring Ptr Ptr Ptr,_
Byval As Integer,Byval As LPSTARTUPINFO) As Integer
Dim As Integer argc
Dim As ZString Ptr Ptr argv
Dim As ZString Ptr Ptr env
Dim As Integer sinfo
Dim As Integer i
sinfo=0
__getmainargs(@argc,@argv,@env,0,Cast(LPSTARTUPINFO,@sinfo))
For i=0 To argc-1
Print "Cmdline parameter " & i & " = " & **argv
argv=argv+1
Next i
Thanks for sharing. It's always good to have alternatives.
'Show every arguments
Dim ArgCount As LONG
Dim pArgArray As LPWSTR Pointer = CommandLineToArgvW(GetCommandLineW(), @ArgCount)
For index As LONG = 0 TO ArgCount - 1
Print Str(index) & ") [" & *pArgArray[index] & "]"
Next : Print
LocalFree(pArgArray)
'Show full command line
Dim pCommand As LPWSTR = GetCommandLineW()
Print "GetCommandLineW [" & *pCommand & "]" : Print
'Show full command line without path name
Dim pArgument As LPWSTR = PathGetArgsW(pCommand)
Print "PathGetArgsW [" & *pArgument & "]" : Print
'Show full path name without arguments
PathRemoveArgsW(pCommand)
Print "PathRemoveArgsW [" & *pCommand & "]" : Print