如何取得某类文件的图标(100分)

delphilxh · 2002-10-20

我是想利用它的扩展名，取得此一类型的图标， 而且是图标在系统 IMAGELIST 中的INDEX

liuxi · 2002-10-20

uses ShlObj; function GetFileIcon(const AFileName:String; const ASmallIcon:Boolean): HICON; var   Flag: Integer;   info: TShFileInfo; begin   if ASmallIcon then     Flag:=(SHGFI_SMALLICON or SHGFI_ICON)   else     Flag:=(SHGFI_LARGEICON or SHGFI_ICON);   SHGetFileInfo(Pchar(AFileName),0,info,Sizeof(info),Flag);   Result:=info.hIcon; end;

dedema · 2002-10-21

extracticon函数.

zw84611 · 2002-10-21

//设置TreeView或ListView的Images，可以是Small或Large procedure TForm1.SetImageLists; begin   //向ListView传递系统的ImageList   with ListView1 do   begin   if not Assigned(SmallImages) then   begin     SmallImages := TImageList.Create(Self);     SmallImages.ShareImages := True;     SmallImages.Handle := SHGetFileInfo('c:/',       0,       FileInfo,       SizeOf(FileInfo),       SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);   end;   if not Assigned(LargeImages) then   begin     LargeImages := TImageList.Create(Self);     LargeImages.ShareImages := True;     LargeImages.Handle := SHGetFileInfo('c:/',       0,       FileInfo,       SizeOf(FileInfo),       SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);   end;   end; end; //Tree或ListView的GetImageIndex时调用此代码，把文件名传进去，返回的就是ImageIndex了 //Large表示返回的是否大图标的Index，跟上面的设置应保持一致 function TForm1.GetFileIconIndex(FileName: string; Large: Boolean): Integer; { 获取图标的序号函数 } var   Ext: string;   Flags: Integer; begin   Ext := FileName;   Flags := SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES;   if Large then     Flags := Flags or SHGFI_LARGEICON   else     Flags := Flags or SHGFI_SMALLICON;   SHGetFileInfo(PChar(Ext), 0, FileInfo, SizeOf(FileInfo), Flags);   Result := FileInfo.iIcon; end;

delphilxh · 2002-10-23

多谢

如何取得某类文件的图标(100分)

delphilxh

Unregistered / Unconfirmed

liuxi

Unregistered / Unconfirmed

dedema

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

delphilxh

Unregistered / Unconfirmed

Similar threads