Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Внизпроверка существования ключа в реестре Найти похожие ветки
← →
snlnik (2003-10-19 20:10) [0]Здравствуйте!
Подскажите:
как проверить существование ключа в реестре?
← →
Song (2003-10-19 20:19) [1]TRegistry + F1
← →
Anatoly Podgoretsky (2003-10-19 20:30) [2]Если не знаешь, что искать то русско-английский словарь поможет решить проблему поиска.
← →
DimaK (2003-10-19 20:33) [3]Я так прописываю проги для автозагрузки, на подобии этого можно и остальное сделать.
uses Registry;
var reg:TRegistry;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if (reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run\", False)) then
begin
if reg.ValueExists("NokTerm") then
end;
reg.CloseKey;
reg.Destroy;
← →
snlnik (2003-10-25 16:40) [4]Не могу понять в чем здесь ошибка:
procedure TForm1.FormCreate(Sender: TObject);
var reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite := false;
if reg.ValueExists("Software\Nik")=False then
begin
reg.CreateKey("Software\Nik");
reg.WriteString("1", IntToStr(4));
reg.WriteString("2", IntToStr(1));
end;
reg.OpenKey("Software\Nik-Company",false);
Form2.TrackBar1.Position:=StrToInt(reg.ReadString("1"));
Form2.SpinEdit1.Value:=StrToInt(reg.ReadString("2"));
reg.CloseKey;
reg.free;
← →
snlnik (2003-10-25 17:43) [5]куда все подевались?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c