mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-26 16:33:45 +01:00
15 lines
382 B
ObjectPascal
15 lines
382 B
ObjectPascal
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.
|