Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пример ключа в реестр [D2005, 2003]

Pi:=3.14... © (2008-05-31 12:10:00)
Пожалуйста. Напишите пример кода как добавить ключь в реестр.Заранее спасибо null

(2008-06-04 00:26:00) [1]
Удалено модератором

(2008-06-03 23:10:00) [2]
Удалено модератором

Leonid Troyanovsky (2008-05-31 15:33:00) [3]

> engine © (31.05.08 12:49) [3]

> Этот вопрос к разработчикам справки Delphi

> Reg.CreateKey(NameofKey.Text);
> if not Reg.OpenKey(NameofKey.Text,False) then
> ShowMessage('Error in Opening Created Key')

А это из какой справки?

Может, все же
if not Reg.OpenKey(NameofKey.Text, True) then
ShowMessage('The registry key could not be opened or created.')

--
Regards, LVT.

LightRipple (2008-05-31 13:27:00) [4]
> [5] engine © (31.05.08 13:23)
> Delphi 7

> Offtop
Что-то меня за сегодня уже второй раз в справку Delphi 7 посылают.
Видать к дождю :) Нет у меня на компьютере Delphi 7 - не могу проверить :)

engine (2008-05-31 13:23:00) [5]
Delphi 7

LightRipple (2008-05-31 13:05:00) [6]
> [3] engine © (31.05.08 12:49)
> Этот вопрос к разработчикам справки Delphi

Это где ты такую "справку Delphi" нашел ?

engine (2008-05-31 12:49:00) [7]
> [2] Loginov Dmitry © (31.05.08 12:34)

Этот вопрос к разработчикам справки Delphi

Loginov Dmitry (2008-05-31 12:34:00) [8]
> if not Reg.OpenKey(NameofKey.Text,False) then
> if MessageDlg('The specified key does not exist,
> create it?'

С чего такой однозначный вывод: "The specified key does not exist"?

engine (2008-05-31 12:19:00) [9]
This OnClick event handler adds the value specified in the ValueforKey edit box to the registry key specified by the NameofKey edit box. If the named key does not already exist, it creates one. (Note that if you don’t want to give the user a choice, this could be accomplished more simply by setting the CanCreate parameter of the OpenKey call to true).

procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
begin
if Length(NameofKey.Text) or Length(ValueforKey.Text) <=0 then
Showmessage('Either the key name or value is missing.')
else begin
Reg:=TRegIniFile.Create('MyApp');
try
Reg.RootKey:=HKey_Local_Machine; // Section to look for within the registry
if not Reg.OpenKey(NameofKey.Text,False) then
if MessageDlg('The specified key does not exist, create it?'

,Mtinformation,[mbYes,mbNo],0)=mryes then
begin
Reg.CreateKey(NameofKey.Text);
if not Reg.OpenKey(NameofKey.Text,False) then
ShowMessage('Error in Opening Created Key')
else
Reg.WriteString('Main Section','Value1',ValueForKey.Text);
end
else
Reg.WriteString('Main Section','Value1',ValueForKey.Text);
finally

Reg.Free;
end;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »