XProfan

cls
print catchparams()
waitkey
end

catchparams{

    if parcount {

        string s

        whileloop parcount {

            s:=s+par$(loop)+

        }

        return trim$(s)

    }

    return

=#0000FF>}

proc catchparams

    if %parcount

        declare s$

        whileloop %parcount

            s$ = s$ + par$(&loop) +

        EndWhile

        return trim$(s$)

    else

        return

    endif

endproc

cls
print catchparams()
waitinput
end

Proc CatchParams

    Declare s$

    WhileLoop %ParCount

        s$ = s$ + Par$(&Loop) +

    EndWhile

    Return Trim$(s$)

EndProc

Cls
Print CatchParams()

proc catchparams()

    return string$(external(kernel32,GetCommandLineA),0)

endproc

print catchparams()
waitkey
KompilierenMarcaSeparación
catchparams{

    volver cadena$(getcommandline(),0)

}

imprimir catchparams()
waitkey
end
escribir.