请问如何获得文件相关的小图标，然后画到LISTVIEW里去，不要用IMAGELIST

[huayuxing]

用GETFILEINFO好象只能获得大图标，小图标获得不了啊，

[xzhifei]

它可以将某一文件的大、小显示图标调出来。
var
FileInfo: TSHFileInfo;
Flags: Integer;
begin
FillChar(FileInfo, SizeOf(FileInfo), #0);
Flags := SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_IPENICON{或者 or SHGFI_LCARGEICON 或 or SHGFI_SMALLICON};
SHGetFileInfo(PChar(PIDL),
0,
FileInfo,
SizeOf(FileInfo),
Flags);
Result := FileInfo.iIcon;
end;

[huayuxing]

我是这样用的，返回的是0可是，是不是只有98下才对啊，2000里反正不行

[xzhifei]

小图标时就这样用：
Flags := SHGFI_ICON or SHGFI_SMALLICON;

[huayuxing]

procedure TForm1.Button1Click(Sender: TObject);
var

FileInfo: TSHFileInfo;
Flags: Integer;
begin
FillChar(FileInfo, SizeOf(FileInfo), #0);
Flags := SHGFI_ICON or SHGFI_SMALLICON;
SHGetFileInfo(PChar('C:\diao.bmp'),
0,
FileInfo,
SizeOf(FileInfo),
Flags);
flags := FileInfo.iIcon;
DrawIcon(flags,10,10,flags);
end;
end.

[huayuxing]

这是这样写的，大图标就能画出来，小图标画不出来

[huayuxing]

DrawIcon(Form1.Canvas.Handle,10,10 ,flags);

[午秋]

Delphi6自带的例子中有
\Delphi6\Demos\Virtual Listview

[xzhifei]

procedure TForm1.Button2Click(Sender: TObject);
var
Icon: TICon;
SHFileInfo: TSHFileInfo;
begin
Icon := TIcon.Create;
SHGetFileInfo('c:\a.bmp',
0,
SHFileInfo,
sizeof(SHFileInfo),
SHGFI_ICON or SHGFI_SMALLICON);
Icon.Handle := SHFileInfo.hIcon;
Canvas.Draw(0, 0, Icon);
icon.Free;

end;