Загрузка CPU

[Alexy]

Здравствуйте,

имеется ли кроссплатформенный способ определить текущую загрузку процессора?
если нет, можно и {$ifdef Linux}...{$endif} {$ifdef win32}...{endif} раздельный.

Если предметно, то моя программа должна работать только при условии если сейчас загрузка процессора меньше < 10% (например)

Подскажите, может примеры есть какие?

[and]

А просто понизить приоритет своего процесса и/или его нитей - не вариант? Пусть ОС занимается распределением процессорного времени, "ей за это деньги платят" (C).

[Alexy]

Вариант! я что-то сразу не подумал об этом.

Ээээ я могу програмно установить приоритет сам себе?

[and]

Да.

[Alexy]

в ответе я подразумевал увидеть как но все-же спасибо, уже нашел.

[Timid]

Понижение приоритета - не вариант. Дело в том, что Windows просто не выделяет процессорного времени задачам с низким приоритетом, если есть более "важные". В Linux почти та же беда. Исключение - системы реального времени, вроде QNX.

Лучше всего Вам замерять тики процессора в событии onIdle и делать подсчет времени с предыдущего раза.

...
Нашел вот функцию подсчета загрузки процессора для Delphi

Код: Выделить всё

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Gauges, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Gauge1: TGauge;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
const
SystemBasicInformation = 0;
SystemPerformanceInformation = 2;
SystemTimeInformation = 3;

type
TPDWord = ^DWORD;

TSystem_Basic_Information = packed record
dwUnknown1: DWORD;
uKeMaximumIncrement: ULONG;
uPageSize: ULONG;
uMmNumberOfPhysicalPages: ULONG;
uMmLowestPhysicalPage: ULONG;
uMmHighestPhysicalPage: ULONG;
uAllocationGranularity: ULONG;
pLowestUserAddress: Pointer;
pMmHighestUserAddress: Pointer;
uKeActiveProcessors: ULONG;
bKeNumberProcessors: byte;
bUnknown2: byte;
wUnknown3: word;
end;

type
TSystem_Performance_Information = packed record
liIdleTime: LARGE_INTEGER; {LARGE_INTEGER}
dwSpare: array[0..75] of DWORD;
end;

type
TSystem_Time_Information = packed record
liKeBootTime: LARGE_INTEGER;
liKeSystemTime: LARGE_INTEGER;
liExpTimeZoneBias: LARGE_INTEGER;
uCurrentTimeZoneId: ULONG;
dwReserved: DWORD;
end;

var
NtQuerySystemInformation: function(infoClass: DWORD;
buffer: Pointer;
bufSize: DWORD;
returnSize: TPDword): DWORD; stdcall = nil;
liOldIdleTime: LARGE_INTEGER = ();
liOldSystemTime: LARGE_INTEGER = ();

function Li2Double(x: LARGE_INTEGER): Double;
begin
Result := x.HighPart * 4.294967296E9 + x.LowPart
end;

procedure GetCPUUsage;
var
SysBaseInfo: TSystem_Basic_Information;
SysPerfInfo: TSystem_Performance_Information;
SysTimeInfo: TSystem_Time_Information;
status: Longint; {long}
dbSystemTime: Double;
dbIdleTime: Double;
Inf: integer;
bLoopAborted : boolean;

begin
if @NtQuerySystemInformation = nil then
NtQuerySystemInformation := GetProcAddress(GetModuleHandle('ntdll.dll'),
'NtQuerySystemInformation');

// get number of processors in the system

status := NtQuerySystemInformation(SystemBasicInformation, @SysBaseInfo, SizeOf(SysBaseInfo), nil);
if status <> 0 then Exit;

{ // Show some information
with SysBaseInfo do
begin
ShowMessage(
Format('uKeMaximumIncrement: %d'#13'uPageSize: %d'#13+
'uMmNumberOfPhysicalPages: %d'+#13+'uMmLowestPhysicalPage: %d'+#13+
'uMmHighestPhysicalPage: %d'+#13+'uAllocationGranularity: %d'#13+
'uKeActiveProcessors: %d'#13'bKeNumberProcessors: %d',
[uKeMaximumIncrement, uPageSize, uMmNumberOfPhysicalPages,
uMmLowestPhysicalPage, uMmHighestPhysicalPage, uAllocationGranularity,
uKeActiveProcessors, bKeNumberProcessors]));
end; }

bLoopAborted := False;
while not bLoopAborted do
begin

// get new system time
status := NtQuerySystemInformation(SystemTimeInformation, @SysTimeInfo, SizeOf(SysTimeInfo), 0);
if status <> 0 then Exit;

// get new CPU's idle time
status := NtQuerySystemInformation(SystemPerformanceInformation, @SysPerfInfo, SizeOf(SysPerfInfo), nil);
if status <> 0 then Exit;

// if it's a first call - skip it
if (liOldIdleTime.QuadPart <> 0) then
begin

// CurrentValue = NewValue - OldValue
dbIdleTime := Li2Double(SysPerfInfo.liIdleTime) - Li2Double(liOldIdleTime);
dbSystemTime := Li2Double(SysTimeInfo.liKeSystemTime) - Li2Double(liOldSystemTime);

// CurrentCpuIdle = IdleTime / SystemTime
dbIdleTime := dbIdleTime / dbSystemTime;

// CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors
dbIdleTime := 100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors + 0.5;

// Show Percentage
Inf:= StrToInt(FormatFloat('0',dbIdleTime));
Form1.Gauge1.Progress:=Inf-1;
Application.ProcessMessages;

// Abort if user pressed ESC or Application is terminated
bLoopAborted := (GetKeyState(VK_ESCAPE) and 128 = 128) or Application.Terminated;

end;

// store new CPU's idle and system time
liOldIdleTime := SysPerfInfo.liIdleTime;
liOldSystemTime := SysTimeInfo.liKeSystemTime;

// wait one second
Sleep(1000);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetCPUUsage ;
end;

end.


[and]

Аргументы в студию, plz. Насколько я знаю, Win, а тем более *nux запросто тормозят процесс (нить) и отдают выполнение другому (-й), даже имеющему (-й) более низкий приоритет. Просто чем выше приоритет, тем реже (читай: на меньшее число тиков) это будет делаться. Это и называется "вытесняющая многозадачность".

Несложный эксперимент. Запустить две копии архиватора (или, для чистоты опыта, написать свою программу, где гарантировано не будет Sleep'ов или чего-то подобного) и понизить (средствами ОС или в Far'е) приоритет. По-вашему, "приторможенный" процесс должен совсем остановиться?

А ОСРВ здесь imho вообще не к месту приплетены. Они нужны, чтобы гарантировано получать ресурсы, а у Alexy обратная задача.

[Alexy]

Да, спасибо всем.

В моем случае лучше всего работать на приоритетах и проще. Тем более если надо, могу в нужный момент поднять его, а когда делать нечего, опустить.