怎样得到文件的16*16 的图标，extracticon?

[stanely]

?

[wz2001]

Yes!
aIcon.Handle:=ExtractIcon(Hinstance,"FileName",0)

[stanely]

你说的好像只能得到32*32的呀！

[INeedCa]

最后一个参数是IconIndex，试试1、2...

[stanely]

我想得到的是dll,exe里面的16*16的图标呀，不是用extractasspciatedicon呀

[stanely]

我式过了，最后一个参数无论是多少，得到的都是32*32的。
怎么得到16*16？

[ihihonline]

为什么要用16*16?

[stanely]

我想让listview现实文件夹，但是想用report方式，32的太大

[stanely]

??

[BoningSword]

var
Icon:TICon;
begin
Icon:=TIcon.Create;
Icon.wigh:=16;
Icon.Heigh:=16;
Icon.Handle:=ExtractIcon(Hinstance,"FileName",0) ;
Icon.free;
end;

可以試一試

[qevan]

收益

[taxi]

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
FileInfo: TSHFileInfo;
begin
if OpenDialog1.Execute then
begin
FileInfo.iIcon := 0;
SHGetFileInfo(PChar(OpenDialog1.FileName), 0, FileInfo, SizeOf(TSHFileInfo),
SHGFI_ICON or SHGFI_SMALLICON);
Image1.Icon.Handle := FileInfo.hIcon;
end;
end;

[taxi]

最后一句写错了。
Image1.Picture.Icon.Handle := FileIcon.hIcon;

[taxi]

如果要得到在大图标则：
SHGetFileInfo(PChar(OpenDialog1.FileName), 0, FileInfo, SizeOf(TSHFileInfo),
SHGFI_ICON or SHGFI_LARGEICON);