Списки. Свойства. Обьекты. оДин раз получить информацию для объекта.

[Человек_Борща]

Доброго времени суток!

Ситуация:
Моя программа в таймере перебирает процессы по опр. условиям и изменяет опред. свойства процессов(приоритет и affinity).

Есть условности, при которых этим процессам нужно вернуть старые значения.
Дилема: как опредлить что мне больше НЕ нужно получать старые значения из процесса.

Код:

    fOldPriority: Cardinal; // Only run-time
    fOldAffinity: Cardinal; // Only run-time
  public
    property OldPriority: Cardinal read fOldPriority write fOldPriority;
    property OldAffinity: Cardinal read fOldAffinity write fOldAffinity;

По умолчанию, при создании объкта, эти значения устанавливаются в:

const
  E_INVALID_CARDINAL                    = 999;

что явл. сигналом, что объект ещё не получал сведений о процессе.

Далее 2 функции присвоения:

function SetProcessAffinity(aPID: Cardinal; aAffinityStr: string;
  var aOldAffinity: Cardinal): boolean;
var
  hProc: THandle;
  aSysMask, aProcMask: DWORD_PTR;
begin
  Result := False;
  hProc := OpenProcess(PROCESS_ALL_ACCESS, False, aPID);
  try
    if hProc <> 0 then
    begin
      GetProcessAffinityMask(hProc, aProcMask, aSysMask);
      aOldAffinity := aProcMask;
      Result := SetProcessAffinityMask(hProc, StrToAffinity(aAffinityStr));
    end;
  finally
    CloseHandle(hProc);
  end;
end;

function SetProcessPriority(aPID, aPriority: Cardinal;
  var aOldPriority: Cardinal): boolean;
var
  pHandle: DWORD;
  aNew: Cardinal;
begin
  Result := False;
  if (aPriority = 0) then
    aPriority := NORMAL_PRIORITY_CLASS;
  aNew := aPriority;

  pHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_SET_INFORMATION or
    PROCESS_VM_OPERATION, False, aPID);
  try
    if pHandle <> 0 then
    begin
      aOldPriority := GetPriorityClass(pHandle);
      Result := SetPriorityClass(pHandle, aNew)
    end;
  finally
    CloseHandle(pHandle);
  end;
end;

Вот метод возврата:

procedure TTarget.RestoreDeafaults;
var
  sPath: string;
  iPID: Cardinal;
  vOldP: Cardinal;
begin
  if not(OldPriority = E_INVALID_CARDINAL) and
    not(OldAffinity = E_INVALID_CARDINAL) then
  begin
    if ProcessExists(name, sPath, iPID) then
    begin
      SetProcessAffinity2(iPID, OldAffinity);
      vOldP := OldPriority;
      SetProcessPriority(iPID, OldPriority, vOldP);
    end;
  end;
end;

цикл таймера:

                    if Items[iRule].Flag_ForcePriority then
                    begin

                      SetProcessPriority(aProcess[i],
                        GetPriorityVal(Items[iRule].ProcessPriority),
                        vOldPriority);
                      Items[iRule].Targets[iTarget].OldPriority := vOldPriority;
                    end;

                    if Items[iRule].Flag_ForceAffinity then
                    begin
                      SetProcessAffinity(aProcess[i],
                        Items[iRule].ProcessAffinity, vOLdAffinity);
                      Items[iRule].Targets[iTarget].OldAffinity := vOLdAffinity;
                    end;

В псевдо-коде:

Виток цикла: 0 для обьекта: 1
    Новое значение = 3
    Свойство объекта :=  Получили старое значение = 1
    Присвоили новое начение 1 => 3
Конец
Виток цикла: 1 для обьекта: 1
    Новое значение = 3
   <А вот тут, перезапись значения не должна присходить>
    Свойство объекта :=  Получили старое значение = 3  
    Присвоили новое начение 3 => 3
Конец
Виток цикла: 2 для обьекта: 1
    Новое значение = 3
    Свойство объекта :=  Получили старое значение = 3  
    Присвоили новое начение 3 => 3
Конец

© сам придумал в 3 часа ночи.



Ну как-то так..