Por supuesto hay que probar desde fuera del Entorno para que no lance una excepción, en realidad se se capturan dentro del procedimiento que los vaya a utilizar. Tan sólo se precisa la función ParamStr(valor_integer) para recuperarlos. Si el “valor_integer” que pasamos es 0, devolverá el nombre del ejecutable con su ruta. Si es distinto de 0 el parámetro según el orden en que los hayamos pasado.
procedure TForm1.FormActivate(Sender: TObject); Var varParametro : String; Begin if ParamCount = 1 Then begin varParametro:=ParamStr(1); Showmessage(varParametro); end else raise exception.create('Parámetro inexistente'); End;
Ważne artykuły