Ist es ein lnk Ordner ?

[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.

[KodeZwerg]

Lese das Environment aus und benutze %ProgramFiles% für Deinen Programm-Ordner? bzw %ProgramFiles(x86)% fürs 32bit Pendant.

[HolgerX]

Hmm..

Zitat von Der schöne Günther:

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

Also im CMD gibt es bei mir keinen 'C:\Programme'..

Ist es nicht so, dass da der Explorer dem User den Namen vorgaukelt?

[Der schöne Günther]

Unter C:\Program Files\ liegt eine desktop.ini welche den im Explorer angezeigten Namen steuert. Aber darum geht es doch überhaupt nicht, C:\Programme war ihm doch nur ein Beispiel.

Er möchte die Link-Verknüpfungen die bei Verwendung der Delphi-Routinen aufgelistet werden aussortieren. Ich denke, das haben wir.

[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

[Dalai]

Zitat von Der schöne Günther:

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

Korrektur: Es ist eine Junction, kein Symlink. Weiß nicht genau, inwiefern die sich in der Funktionsweise unterschieden, aber sicher ist, dass Junctions schon unter Win2k funktioniert haben, Symlinks aber erst seit Vista.

Grüße
Dalai

[p80286]

Ich habe es gerade einmal mklink ausprobiert
sowohl
mklink /D xxx yyyy
als auch
mklink /J xxx YYYY

produzieren einen Eintrag, der durch das Icon als Link zu erkennen ist, und ein dir o* liefert:

Code:

 Volume in Laufwerk C: hat keine Bezeichnung.
 Volumeseriennummer: CABC-C76B

 Verzeichnis von C:\daten

07.06.2018  18:36    <SYMLINKD>     oplink1 [c:\op]
07.06.2018  18:36    <VERBINDUNG>   oplink3 [c:\op]
               0 Datei(en),              0 Bytes
               2 Verzeichnis(se), 11.838.672.896 Bytes frei

und ein dir c:\p* liefert:

Code:

 Verzeichnis von c:\

14.07.2009  05:20    <DIR>          PerfLogs
09.04.2018  10:07    <DIR>          Program Files
23.12.2017  14:23    <DIR>          Program Files (x86)

Wie schon oben erwähnt scheint es sich bei "C:\Programme" um eine Übersetzung zu handeln und nicht um einen Link?

Gruß
K-H

P.S.
Es handelt sich um W7

[Dalai]

Zitat von p80286:

Wie schon oben erwähnt scheint es sich bei "C:\Programme" um eine Übersetzung zu handeln und nicht um einen Link?

Nein, es ist eine Junction:

Code:

C:\>dir /a c:\pr*
 Datenträger in Laufwerk C: ist System
 Volumeseriennummer: 6C9C-D0F9

 Verzeichnis von c:\

31.05.2017  18:04    <DIR>          Program Files
08.04.2018  21:23    <DIR>          Program Files (x86)
07.06.2018  01:54    <DIR>          ProgramData
27.10.2016  19:54    <VERBINDUNG>   Programme [C:\Program Files]
               1 Datei(en),     20.971.520 Bytes
               5 Verzeichnis(se), 35.561.439.232 Bytes frei

Und zwar eine, die die Attribute H und S hat, also versteckt ist, weswegen man dem dir-Befehl noch entsprechende Schalter mitgeben muss.

Grüße
Dalai