如何提取EXE命令后的参数

Question

var
  szTemp : pChar;
  strVal: string;
begin        szTemp := StrScan(Cmdline,' ');    
       strVal:= StrPas(SzTemp+1);

Answer 1

例如：Sample.exe -I '001' -U 'Lxm'获取参数的代码  for iCount=0 to ParamCount do
  begin
    if ParamStr(iCount)=’-I’ then begin
      if ParamCount>iCount+1 then sID:=ParamStr(iCount+1);
    end else if ParamStr(iCount)=’-U’ then begin
      if ParamCount>iCount+1 then sUser:=ParamStr(iCount+1)；
    end; 
  end;