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

← →
VeTaL_Programmer (2004-05-15 12:23) [0]

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

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;

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

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

← →
GuAV (2004-05-15 12:29) [1]

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

← →
GuAV (2004-05-15 12:32) [2]

> 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;

← →
VeTaL_Programmer (2004-05-15 12:37) [3]

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

← →
VeTaL_Programmer (2004-05-15 12:42) [4]

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

Как програмно в реестре записать данные в значение "По умолчанию" Найти похожие ветки