Process Priorität setzen - als Variable...

[Christian Seehase]

Moin DRPEnc,

also ich kann da nichts Falsches sehen und (allgemein unbeliebte Ergänzung ): Bei mir funktioniert's.

Was geht denn nicht?

BTW:
Ich hab' noch mal die FormCreate und ComboBox1Change etwas "überarbeitet"

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Style:=csDropDownList;
  ComboBox1.Items.AddObject('Idle Priorität',TObject(IDLE_PRIORITY_CLASS));
  ComboBox1.Items.AddObject('Normale Priorität',TObject(NORMAL_PRIORITY_CLASS));
  ComboBox1.Items.AddObject('High Priorität',TObject(HIGH_PRIORITY_CLASS));
  // Normal als Default auswählen
  ComboBox1.ItemIndex := 1;
  // die Ereignisroutine aufrufen, passiert bei Zuweisung an ItemIndex nicht
  ComboBox1Change(nil);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);

// Mit einer Liste wird's etwas übersichtlicher

const
  _asPriorities : array [0..2] of String = ('IDLE','NORMAL','HIGH');

begin
  Edit1.Text := _asPriorities[ComboBox1.ItemIndex];
  // Nur um zu zeigen, dass auch jeweils eine andere Konstante ausgewählt wird
  Edit2.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;