Kontexmenü mit Shortcuts

[Coder]

Hallo,

ich will zur besseren Bedienbarkeit ein Programm im Kontextmenü des Explorers verankern (also für Ordner und Dateien gleichermaßen)

Hier mal ein/der Code - falls noch wer ihn schnell mal suchen sollte - er verankert das Programm für Ordner.

Delphi-Quellcode:

var
Reg : TRegistry;
begin
Reg := Tregistry.create;
 with Reg Do
  begin
    RootKey := HKEY_CLASSES_ROOT;
      OpenKey('Directory\shell',false);
       if not KeyExists('TinyEditor') then CreateKey('TinyEditor');
      CloseKey;
      OpenKey('Directory\shell\TinyEditor',False);
        WriteString('','TinyEditor');
        if not KeyExists('command') then CreateKey('Command');
      Closekey;
      OpenKey('Directory\shell\TinyEditor\command',true);
        WriteString('',Application.ExeName);
      CloseKey;
  end

Falls (oben ) dazu noch wer Ergänzungen hat, - auch gerne willkommen.



So, nun möchte ich aber 1) auch ein Icon links davon einblenden

2) und einen Buchstaben durch Unterstreichung hervorheben / eine ArtShortCut mit dem Engl. UND & angeben.
Aber das scheint nicht so einfach bisher.
Also das jemand beim Windows Kontexmenü (also Linksklick) dann nur "Op&en with TinyEditor" -> E drücken muß, damit mein Programm aufgerufen wird.

Wie macht man das?

[edit=Matze]Bild angehängt, damit es uns zukünftig erhalten bleibt. MfG Matze[/edit]