求图片或ICON类素材(可加至500分)(300)

  • 主题发起人 主题发起人 活化石
  • 开始时间 开始时间

活化石

Unregistered / Unconfirmed
GUEST, unregistred user!
那位富翁手中有如下的图片或图标(48乘48可好)图像要求:在XP上,你双击我的电脑后,右侧以缩略图样式显示的各个盘符,一般含三类:硬盘\光驱\移动设备其中移动设备上要求有三类图片:上面有惊叹号\问号\和对号的(对应颜色:红\灰\兰(或绿)所以共计需要这五个图片.找了一两天,实在没精力了,希望大富翁们援手相助,必有重谢,此贴可加致(500分)我的EM:myhhsbak9@126.com
 
你的一句话,让别人都不敢帮你。别伤了别人的心。
 
znxia.谢谢提醒.
 
直接把屏幕通过PrintScreen键拷贝下来,然后到画图中去截取。
 
如果单要盘符的图标的话,我不用抓屏,我可直接分离出来.但现在是没有什么应用有我要求的图标样式,即移动盘符上有对号,惊叹号,问号.PS我操作不熟.
 
运气不太好,07时遇到同样的问题,几小时就解决了.
 
发给你一些。但不知道是不是你想要的?
 
terry_zhou82 当然.谢谢
 
http://u.skygz.com/?skygz其它 目录图标.rar 32103个 编程开发常用图标
 
function MyGetFileIcon(const AFileName: string;
ASmallIcon: Boolean): HICON;var Info: TSHFileInfo;
Flag: Integer;
Attrs: DWORD;
begin
if ASmallIcon then
Flag := (SHGFI_SMALLICON or SHGFI_ICON) else
Flag := (SHGFI_LARGEICON or SHGFI_ICON);
Attrs := FILE_ATTRIBUTE_NORMAL;
ShellAPI.SHGetFileInfo(PChar(AFileName), Attrs, Info, sizeof(Info), Flag);
Result := Info.hIcon;
end;
procedure TForm1.Butt;
begin
Image1.Picture.Icon.Handle := MyGetFileIcon('D:/1.xls', False);
end;
看中哪个ICON,可以直接提取出来……
 
to qjinshanq如果单要盘符的图标的话,我不用抓屏,我可直接分离出来.但现在是没有什么应用有我要求的图标样式,即移动盘符上有对号,惊叹号,问号.PS我操作不熟.to 风铃夜思雨,非常感谢.但似乎还是没有....to terry_zhou82非常感谢.但就缺我要的表示符号.
 
程序用上了,可图标还没搞定,郁闷.
 
问题已解决,感谢各位的帮助.
 
结得有点迟.
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部