program priorityrun;

uses
  runutils,
  windows,sysutils;

var param,runs:string;
    i:integer;
    pri:cardinal;

begin
  param:='';
  runs:=paramstr(2);
  case strtointdef(paramstr(1),-1) of
       0:pri:=IDLE_PRIORITY_CLASS;
       1:pri:=NORMAL_PRIORITY_CLASS;
       2:pri:=HIGH_PRIORITY_CLASS;
       3:pri:=REALTIME_PRIORITY_CLASS;
       else begin
            param:=paramstr(1);
            pri:=HIGH_PRIORITY_CLASS;
            runs:=paramstr(1);
            end;
       end;
  for i := 3 to paramcount do begin
      param:=param+' '+paramstr(i);
      end;
  run(runs,param,pri);
end.