Ist es ein lnk Ordner ?

[MicMic]

Hallo,

beispielsweise zeigt der Ordner "C:\Programme" auf "C:\Program Files".
Mit FindFirst/Next auf "C:\Programme" zuzugreifen, geht natürlich nicht.
Da gibt es doch bestimmt passende Funktionen, um dies ermitteln zu können, wohin der Ordner führt?

Auch hat so ein Ordner ein kleines Verknüpfungs-Icon dabei. Ich nutze jedenfalls SHGetFileInfo für die Icons von Verzeichnissen und Dateien. Je nach Flag bekomme ich auch spezielle Symbole (z.B. für C:\Windows\Offline Web Pages" für die Ordner zurück geliefert. Jedoch kein Verknüpfungspfeil, wie er z.B. bei "C:\Programme" dabei ist.

Kennt sich jemand aus? :)

Michael

[p80286]

Zitat:

Zitat von MicMic (Beitrag 1404113)

beispielsweise zeigt der Ordner "C:\Programme" auf "C:\Program Files".

Wenn ich mich richtig erinnere ist "Programme" nur die Übersetzung von "Program Files" und kein Link.

Gruß
K-H

[MicMic]

Zitat:

Wenn ich mich richtig erinnere ist "Programme" nur die Übersetzung von "Program Files" und kein Link.

"C:\Programme" wird als Verzeichnis ausgelesen. Macht halt Windows so, wegen der Kompatibilität alter Windows-Versionen. Es sind beide da. "Programme" und "Program Files". Ein normaler Zugriff mit FindFirst/Next auf "C:\Programme" geht aber nicht. Deshalb benötige ich eine Funktion um das Ziel "C:\Program Files" ermitteln zu können. Über die Registry möchte ich nicht gerne gehen.

Michael

[HolgerX]

Hmm..

Da es sich hier um ein System-Verzeichnis handelt, gibt es dafür API-Abfragen.

Google mal nach

SHGetFolderPathW
SHGetPathFromIDList
SHGetKnownFolderPath

;)

Bedenke aber, das hier der Pfad für deine EXE kommt und MS hier unter x64 2 Verzeichnisse hat!

'Program Files' für 64 Bit-Programme
'Program Files (c86)' für die 32 Bit

[MicMic]

Zitat:

Zitat von HolgerX (Beitrag 1404128)

Hmm..

Da es sich hier um ein System-Verzeichnis handelt, gibt es dafür API-Abfragen.

Google mal nach

SHGetFolderPathW
SHGetPathFromIDList
SHGetKnownFolderPath

;)

Danke... ich schau mal und schau ob ich es hinbekomme. Ist nicht immer einfach (wegen dem Englisch).
Michael

[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

Delphi-Quellcode:

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:

Zitat von Der schöne Günther (Beitrag 1404131)

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? :stupid:

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

Zitat von Der schöne Günther (Beitrag 1404131)

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

Du kannst beim Auflisten der Verzeichnisse die aussortieren indem du schaust dass das Flag

Delphi-Quellcode:

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

Delphi-Quellcode:

Attr

-Wert anschauen um festzustellen ob es ein Link ist :)

[Dalai]

Zitat:

Zitat von Der schöne Günther (Beitrag 1404131)

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

[MicMic]

Zitat:

Zitat von Der schöne Günther (Beitrag 1404159)

Dein FindFirst/FindNext benutzt das gleiche TSearchRec wie der Beispielcode. Du musst du nur den

Delphi-Quellcode:

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

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

Zitat von p80286 (Beitrag 1404207)

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

[p80286]

Unter W7:

Code:

C:\>dir /a c:\p*
 Volume in Laufwerk C: hat keine Bezeichnung.
 Volumeseriennummer: CABC-C76B

 Verzeichnis von c:\

07.06.2018  18:09     4.137.852.928 pagefile.sys
14.07.2009  05:20    <DIR>          PerfLogs
09.04.2018  10:07    <DIR>          Program Files
23.12.2017  14:23    <DIR>          Program Files (x86)
04.10.2017  21:11    <DIR>          ProgramData
               1 Datei(en),  4.137.852.928 Bytes
               4 Verzeichnis(se), 11.492.528.128 Bytes frei

Gruß
K-H

Edith:
Unter W8.1 ist das Ergebnis das gleiche.
Was mach ich falsch?

[Dalai]

Möglich, dass vorinstallierte Systemen diese Junction fehlt (wie auch die für "Dokumente und Einstellungen"). Einfach einen vernünftigen Dateimanager benutzen, dort die Anzeige von versteckten und Systemdateien aktivieren, und schon sieht man, was auf der Platte Phase ist ;).

Grüße
Dalai

[p80286]

Ausgerechnet diese ist vorhanden:shock:
Sieht so aus als würden sich auch "Standard Installationen" unterscheiden.
Zur Desktop.INI hab ich einen netten Artikel gefunden, der allerdings eher das Umfeld als die Kerninformation beschreibt.

Gruß
K-H