Eintrag ins Kontextmenü

[Delphi Freak]

Mein Code für den Eintrag ins Kontextmenü:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var regist:Tregistry;
begin
   regist:= TRegistry.Create;

   regist.RootKey := HKEY_CLASSES_ROOT;
   regist.OpenKey('*',True);
   regist.WriteString('','Mit Krypto verschlüsseln');
   regist.CloseKey;
   regist.OpenKey('Mit Krypto verschlüsseln',True);
   regist.WriteString('','Mit Krypto verschlüsseln');
   regist.CloseKey;
   regist.OpenKey('*\shell\Mit Krypto verschlüsseln\command',True);
   regist.WriteString('','C:\Krypto.exe %1');
   regist.CloseKey;
end;