Ist es ein lnk Ordner ?

[MicMic]

Zitat von Der schöne Günther:

C:\Programme existiert tatsächlich, ist aber aber symbolischer Link.

Du kannst beim Auflisten der Verzeichnisse die aussortieren indem du schaust dass das Flag faSymLink nicht vorhanden ist:

Delphi-Quellcode:

program Project28;

{$APPTYPE CONSOLE}
{$R *.res}

uses
   System.SysUtils,
   System.Types,
   System.IoUtils;

var
   directories: TStringDynArray;
   directory: String;
   isNotSymLink: TDirectory.TFilterPredicate;
begin
   isNotSymLink :=
      function(const Path: string; const SearchRec: TSearchRec): Boolean
      begin
         Result := (faSymLink and SearchRec.Attr) = 0;
      end;

   directories := TDirectory.GetDirectories(
      'C:\',
      TSearchOption.soTopDirectoryOnly,
      isNotSymLink
   );

   for directory in directories do
      WriteLn(directory);

   ReadLn;
end.

Mit TDirectory kann man viel machen, wie ich sehe.
Danke für den Beispielcode. Ich muss halt noch mein Record Array füllen. Also was so von FindFirst/Next kommt. (Size/Attr/Time etc.) speichere ich in ein Array of Record. Im Programm arbeite ich dann mit diesem Record. Am liebsten hätte ich es so, dass ich mein Record of Array um eine symLink Variable erweitere. Steht dort das Zielverzeichnis drin, weis ich 1. das Zielverzeichnis und 2. das es sich um ein symlink-Ordner handelt. Anzeigen möchte ich diese Ordner nämlich schon... also es geht um so ein Dateimanager ähnlich wie der Total-Commander. Ich probiere mal ein paar Dinge aus.

Michael

[Der schöne Günther]

Dein FindFirst/FindNext benutzt das gleiche TSearchRec wie der Beispielcode. Du musst du nur den Attr -Wert anschauen um festzustellen ob es ein Link ist

[MicMic]

Zitat von Der schöne Günther:

Dein FindFirst/FindNext benutzt das gleiche TSearchRec wie der Beispielcode. Du musst du nur den Attr -Wert anschauen um festzustellen ob es ein Link ist

Manchmal ist's so einfach dabei habe ich schon oft die Hilfe-Seite zu TSearchRec angeschaut. Dort sind ja diese Attribute aufgelistet Dankeschön

Jetzt versuche ich noch den Verknüpfungsfeil anzeigen zu lassen.
Habe dazu bei SHGetFileInfo den Wert "SHGFI_LINKOVERLAY" genommen und die oberen 8 Bits von "psfi.iIcon" soll dann die Index-Nummer sein sein.
Also folgende Werte setze ich Testweise bei SHGetFileInfo ein. "SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_LINKOVERLAY".

OverIndex := (Info.iIcon shr 24) and $0000000F; // hab ich so im Internet gefunden (für die oberen 8 Bits)

Aber leider ist hier ein anderes Icon zu sehen und kein Verknüpfungsfeil. Habe dazu eine andere Funktion aus dem Internet gefunden aber wenn das mit SHGetFileInfo gehen würde, wäre das super. Aber vielleicht hat "SHGFI_LINKOVERLAY" eine andere Bedeutung?

P.s. "SHGFI_ADDOVERLAYS" hört sich so an, als ob es gleich ein Icon + Verknüpfungsfeil ist?

Ich hoffe ich nerve nicht. Es ist nicht so einfach, die Informationen die man im Internet findet (meist englisch) zu verstehen und umzusetzen.

Michael