И так в прошлый раз я вам показал, как можно найти системные папки, в этом уроке я вам расскажу и покажу, как работать
с реестром. Для работы с реестром есть специальный модель: Regisrty, который надо подключать в раздел uses в проекте.
и так, в uses добавили Regisrty;
А вот сама процедура работы с реестром, данная функция показывает работу с автозагрузкой прилажения(программы) при старте Windows.
Code
procedure TMainForm.Autorun(Auto:Boolean);
begin
with TRegistry.Create do // создаем блок в блок в памяти для работы с реестром, with - означает что все , что в нем относится к данному модулю.
begin
RootKey:= HKEY_CURRENT_USER; // Работаем с разделом реестра
OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run\', True); // Открываем ключ, если нет то создаем
if not ValueExists('watchMan') then // Проверяем его на соществование
begin
if Auto = true then // если стоит Auto = true
WriteString('watchMan',ParamStr(0)) // то записываем в данный ключ параметр
end
else // если стоит Auto = false
DeleteValue('watchMan'); // то удаляем параметр
CloseKey; // закрываем ключ
Free; // освобождаем блок памяти
end;
end;
Пример использования с комментариями тут.
Есть вопросы, спрашивайте )
