Fragen zur TFolderBrowser-Klasse

[ringli]

Ich experimentiere grade mit der TFolderBrowser-Klasse herum die ich von Luckies Seite heruntergeladen habe. Jetzt hätte ich da noch ein paar Fragen zu:

1. Wenn ich ein Startverzeichnis angebe (z.B. C:\Temp) wird dieser auch selektiert, aber dafür habe ich zweimal die "Eigenen Dateien" im Dialog.

2. Wie kann ich bestimmte Einträge wie die Systemsteuerung, Mobilen Geräte und den Papierkorb ausblenden?

[MathiasSimmack]

Zitat:

Zitat von ringli

1. Wenn ich ein Startverzeichnis angebe (z.B. C:\Temp) wird dieser auch selektiert, aber dafür habe ich zweimal die "Eigenen Dateien" im Dialog.

Screenshot? Ich kenne das Problem nämlich nicht.

Zitat:

2. Wie kann ich bestimmte Einträge wie die Systemsteuerung, Mobilen Geräte und den Papierkorb ausblenden?

Nicht mit der Klasse. Das müsste man wohl intern, über das API, klären.

[ringli]

Screenshot habe ich angehangen und den verwendeten Source siehst du hier

Delphi-Quellcode:

uses 
  BrowseForFolderCls;

procedure TForm1.Button1Click(Sender: TObject);
var
  fb: TFolderBrowser;
begin
  fb := TFolderBrowser.Create(Application.Handle,'Ordner auswählen','c:\temp',False,True);
  if(fb <> nil) then
    try
      if(fb.Execute) then
        Edit1.Text := fb.SelectedItem;
    finally
      fb.Free;
    end;
end;

[MathiasSimmack]

Ich tippe mal, dass dein Windows ein Problem hat, denn die Klasse selbst benutzt ja nur die API-Funktion SHBrowseForFolder und stellt selbst nichts dar. Ich habe den Code ausprobiert, und ich sehe meine "Eigenen Dateien" nur einmal. :gruebel:

Es wird dein Problem wahrscheinlich nicht lösen, :stupid:, aber ich hänge trotzdem mal die aktuelle Version der Klasse ran. Christian und ich haben nämlich noch die Funktion "TranslateMsiLink" eingebaut, mit der du die tatsächlichen Ziele von MSI-Verknüpfungen (etwa Microsoft Office oder Openoffice.org 2) ermitteln kannst(s. auch hier).

Äh, ja ... der Anhang ... :oops:

[ringli]

Zitat:

Zitat von MathiasSimmack

Ich tippe mal, dass dein Windows ein Problem hat, denn die Klasse selbst benutzt ja nur die API-Funktion SHBrowseForFolder und stellt selbst nichts dar. Ich habe den Code ausprobiert, und ich sehe meine "Eigenen Dateien" nur einmal. :gruebel:

Es wird dein Problem wahrscheinlich nicht lösen, :stupid:, aber ich hänge trotzdem mal die aktuelle Version der Klasse ran. Christian und ich haben nämlich noch die Funktion "TranslateMsiLink" eingebaut, mit der du die tatsächlichen Ziele von MSI-Verknüpfungen (etwa Microsoft Office oder Openoffice.org 2) ermitteln kannst(s. auch hier).

Äh, ja ... der Anhang ... :oops:

Danke für deine Mühe Mathias. :)

Ich werde die aktualisierte Version nochmal ausprobieren, aber ich hatte auch erst selbst versucht eine Lösung zu finden bin aber nicht weitergekommen. Also habe ich noch ein bisschen im Internet gesucht und bin auf diese Seite gestossen. Mit dieser Unit funktioniert es wie gewünscht. Ich sehe die "Eigenen Dateien" nicht doppelt und habe keine Systemsteuerung, Papierkorb oder Mobilen Geräte in der Auflistung. Diese Unit ist schon etwas älter, aber funktioniert nach der Korrektur von ein oder zwei Deklarationsfehlern (Integer --> Cardinal) bis jetzt problemlos.

Ich weiss leider nicht was der Programmierer anders gemacht hat als ihr, denn die Unit verwendet auch SHBrowseForFolder. :gruebel:

[Edit]
Vielleicht findet du ja da die eine oder andere Anregung was in eure Unit noch alles rein könnte... :wink:

[ringli]

Zitat:

Es wird dein Problem wahrscheinlich nicht lösen, , aber ich hänge trotzdem mal die aktuelle Version der Klasse ran.

Die neue Version hat das Problem leider nicht gelöst, aber das hattest du ja auch schon vermutet.