ShellListView - Rechtsklick und Ausführen deaktivieren?

[Gina]

Hallochen,

in meinem Programm benutze ich u.a. eine ShellTreeView/ShellListView zur Auswahl von Dateien/Ordnern. Nun möchte ich aus Sicherheitsgründen das Löschen, Umbenennen und Ausführen von Dateien unterbinden, damit nix passieren kann. Ich habe im Objectinspector die ShellListView bereits auf ReadOnly gestellt, doch ich kann trotzdem per Rechtsklick Datein löschen umbenennen etc. Ebenso in der ShellTreeView. Für die ShellTreeView gibt es eine solche Einstellung erst gar nicht (?). Außerdem können Dateien durch Doppelklick geöffnet bzw. ausgeführt werden.

Gibt es eine Möglichkeit, diese ganzen Sachen abzuschalten? Wenn ja wie? (Ich weiß, man kann eine solche Komponente auch selbst basteln, aber ich möchte eben gerne die vorhandenen nutzen...;))

Vielen lieben Dank, Gina.

[Alexander]

Hi Jeanne :-)
schau mal nach AutoNavigate im OI. Wenn ich mich richtig entsinne, kann man damit das Ausführen verhindern. Habe es allerdings ncht ausprobiert ;)

[Gina]

Hi Alex...;)

Danke für den Tipp. Habs grad mal ausprobiert. Der Doppelklick funktioniert damit dann nicht mehr. Allerdings kann ich dann auch keinen Ordner mehr öffnen. :( Und Rechtsklick geht immer noch und löschen und ausführen... :( Schade...

Danke dir trotzdem ganz dolle... ;)

PS: Habe aber gerade AutoContextMenue entdeckt. War direkt dadrüber *oops* Damit ist Rechtsklick schonmal deaktiviert. Tausend Dank.

[Alexander]

Hi,
Ordner könntest du ja dann manuell öffnen ;)

Delphi-Quellcode:

 
procedure TForm1.ShellListView1Click(Sender: TObject);
  if ShellListView1.SelectedFolder.IsFolder then
     ShellListView1.Path := ShellListView1.SelectedFolder.PathName;
end;

(nicht getestet)

[Gina]

Das funktioniert leider nicht... :( Hab doch D6. Aber ich denke, man könnte sich vielleicht mit der Variante anfreunden. Dann wird eben nur über die ShellTreeView navigiert. Werds dem Chef mal zum testen geben. Dann kann ich DoubleClick ja mit Auswählen und zur Liste hinzufügen belegen. Wäre ja auch nicht schlecht.;)

Vielen Dank für deine Mühe, bis denne...

[Alexander]

Zitat:

Zitat von Gina

Das funktioniert leider nicht... :( Hab doch D6.

:wall: Stimmt ;). Aber hatten wir das nicht schon mit dem Ordnerwechsel unter Delphi 6 gelöst?

[Gina]

Ja, aber es könnte noch etwas eleganter sein ;) Ist ziemlich umständlich, wie es bisher ist...

Mal sehen...

Bia denne...

[Gina]

UPDATE: Also dem Chef gefällt die Variante mit AutoNavigate supi, damit ist mein Problem gelöst.

Nochmals vielen Dank, Gina.