Windows Ordner-Icon auslesen?

[gandime]

Hi,
ich möchte für mein FTP-Clienten das Windows-Icon für den Ordner auslesen.
Bei Dateien Benutze ich folgenden Code:

Delphi-Quellcode:

      SHGetFileInfo(PChar(ExtractFileExt(s)), FILE_ATTRIBUTE_NORMAL, FileInfo,
      SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
      SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);

muss ich für das Ordner-Icon nur die Parameter ändern oder geht das damit überhaupt nicht?


mfg

gandime