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 von MicMic:

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 von HolgerX:

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