DBR Delphi-Ecke

// Wenn man mit der rechten Maustaste auf eine Datei klickt, erscheint ein
// Kontextmenü. Um in dieses einen eigenen Eintrag einzufügen, kann man
// folgendermaßen vorgehen:

// Getestet mit D4 unter XP

uses Registry; 
 
procedure AddContext(txt: string); 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.create; 
  try 
    Reg.RootKey := HKEY_CLASSES_ROOT; 
    Reg.OpenKey('*\shell\' + txt + '\command', true); 
    Reg.WriteString('', application.exename + ' %1'); 
  finally 
    Reg.CloseKey; 
    Reg.free; 
  end; 
end; 
 
procedure RemoveContext(txt: string); 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.create; 
  try 
    Reg.RootKey := HKEY_CLASSES_ROOT; 
    Reg.deletekey('*\shell\' + txt); 
  finally 
    Reg.free; 
  end; 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  AddContext('MyProg'); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  RemoveContext('MyProg'); 
end;