Реестр в Делфи

[Alex2009]

Доброе время суток.Столкнулся с такой проблемой.Я не разу не работал с реестром в Делфи ну неприходилось мне а теперь нужно написать код с передачей таких строк в реестр.

[HKEY_CLASSES_ROOT\.mp3]
@=My.MP3.Player

[HKEY_CLASSES_ROOT\My.MP3.Player]
@="DAMN NFO Viewer file"

[HKEY_CLASSES_ROOT\My.MP3.Player\Def aultIcon]
@="C:\\MyMP3Player\\player.EXE,1" //тут номер иконки для файла

[HKEY_CLASSES_ROOT\My.MP3.Player\she ll]
@="open"

[HKEY_CLASSES_ROOT\My.MP3.Player\she ll\open]
@="Open in MyMP3Player"

[HKEY_CLASSES_ROOT\My.MP3.Player\she ll\open\command]
@="\"C:\\MyMP3Player\\player.EXE\ " \"%1\""

[Alex2009]

аууууу.Ну помогите(((

[WOLFak]

это не то?

var
 reg:TRegistry;
begin
 reg:=TRegistry.Create();
 reg.RootKey:=HKEY_CURRENT_USER;
   reg.LazyWrite:=false;
  if reg.OpenKey('software\clientwolf',true) then
   begin
    reg.WriteString('Nick',Nick);
    reg.WriteString('ip',form1.ClientSocket1.Host);
    if form1.Frame21.CheckBox1.Checked then
     reg.WriteBool('run',true) else
     reg.WriteBool('run',false);
    reg.CloseKey;
   end;

[Alex2009]

нет не то!((

[Пепел Феникса]

вообще то, то.

var
 reg:TRegistry;
begin
 reg:=TRegistry.Create();
 reg.RootKey:=HKEY_CLASSES_ROOT;
   reg.LazyWrite:=false;
  if reg.OpenKey('My.MP3.Player',true) then
   begin
    reg.WriteString('','My.MP3.Player');
    reg.CloseKey;
   end;
  if reg.OpenKey('.mp3',true) then
   begin
    reg.WriteString('','"DAMN NFO Viewer file"');
    reg.CloseKey;
   end;

чтото вроде этого.
доделать можешь сам. советую поэкспереминтировать на какомнить рукотворном ключе(ветке)

[Alex2009]

какой модуй для регистра?

[Пепел Феникса]

Registry вроде
а вообще наводим курсор(каретку точнее) на TRegistry и жмем F1

[uberchel]

Добовление в контекстное меню:

procedure RegisterFileType(name, ext, fileName: string; ico: boolean);
begin
 with TRegistry.Create do
 begin
   RootKey:=$80000000;
   OpenKey('.' + ext, True);
  if ValueExists(fileName) then Exit;
   WriteString('', ext + 'file');
   CloseKey;
  if ico then
  begin
   CreateKey(ext + 'file');
   OpenKey(ext + 'file\DefaultIcon', True);
   WriteString('',FileName + ',0');
   CloseKey;
  end;
  OpenKey(ext + 'file\shell\' + name + '\command', True);
  WriteString('', FileName+' "%L"');
  CloseKey;
  Free
 end;
end;