Undefinierter Bezeichner TRegistry....

[Marcasso]

hallo ich habe versucht eine dateiendung mir meinem programm zu verknüpfenm jedoch bringt er beim compilieren den fehler: Undefinierter Bezeichner Tregistry

Delphi-Quellcode:

function InstallExt(Extension, ExtDescription, FileDescription,
  OpenWith, ParamString: string; IconIndex: Integer): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin

//Normale Teil
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(Extension, True);
      WriteString('', ExtDescription);
      OpenKey('\' + ExtDescription, True);
      WriteString('', FileDescription);
      OpenKey('DefaultIcon', True);
      WriteString('', OpenWith + ',' + IntToStr(IconIndex));
      OpenKey('\' + ExtDescription + '\Shell\Open\Command', True);
      WriteString('', '"' + OpenWith + '" "' + ParamString + '"');
   
//Neu Teil

      RootKey := HKEY_Current_User;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\',
        True);
      if KeyExists('.mp3') then DeleteKey('.mp3');
      RootKey := HKEY_Local_Machine;
      OpenKey('\Software\Classes\DaDuMediaPlayer5\DefaultIcon', true);
      WriteString('', Application.ExeName + ',' + IntToStr(1));//Pfadname+ Iconindex
      OpenKey('\Software\Classes\DaDuMediaPlayer5\Shell\Open\Command', true);
      WriteString('', '"' + Application.ExeName + '" "' + '%1' + '"');
      OpenKey('\Software\Classes\.mp3', true);
      WriteString('', 'DaDuMediaPlayer5');
      OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mp3', True);
      WriteString('', 'DaDuMediaPlayer5');
      SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);// aktuallisiert die Icons
    end;
    Result := True;
  except
    Result := False;
  end;
  Reg.Free;
end;

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]