blob: 110787f3cbbb303df895df4bc9d6f601fb493cd3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example15;
{ Program to demonstrate the Nice and Get/SetPriority functions. }
Uses BaseUnix,Unix;
begin
writeln ('Setting priority to 5');
fpsetpriority (prio_process,fpgetpid,5);
writeln ('New priority = ',fpgetpriority (prio_process,fpgetpid));
writeln ('Doing nice 10');
fpnice (10);
writeln ('New Priority = ',fpgetpriority (prio_process,fpgetpid));
end.
|
