1:
2:
3:
4:

if SHGetFileInfo(PChar(Filename), 0, Info, SizeOf(Info), SHGFI_TYPENAME) <> 0 then
  Result := Info.szTypeName
else
  Result := '';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);
var
  SysIL : uint;
  SFI : TSHFileInfo;
begin
  SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  if SysIL <> 0 then begin
    SmallImages.Handle := SysIL;
    SmallImages.ShareImages := TRUE;
  end;
  Form1.VST.Images:=SmallImages;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function GetIconIndex(const AFileName: string;
  Attrs: DWORD): integer;
var
  SFI : TSHFileInfo;
begin
  SHGetFileInfo(PChar(AFileName), Attrs, SFI, SizeOf(TShFileInfo),
                SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);
  Result := SFI.iIcon;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);
var
  SysIL : uint;
  SFI : TSHFileInfo;
begin
  SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  if SysIL <> 0 then begin
    SmallImages.Handle := SysIL;
    SmallImages.ShareImages := TRUE;
  end;  
  Form1.VST.Images:=SmallImages;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function GetIconIndex(const AFileName: string; Attrs: DWORD): integer;
var
  SFI : TSHFileInfo;
begin
  SHGetFileInfo(PChar(AFileName), Attrs, SFI, SizeOf(TShFileInfo),
                SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);
  Result := SFI.iIcon;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function GetFileTyp(const AFileName: string): string;
var
  SFI : TSHFileInfo;
begin
    SHGetFileInfo(PChar(AFileName), 0, SFI, SizeOf(TShFileInfo),
         SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);
    Result:= SFI.szTypeName
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure VerzeichnisEinlesen(VerzName, filter:string);
var 
    Info    : TSHFileInfo;
    SR      : TSearchRec;
    TreeData: TTreeData;
    Node : PVirtualNode;
begin
  if VerzName[length(VerzName)]<>'\' then
    VerzName:=VerzName+'\';
  if filter='' then filter:='*.*';
  with Form1 do begin
    VST.BeginUpdate;
    VST.Clear;
    VST.NodeDataSize:=SizeOf(TTreeData);
    if FindFirst(VerzName+filter,faAnyFile  ,SR)=0 then begin
      repeat
        if (length(SR.Name)>0) and ((SR.Name <> '.') and (SR.Name <> '..')) then begin
          if (LowerCase(SR.Name)<>'desktop.ini') and (LowerCase(SR.Name)<>'recycled') then
          begin
            TreeData.FCaption:=SR.Name;
            TreeData.FColumn1:='Bild-Index ' + IntToStr(GetIconIndex(SR.Name,FILE_ATTRIBUTE_NORMAL ));
            TreeData.Image:=GetIconIndex(SR.Name,FILE_ATTRIBUTE_NORMAL );
            TreeData.Typ:= GetFileTyp(SR.Name);
            Node:=VST.FocusedNode;
            AddVSTStructure(VST,Node,TreeData);
          end
        end;
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
    VST.EndUpdate;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
  ARecord: TTreeData): PVirtualNode;
var
  Data: PTreeData;
begin
  Result:=AVST.AddChild(ANode);
  Data:=AVST.GetNodeData(Result);
  Avst.ValidateNode(Result, False);
  Data^.FCaption:=ARecord.FCaption;
  Data^.FColumn1:=ARecord.FColumn1;
  Data^.Typ:=ARecord.Typ;
  Data^.Image:=ARecord.Image;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function GetIconIndex(const AFileName: string; Attrs: DWORD): integer; 
var 
  SFI : TSHFileInfo; 
begin 
  SHGetFileInfo(PChar(AFileName), Attrs, SFI, SizeOf(TShFileInfo), 
                SHGFI_SYSICONINDEX); 
  Result := SFI.iIcon; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function GetIconIndex(const AFileName: string; Attrs: DWORD): integer; 
var 
  SFI : TSHFileInfo; 
begin 
  SHGetFileInfo(PChar(AFileName), Attrs, SFI, SizeOf(TShFileInfo), 
                SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES); 
  Result := SFI.iIcon; 
end;