saurn, позволю себе сделать несколько замечаний касательно кода
1. я привык после написания кода просматривать его на наличие возможностей его оптимизации с точки зрения времени выполнения и экономии памяти
нет смысла гонять RegKeyExists 2 раза, в ней несколько WinApi функций - как мин имум 3 : отрыть, прочитать, закрыть,
нет смысла создавать кнопку, немного теории
например чекбокс это класс, те объявление
var uCBox: TCheckBox; означает объявления указателя uCBox на экземпляр класса TCheckBox, те по адресу скрытому под uCBox
лежит экземпляр класса TCheckBox, который включает в себя методы и свойства
те например свойство Checked имеет за собой как минимум одну булев переменную, простейший пример реализации свойства
http://www.delphibasics.ru/Property.php
а есть и другие свойства и методы и локальные методы и свойства в private и всё это занимает память, те речь идёт о экономии памяти.
При вызове метода Free; экземпляр класса по адресу uCBox разрушается и занимаемая им память освобождается
2. Если чекбокс не был создан, то при попытке прочитать значения свойства (отмечен (да/нет)) вылетит ошибка чтения адреса
чтение идёт:
указатель(uCBox)---->указатель(локальная переменная например fArea : LongInt; в примере по ссылке выше)---->значение размером SizeOf(Longint), тк fArea : LongInt;
которое лежит или "начинает лежать" по адресу в последнем указателе fArea
те LongInt = 32 битное число. 1 Byte = 8 Bit. ----> 4 * 8 = 32 => размер LongInt = 4 байта
, НО мы то чекбокс не создали и по адресу uCBox лежит мусор, если не ошибаюсь из "Кучи" - остатки других программ, а адреса fArea тем более нет
те след. вопросом
Mat_y могло быть: "почему когда программа установлена вылетает ошибка при проверке отмечен он или нет"
те при динамичном создании компонентов неплохо бы делать простую проверку, а именно
при инициализации присваивать значение нулевого указателя nil
http://www.delphibasics.ru/Nil.php
uCBox := nil
и потом проверять if uCBox <> nil (if Assigned(uCBox )) then if uCBox.Checked then ...
короче так:
читать дальше »
Код:
var
MyTask: TCheckBox;
procedure InitializeWizard();
var
Installed: Boolean;
begin
MyTask := nil;
Installed := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ExpandConstant('{#SetupSetting("AppID")}') + '_is1');
if not Installed then
begin
// присваиваем значение указателя которое возвращает метод конструктора Create
MyTask := TCheckBox.Create(nil);
with MyTask do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(180), ScaleX(400), ScaleY(15));
Caption := 'Я хочу создать резервную копию';
Checked := not Installed;
end;
end;
if MyTask <> nil then if MyTask.Checked then Beep;
end;
