Запуск приложения с приоритетом

[GunSmoker]

CreateProcess.

[Shouldercannon]

Вот что получилось

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.ItemIndex := 0;
  ComboBox1.OnChange(Self);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
  0: Priority := 'REALTIME_PRIORITY_CLASS'; // Реального времени
  1: Priority := 'HIGH_PRIORITY_CLASS'; // Высокий
  2: Priority := 'ABOVENORMAL_PRIORITY_CLASS'; // Выше среднего
  3: Priority := 'NORMAL_PRIORITY_CLASS'; // Средний
  4: Priority := 'BELOWNORMAL_PRIORITY_CLASS'; // Ниже среднего
  5: Priority := 'LOW_PRIORITY_CLASS'; // Низкий
  end;
end;

procedure TForm1.BStartClick(Sender: TObject);
var
  Application, Params: string;
  pi: TProcessInformation;
  si: TStartupInfo;
begin
  FillChar(si, SizeOf(TStartupInfo), 0);
  si.cb:=SizeOf(TStartupInfo);

  Application := EPath.Text + EEXEName.Text;
  Params := ' ' + ECommandLine.Text;
  CreateProcess(PChar(Application), PChar('"' + Application + '" ' + Params), nil, nil, False, Priority, nil, nil, si, pi);
end;

надеюсь, что два последних параметра задал правильно для приложения данного типа (скрин).

Никак не могу задать в CreateProcess приоритет через переменную Priority

[Пепел Феникса]

а скрин к чему?
должен задаватся, на крайняк используйте хендл из pi и меняйте еще раз приоритет

[Shouldercannon]

а скрин к чему?

Чтобы показать, что за приложение. Может ему нужны какие-то особые привелегии.

Как правильно задать приоритет для процесса из переменной? Так как я показал на приведённом выше коде не работает
[Error] Unit1.pas(66): Incompatible types: 'Cardinal' and 'String'

[Пепел Феникса]

дык у нас приоритет разве строками задается?
там помоему константы аля REALTIME_PRIORITY_CLASS(а вы строки написали)

[Shouldercannon]

Не распознаются в Delphi 7 приоритеты
ABOVE_NORMAL_PRIORITY_CLASS // Выше среднего
BELOW_NORMAL_PRIORITY_CLASS // Ниже среднего
в чём ошибка?

[Пепел Феникса]

посмотри в MSDN значения констант(если что то 0x меняем на $)
и впиши к себе, видимо не полные заголовочники

[GunSmoker]

Params := ' ' + ECommandLine.Text;

Пробел лишний. Он и так есть при склейке.

[Shouldercannon]

Сообщение от GunSmoker

Пробел лишний. Он и так есть при склейке.

Спасибо

Вот приоритеты в const

const
  REALTIME_PRIORITY_CLASS = $00000100;
  HIGH_PRIORITY_CLASS = $00000080;
  AABOVE_NORMAL_PRIORITY_CLASS = $00008000;
  NORMAL_PRIORITY_CLASS = $00000020;
  BELOW_NORMAL_PRIORITY_CLASS = $00004000;
  IDLE_PRIORITY_CLASS = $00000040;

Как теперь нужный из них подставить на место NORMAL_PRIORITY_CLASS в CreateProcess, предварительно выбрав в ComboBox?

[Пепел Феникса]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
  0: Priority := REALTIME_PRIORITY_CLASS; // Реального времени
  1: Priority := HIGH_PRIORITY_CLASS; // Высокий
  2: Priority := ABOVENORMAL_PRIORITY_CLASS; // Выше среднего
  3: Priority := NORMAL_PRIORITY_CLASS; // Средний
  4: Priority := BELOWNORMAL_PRIORITY_CLASS; // Ниже среднего
  5: Priority := LOW_PRIORITY_CLASS; // Низкий
  end;
end;

Priority это integer