Windows XP 64-Bit und Registry

[Matze]

Hi,

du schreibst mal utilities und mal utilites.


Edit: Nutze aber unbedingt Resourcenschutzblöcke, Destroy ist auch nicht empfehlenswert:

Delphi-Quellcode:

var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;

    Reg.OpenKey('Mp3File\shell\utilites-tff', true);
    Reg.WriteString('', Caption);
    Reg.OpenKey('command', true);
    Reg.WriteString('', '"' + Application.ExeName + '" "%1"');

    Reg.OpenKey('Mp3File\shell\', false);
    if not Reg.DeleteKey('utilites-tff') then;  // oder 'utilities' was du eben möchtest ;-)
      ShowMessage('Fehler');
 
    Reg.CloseKey;
  finally
    FreeAndNil(Reg);
  end;
end;