Защита компонента

← →
DimaBr (2005-09-26 10:56) [0]

Хочу сделать простенькую защиту на компонент.
В момент создания компонента в дизайнере проверяется ключ реестра, минусуется значение и записывается обратно. При достижении определённого значения компонент теряет свою функциональность.
Но так как этих компонентов на форме достаточно много, то вся проверка будет выполнятся несколько раз (для каждого компонента по одному разу). Как это можно предотвратить ? То есть для одной формы (а ещё лучше для проэкта) выполнялась одна проверка (допустим первым созданным компанентом)

← →
Igorek © (2005-09-26 11:04) [1]

Глобальная булевская переменная, инициализация в секции initialization значением false, в Create компонента если она false делаешь ее true и декремент счетчика в реестре.

← →
Юрий Зотов © (2005-09-26 11:11) [2]

> инициализация в секции initialization значением false

Это лишнее. Она и так будет проинициализирована в False.

← →
DimaBr (2005-09-26 12:58) [3]

Написал var Flag: boolean; constructor Create(AOwner: TComponent); begin ........ if csDesigning in ComponentState then if not Flag then begin ShowMessage("aaa"); Flag:= true; end; end;
Всё хорошо, но срабатывает один раз в жизни (Delphi). То есть в первом открытом проэкте глобальная переменная переходит в TRUE, а потом при открытии других проэктов ничено не происходит. Может другие идеи есть.

> DimaBr (26.09.05 12:58) [3]

Так Вы же именно этого и хотели, что же еще нужно-то?

Но разве для Вашей задумки этого недостаточно? ИМХО, вполне нормально. Если же нужно декрементировать счетчик именно один раз на каждый открытый проект, то придется, видимо, писать эксперт IDE, срабатывающий при открытии проектов. Вот и прикиньте сами - нужны ли такие навороты ради такой простой защиты? Которая, кстати, все равно будет моментально взломана (если, конечно, компонент стоит того, чтобы его ломать).

Или пишите в реестр не счетчик, а дату, тогда вообще все просто - каждый экземпляр компонента просто проверяет эту дату.

← →
DimaBr (2005-09-26 14:02) [5]

Я вроде бы придумал выход. При уничтожении компонента подсчитываю количество оставшихся компонент моего класса на форме и если это один (то есть удаляем последний компонент) то Flag := false;
x := 0; with GetParentForm(self) for i := 0 to ComponentCount - 1 do if Components[i] is TMyComponent then Inc(x); Flag := x <> 1;
Как Вы считаете, этот вариант подойдёт ?

Защита компонента Найти похожие ветки