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)

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