Property Sheets mit Delphi

[MathiasSimmack]

In diesem Mini-Tutorial geht es um eine Gruppe der Shell-Erweiterungen: die sog. "Property Sheets", die bei einigen Dateitypen eingeblendet werden, wenn man deren Eigenschaften anzeigen lässt. Das gesamte Beispiel basiert auf der Grundlage von Andreas Kosch, die man im Entwickler-Forum downloaden kann. Ich will aber zusätzlich zeigen, welche Units man entfernen muss, damit am Ende eine Datei (DLL) von weniger als 100k entsteht.

Außerdem ist dieser erste Schritt (IMHO) unbedingt wichtig, da man nicht einfach ein vorhandenes, lauffähiges Projekt nehmen und für andere Zwecke erneut verwenden sollte. Das liegt daran, dass die meisten Shell-Erweiterungen intern eine eindeutige GUID benutzen, mit der sie später auch im System identifiziert werden.
Logische Folge: wenn ich zwei Shell-Erweiterungen verwende, die die selbe GUID haben, dann kommt es mit großer Wahrscheinlichkeit zu Problemen. Also, ich bitte darum, dieser Anleitung genau zu folgen und für jedes Projekt tatsächlich neuen Code zu erstellen. Die relevanten Code-Teile, die in jeder Erweiterung vorkommen, können dann natürlich problemlos kopiert und wiederverwendet werden.

Bevor wir uns an ein solches Projekt wagen, sollten wir uns natürlich darüber im Klaren sein, was wir erreichen wollen. Üblicherweise stellen wir auf den Eigenschaftenseiten ergänzende Informationen zur Verfügung, die beispielsweise auch von einem Programm angezeigt werden. Damit hat der Anwender die Möglichkeit, sich schnell über den Inhalt, den Typ, spezielle Eigenschaften usw. zu informieren, ohne erst das eigentlich passende Programm starten zu müssen.
In unserem Beispiel wollen wir eine zusätzliche Seite bei den Textdateien (*.txt) anzeigen lassen, die uns neben dem genauen Dateinamen auch eine Möglichkeit zum Öffnen des Texteditors bietet. Damit wird das Prinzip auf recht einfache Weise verdeutlicht.

Hinweis

• Bitte nicht vergessen, dass wir eine Erweiterung des OS entwickeln. Für einen Testlauf müssen wir sie also erst im System registrieren. Und natürlich muss sie danach wieder entfernt werden, damit wir z.B. eine neue Version erstellen können. Das Problem dürfte hierbei sein, dass das System die benutzte Datei auch nach der De-Registrierung nicht sofort löschen kann. Ein einfaches Ab- und wieder Anmelden genügt allerdings schon (zumindest unter Win98). Ein Neustart ist glücklicherweise nicht erforderlich.

[mkinzler]

Grundsätzlich genauso, das ganze Handling muss dazu halt innerhalb der Dll erfolgen

[Codewalker]

Mir ist aber nicht ganz klar, was ich dann bei diesen beiden Zeilen eintragen muss:

Delphi-Quellcode:

  aPSP.pszTemplate := MakeIntResource(IDD_PROPDLG);
  { ... }
  aPSP.pfnDlgProc := @?????; // Dialogfunktion

Irgendwie muss ich meinen Dialog doch erzeugen und anzeigen lassen
Ich will kein Non-VCL, weil ich für das, was ich anzeigen will sowieso die VCL laden muss

[blackfin]

Wenn du das ganze Editor-geführt haben willst und auch bereit bist, was dafür auszugeben, kannst du dir dafür auch die "Shell+"-Komponenten (Namespace Extensions) mal ansehen.
Damit lassen sich solche Property-Sheets sehr einfach erstellen.

[Codewalker]

Die hab ich auch schon gefunden, allerdings können die ja viel mehr als ich eigentlich brauche und für das bißchen was ich brauche wollte ich die jetzt nicht komplett kaufen müssen. Das muss doch auch so gehen und kann nicht so schwer sein. Der Rahmen ist ja klar, es fehlt "nur" die Einbindung des Forms.

[fuchsle]

Gibt es hier mittlerweile einen etwas einfacheren Weg, sind z.B. freie Komponenten bekannt, oder ist das noch der aktuelle Stand?

Vielen Dank für eure Infos.

[christian.noeding]

Hi,

die Google-Suche hat mich im Jahr 2025 hierher gebracht und da ich eine Lösung gefunden habe hier eine Antwort auf diesen sehr alten Thread. Das Tutorial kann erst einmal komplett so befolgt werden, nur übergeben wir dem Dialog lediglich ein leeres Template über die Resource-Datei. Der Inhalt meiner .rc-Datei sieht wie folgt aus:

Code:

100 DIALOG DISCARDABLE 0, 0, 200, 200
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS SHELL DLG"
BEGIN
END

Diese Ressource wird wie im Tutorial angegeben über MAKEINTRESOURCE(...) dem PropertySheet übergeben. Damit wird schon einmal ein leeres Tab im Property-Sheet angezeigt.

Nun legt man ein neues reguläres VCL-Formular an. In der Funktion PropertySheetDlgProc() (den Pointer hierhin hat man zuvor in der AddPages() mittels .pfnDlgProc := @PropertySheetDlgProc; übergeben) können wir nun das VCL-Formular wie folgt erzeugen und dem PropertySheet einfügen:

Code:

myvclform := Tmyvclform.CreateParented(hDlg);
myvclform.Show;

Vorteilhaft ist dann noch die VCL-Form als Align:=alClient zu stellen und den BorderStyle auf bsNone zu setzen. Dann kann man aber sehr einfach den Formular-Editor von Delphi wieder verwenden.

Vielleicht stolpert ja noch ein anderer über diese Sache