Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как програмно в реестре записать данные в значение "По умолчанию" [D7, WinXP]


VeTaL_Programmer ©   (2004-05-15 12:23:00) 

Не подскажете, как програмно в реестре записать данные в значение "По умолчанию"?
Я пытался так:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Reg:TRegistry;

begin

reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\CleanupPath',true);
reg.WriteExpandString('default','1234') ;
reg.CloseKey;
reg.Destroy;

end;

Но не получается.

Заранее спасибо.


VeTaL_Programmer   (2004-05-15 12:42:00) [1]

Извиняюсь!
С пустой строкой получилось!


VeTaL_Programmer   (2004-05-15 12:37:00) [2]

Чото не получается !


GuAV   (2004-05-15 12:32:00) [3]


> Tregistry.Create


А если не Create ?...


with Tregistry.Create do
try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\CleanupPath',true);
WriteExpandString('default','1234') ;
CloseKey;
finally
free;
end;


GuAV   (2004-05-15 12:29:00) [4]

Default не 'default', а пустая строка, IMHO.


Наверх

Титульная страница Поиск, карта сайта Написать письмо