Функцию вставляешь в любое место прграммы (между другими функциями и процедурами), главное чтоб она находилась по тексту выше чем сам вызов этой процедуры. Например
function AddExeToAutoRun : Boolean;
begin
.............
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if AddExeToAutoRun then
ShowMessage('Файл был добавлен в автозапуск.');
end;
Winny if reg.KeyExists необязательно проверять, т.к. если второй параметр reg.OpenKey установить True, то открываемый раздел будет автоматом создан если его не существует.
|