Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Zip-Dateien auf dem Desktop werden als Ordner klassifiziert

**mirage228**

Hallo,

Ich habe folgendes Problem:

Ich versuche die Sourcen der TurboPower Shellshock Komponente so zu verändern, dass ZIP-Dateien nicht mehr als Ordner angezeigt werden. Laut

MSDN haben solche ZIP Dateien den Flag SFGAO_STREAM (neben SFGAO_FOLDER). Ersteren Typ habe ich nachdefiniert, weil er in der Standard ShlObj nicht drin steht.

Die Überprüfung, ob ein Ordner vorliegt, sieht nun so aus (ShShlCtl.pas, Zeile 2094)

markieren

Delphi-Quellcode:

			SI.FIsFileFolder := (SI.FIsFileSystem) and

  ((Attr and SFGAO_FOLDER) = SFGAO_FOLDER) and

  (not ((Attr and SFGAO_STREAM) = SFGAO_STREAM));

Das klappt normalerweise auch, jedoch nicht mit ZIP-Dateien, die ich auf dem Desktop habe, dort fehlt das SFGAO_STREAM-Flag - es ist nur SFGAO_FOLDER gesetzt und somit werden diese ZIP-Dateien auf dem Desktop als normale Ordner erkannt.
Wie kann das sein? Wie kann ich dieses Problem beheben?

mfG
mirage228