5,388
社区成员
发帖
与我相关
我的任务
分享请问如何取得各种文件类型对应的图标
我要用列表控件来显示文件，但只显示文件名太单调了，最好还显示一下文件对应的图标。
有什么函数可以取得某一个文件对应的图标。
有什么函数可以取得某一个文件对应的图标。
...全文
请发表友善的回复…
发表回复
wly033 2003-08-18
- 打赏
- 举报
我的意思是：当你随便打开D盘后肯定会看见许多文件，每种文件类型都有一个图标显示，我要得到这个图标，而不是用ExtractIcon.
firstshine 2003-08-18
- 打赏
- 举报
我记得delphi好像有一个例程好象叫ResXplor
OO_is_just_P 2003-08-18
- 打赏
- 举报
function GetFileIcon(const Filename: string; SmallIcon: Boolean): HICON;
var
info: TSHFILEINFO;
Flag: Integer;
begin
if SmallIcon then
Flag := (SHGFI_SMALLICON or SHGFI_ICON)
else
Flag := (SHGFI_LARGEICON or SHGFI_ICON);
SHGetFileInfo(Pchar(Filename), 0, info, Sizeof(info), Flag);
Result := info.hIcon;
end;
//=========================================================
Icon := TIcon.Create;
try
Icon.Handle := GetFileIcon(New, False);
Big.AddIcon(Icon);
finally
Icon.Free;
Icon := nil;
end;
var
info: TSHFILEINFO;
Flag: Integer;
begin
if SmallIcon then
Flag := (SHGFI_SMALLICON or SHGFI_ICON)
else
Flag := (SHGFI_LARGEICON or SHGFI_ICON);
SHGetFileInfo(Pchar(Filename), 0, info, Sizeof(info), Flag);
Result := info.hIcon;
end;
//=========================================================
Icon := TIcon.Create;
try
Icon.Handle := GetFileIcon(New, False);
Big.AddIcon(Icon);
finally
Icon.Free;
Icon := nil;
end;
