Как создать параметр в реестре (делфи)

[zotox]

Интересует!
Параметр типа REG_DWORD имя пусть будет к примеру "file" и значение 1

[Terran]

Сообщение от zotox

Интересует!
Параметр типа REG_DWORD имя пусть будет к примеру "file" и значение 1

Создать параметр REG_DWORD можно так:
К примеру:

Uses
Registry,...

Procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteInteger('file',1);
Reg.Free;
End;

[zotox]

мм.... а как проверить существует ли параметр?
то есть если не существует параметр то создать его
как такой код будет звучать?

[zotox]

Ап! Последний вопрос все еще в силе

[Terran]

Сообщение от zotox

мм.... а как проверить существует ли параметр?
то есть если не существует параметр то создать его
как такой код будет звучать?

Можно сделать так:

Uses
Registry,...

Procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
If Not Reg.ValueExists('file') Then
Begin
Reg.WriteInteger('file',1);
Reg.Free;
End;
End;

[zotox]

Нужно проверить параметр реестра на значение
то есть если к примеру в параметре "File" стоит значение "1"
То что нибуть сделалось!

Извените что так спрашиваю самому не удобно просто

[Terran]

Сообщение от zotox

Нужно проверить параметр реестра на значение
то есть если к примеру в параметре "File" стоит значение "1"
То что нибуть сделалось!

Извените что так спрашиваю самому не удобно просто

Проверить значение можно так:

Uses
Registry,...

Procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Zn: Integer;
Begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
Zn:=Reg.ReadInteger('file');
If Zn=1 Then
Begin
//Ваши действия если значение у параметра равно единице
End
Else
Begin
//Ваши действия если значение у параметра не равно единице
End;
End;

В данном случае нужно считывать только числовое значение!

[zotox]

Меня интересует еще
к примеру я проверил параметр
а можно будет в нем перезаписать значение?
то есть тем же Reg.WriteInteger

[zotox]

ап! Интересует

[Terran]

Сообщение от zotox

Меня интересует еще
к примеру я проверил параметр
а можно будет в нем перезаписать значение?
то есть тем же Reg.WriteInteger

Конечно можно. Смотрите пост №2 или №5. Перезаписывать значение можно так:

...
Reg.WriteInteger('file',//Здесь ваше значение);
...