przywracanie poprzednich ustawien rejestru

Mam mały problem. Chodzi o to, aby do tego kodu dodać
linie ktora zapisze w rejestrze poprzednie ustawienia
(w tym wypadku sa to ustawienia obslugi plikow *.jpg):

Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.jpg', True);//rozszerzenie
Reg.WriteString('', 'NowaNazwaTypuKlucza'); // np. MojProgram.JPG
Reg.CloseKey;
Reg.OpenKey( 'MojProgram.JPG\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',1');
Reg.CloseKey;
Reg.OpenKey('MojProgramoJPG\shell\open\command', True); // akcja po nacisnieciu
Reg.WriteString('','"'+Application.ExeName+'" "%1"');// wpisz sciezke programu
Reg.CloseKey;

Byłbym wdzieczny za pomoc [angel]

Może skasuj ten klucz który utowrzyłeś i bedzie tak jak wczesniej:
Reg.DeleteKey('xxxxxxxxx',True);

Zrob po prostu wpis do rejestru taki jaki robil twoj program,tyle ze z ustawieniami domyslnymi i wykonuj go ....

Ale on chyba chce to zrobić programowo, a jak wyjkorzysta Shellexecute to pojawi się :
czy na pewno chcesz wprowadzić tę wartość do rejestru?,
a po kliknięciu OK : Wartość została pomyślnie wprowadzina.

dzieki wszystkim ale dlaczego to chodzi pod win98 a pod xp nie?

dzieki wszystkim ale dlaczego to chodzi pod win98 a pod xp nie?

Może dla tego nie działa bo napisałeś w Delphi6?
powinieneś sciągnąc odpwiednie komponenty pod XP.

dzieki wszystkim ale dlaczego to chodzi pod win98 a pod xp nie?

Może dla tego nie działa bo napisałeś w Delphi6?
powinieneś sciągnąc odpwiednie komponenty pod XP.

LOL...
Dostep do rejestrow to zwykle API...
Poczytajcie artykuł o rejestrach,,bardziej dociekliwych odsyłam do API