свои данные или в реестре Windows или в Ini-файлах. Достоинства и недостатки использования реестра и Ini-файлов следующие:
| Параметр | Использование реестра Windows | Использование Ini-файлов |
| Перенос данных с компьютера на компьютер | Трудность переноса данных с использованием экспорта/импорта ветвей реестра через программу редактора реестра («regedit») | Легкость переноса данных путем простого копирования Ini-файла с одного компьютера на другой |
| Модификация данных | Через функции прикладной программы или программу редактора реестра | Через функции прикладной программы или корректировки в обычном текстовом редакторе |
| Привязка к конкретному пользователю Windows | Автоматически на уровне операционной системы через корневой раздел «HKEY_CURRENT_USER» | Трудно через функции прикладной программы |
| Привязка к конкретному компьютеру | Автоматически на уровне операционной системы через корневой раздел «HKEY_LOCAL_MACHINE» | Трудно через функции прикладной программы |
Таблица 1
Реестр состоит из шести корневых разделов, два из которых представляют наибольший интерес: раздел «HKEY_LOCAL_MACHINE» предназначен для хранения данных, доступных всем пользователям Windows, а раздел «HKEY_CURRENT_USER» хранит данные, доступные только для текущего пользователя Windows. Другие корневые разделы обычно используются только операционной системой и некоторыми системными программами.
Язык программирования Delphi 5 позволяет производить с реестром Windows любые манипуляции через подключение модуля «Registry» в разделе «interface -> uses». Рассмотрим на примере основные базовые операции при записи и считывании данных с реестра:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
{ Процедура записи данных в реестр }
var Reg: tRegistry;
begin
Reg:=tRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if Reg.OpenKey('\Software\TSN736\', true) then begin
if not Reg.KeyExists('setup') then Reg.CreateKey('setup');
if Reg.OpenKey('\Software\TSN736\setup', false) then begin
Reg.WriteInteger('Left', form1.left); Reg.WriteInteger('Top', form1.top);
Reg.CloseKey;
end;
end;
finally
Reg.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
{ Процедура чтения данных с реестра }
var Reg: tRegistry;
begin
Reg:=tRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if Reg.OpenKey('\Software\TSN736\setup', false) then begin
try form1.left:=Reg.ReadInteger('Left'); except; end;
try form1.top:=Reg.ReadInteger('Top'); except; end;
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
ЛЕКЦИЯ №3
1. ПРЕОБРАЗОВАНИЕ ТИПОВ. ДОСТУП К ОБЪЕКТАМ И КОМПОНЕНТАМ ЧЕРЕЗ УКАЗАТЕЛИ
При написании обработчиков событий для компонент практически всегда в процедуру передается указатель «Sender» типа «TObject». Данный указатель как правило указывает (ссылается) на тот визуальный компонент, который вызывает
