Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Внизабота с с системным регистром Найти похожие ветки
← →
SIRUS (2006-02-08 08:18) [0]Просьба знатокам подсказать как подступиться к работе с системным реестром Winduws XP. Часто требуется изменить в нем кое-какие ключи, а вручную делать это неудобно. Не подскажете общие принципы, а лучше образцы кода для программки по изменению реестра.
С уважением - Сайрус.
8.02.2006
← →
ZeroDivide © (2006-02-08 08:29) [1]Используй класс TRegistry
← →
pavel_guzhanov © (2006-02-08 08:39) [2]
uses registry;
procedure TForm1.FormCreate(Sender: TObject);
var s:String;
SysReg : TRegistry;
begin
SysReg := TRegistry.Create;
with SysReg do
begin
RootKey := HKEY_LOCAL_MACHINE;
try
OpenKey("SoftWare\Project1",true);
S := ReadString("FolderName");
finally
CloseKey;
Free;
end; { try-finally }
if S="" then
begin
S := "C:\Documents and Settings";
SysReg := TRegistry.Create;
RootKey := HKEY_LOCAL_MACHINE;
try
OpenKey("SoftWare\Project1",true);
try
WriteString("FolderName",CString);
except
end; { try-except }
finally
CloseKey;
Free;
end; { try-finally }
end; { with }
end{procedure}
Здесь при загрузке формы пытаемся из реестра получить значение переменной S, если такого значения нет, то переменной присваивается значение по умолчанию, и это значение записывается в реестр
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c