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]

[IngoD7]

Hast du die Unit Registry eingebunden?

[Christian Seehase]

Moin Marcasso,

in so einem Falle empfiehlt es sich immer den Begriff (in diesem Falle also TRegistry) anzuklicken, und F1 zu drücken.
Dann sollte die Hilfe zu dem Begriff aufgehen, in der dann auch beschrieben ist, in welcher Unit sich der Unbekannte befindet.

[Marcasso]

danke, das war der fehler :-)

Zitat:

in so einem Falle empfiehlt es sich immer den Begriff (in diesem Falle also TRegistry) anzuklicken, und F1 zu drücken.

danke werde ich in zukunft beachten

[Marcasso]

wie kann ich denn nun wie dateien, mit der ich das programm öffne in die lisbosb hinzufügen?
also den pfad der datei

ich hab das so gemacht aber ledier geht es nicht

Delphi-Quellcode:

if InstallExt('.mp3', 'MP3Datei', 'Tolles Programm', ParamStr(0), '"%1"',0) then
    If (ParamCount>0) and
    (FileExists(ParamStr(1))) then
   begin
     form2.ListA.AddItem(ParamStr(1));
   end;

[SirThornberry]

Erstelle bitte für eine neue Frage ein neues Thema - Danke :-D

[Marcasso]

für mich gehörts zum gleichen thema /:
aber was solls, danke für die hilfe!