EnableExplicit

Procedure.s GetStrippedCommandLine()
  Define.s xResult
  Define.i xLong1

  xLong1 = GetCommandLine_()
  If xLong1
    xResult = PeekS(xLong1)
    If Left(xResult, 1) = Chr(34)
      xLong1 = FindString(xResult, Chr(34), 2)
      Else
      xLong1 = FindString(xResult, " ")
      EndIf
    If xLong1 = 0
      xResult = ""
      Else
      xResult = Trim(Mid(xResult, xLong1 + 1))
      EndIf
    EndIf
  ProcedureReturn xResult
  EndProcedure

; IDE Options = PureBasic 5.21 LTS (Windows - x86)
; CursorPosition = 2
; Folding = -
; EnableUnicode
; EnableXP