Kontextmenü des Explorere ergänzen

[Luckie]

Zitat von MathiasSimmack:

Hast du mal probiert, das nicht unter ".jpg" sondern dem dazu gehörenden Schlüssel (bei mir "jpegfile") einzutragen?

Gerade probiert, geht auch nicht.

Zitat:

Aber ich glaube immer noch, dass du zu kompliziert denkst. Greif dir den Standardschlüssel des ".jpg"-Eintrags und ergänze dort unter "shell" den Eintrag für dein Programm. Das müsste normalerweise reichen.

Das will ich ja machen, siehe Source:

Delphi-Quellcode:

procedure TExifReaderExtFactory.UpdateRegistry(Register: Boolean);
var
  ClassID: string;
begin
  if Register then
  begin
    inherited UpdateRegistry(Register);
    ClassID := GUIDToString(GUID_EXIFREADEREXT);
    CreateRegKey('.jpg\shellext', '', '');
    CreateRegKey('.jpg\shellext\ContextMenuHandlers', '', '');
    CreateRegKey('.jpg\shellext\ContextMenuHandlers\ExifReaderExt', '',
      ClassID);
  end
  else
  begin
    DeleteRegKey('.jpg\shellext');
    DeleteRegKey('.jpg\shellext\ContextMenuHandlers');
    DeleteRegKey('.jpg\shellext\ContextMenuHandlers\ExifReaderExt');
    inherited UpdateRegistry(Register);
  end;
end;