home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / 0_credit.dir / 00008_Script_DanGetCommandArgs < prev   
Text File  |  2000-11-09  |  724b  |  26 lines
  1. on DanGetCommandArgs
  2.   -- API Declaration:
  3.   -- Declare Function GetCommandLine Lib "kernel32" () As String
  4.   
  5.   GLURegister("R100-71-14080863")
  6.   set getCmdLine = new(xtra "glu32")
  7.   set err = GLUNew(getCmdLine,"kernel32","GetCommandLine","S","V",0,0)
  8.   set cmdLine = GLUCall(getCmdLine)
  9.   
  10.   -- parse cmdLine to extract the arguments
  11.   if cmdLine starts QUOTE then
  12.     delete char 1 of cmdLine
  13.     set startChar = offset(QUOTE,cmdLine) + 1
  14.   else
  15.     set startChar = offset(SPACE,cmdLine) + 1
  16.   end if
  17.   
  18.   -- lTrim
  19.   repeat while char startChar of cmdLine = " "
  20.     set startChar = startChar + 1
  21.   end repeat
  22.   
  23.   set cmdArgs = char startChar to length(cmdLine) of cmdLine
  24.   
  25.   return cmdArgs
  26. end