Symbol eines Dateityps

[neolithos]

Delphi-Quellcode:

function ShlImageIndex(asFileName: String; alSmall,
  alOpen: Boolean): Integer;
var fInfo : TSHFileInfo;
    dwFileAttr,
    dwFlags : Cardinal;
begin
  FillMemory(@fInfo, SizeOf(fInfo), 0);

  dwFlags := 0;
  dwFileAttr := 0;

  if alOpen then dwFlags := dwFlags or SHGFI_OPENICON;

  // normaler Dateiname oder bloß endung
  if (Length(asFileName) > 1) and (asFileName[1] = '.') then
     begin
       dwFlags := dwFlags or SHGFI_USEFILEATTRIBUTES;
       dwFileAttr := FILE_ATTRIBUTE_NORMAL;
     end;

  SHGetFileInfo(PChar(asFileName), dwFileAttr, fInfo, SizeOf(fInfo),
    SHGFI_SYSICONINDEX or dwFlags);

  Result := fInfo.iIcon;
end;

müsstes du nur noch anpassen