Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

проверка существования ключа в реестре   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
3-40929
DelphiNew
2003-10-25 14:37
2003.11.13
Type mismatch in expression


3-41063
Юлия
2003-10-23 16:03
2003.11.13
Связь между таблицами


14-41911
GOOD
2003-10-21 00:47
2003.11.13
Нужна помощь!


14-41961
Ketmar
2003-10-16 19:22
2003.11.13
DarkEyeProxy v0.3.0


14-41893
euru
2003-10-21 19:11
2003.11.13
Коды городов