Proces priotet

procedure SetPriorityState(Index: integer);
begin
  case Index of
    0:
      begin
        SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
        SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
      end;
    1:
      begin
        SetPriorityClass(GetCurrentProcess, HIGH_PRIORITY_CLASS);
        SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_HIGHEST);
      end;
    2:
      begin
        SetPriorityClass(GetCurrentProcess, HIGH_PRIORITY_CLASS);
        SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_ABOVE_NORMAL);
      end;
    3:
      begin
        SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
        SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_NORMAL);
      end;
    4:
      begin
        SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
        SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_BELOW_NORMAL);
      end;
    5:
      begin
        SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
        SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_LOWEST);
      end;
  end;
end;

Samme orden som dem i ctrl+alt+del, så bare se hvad de hedder der

Jeg har et problem med koden... Når jeg siger:
Over normal så går den til høj
og under normal så går den til normal
og hvis jeg siger lav går den også op på normal...

Hvad kan det være??

//jonat

Men de andre fungere godt nok..

//jonat

{
  The SetPriorityClass function sets the priority class for
  the specified process. This value together with the
  priority value of each thread of the process determines
  each thread's base priority level. }

{ SetPriorityClass setzt die Priorität Klasse eines bestimmten Prozesses.}

//**************************************************

SetPriorityClass(hProcess, dwPriorityClass);

{
  hProcess: Identifies the process.
  dwPriorityClass: priority class value
}

{Specify one of the following values for dwPriorityClass:}


**************************************************

NORMAL_PRIORITY_CLASS:
Specify this class for a process with no special scheduling needs.

IDLE_PRIORITY_CLASS:
Specify this class for a process whose threads run only when the system is idle.

HIGH_PRIORITY_CLASS:
Specify this class for a process that performs time-critical tasks that must be
executed immediately.

REALTIME_PRIORITY_CLASS:
Specify this class for a process that has the highest possible priority.

**************************************************

Change the Priority of your own Process:

procedure TFMain.Button1Click(Sender: TObject);
begin
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
end;

ups som svar

Prøver det lige når jeg kommer hjem fra skole...

Er det under GetCurrentProcess at man kan skrive et andet program hvis nu man skulle lave et program som "holt styr" på ens processprioteter??

Men jeg kikker lige på det når jeg kommer hjem fra skole...

Takker begge for svar...

Det virker nu.. jeg kan stadig ikke få den til at sige over normal og under normal men det jeg har nu overlever jeg med....

// jonat :-)