Inno Setup获取安装参数

function GetMyParam(PName:String):String;var  CmdLine : String;  CmdLineLen : Integer;  i : Integer;begin    CmdLineLen:=ParamCount();    for i:=0 to CmdLineLen do    begin    CmdLine:=ParamStr(i);    if CmdLine= PName then      begin          CmdLine:=ParamStr(i+1);          Result := CmdLine;          Exit;      end;    end;end;

转自：http://www.cnblogs.com/ahuo/archive/2009/07/30/1534998.html