TgetSHfileInfo要加个什么参数可以得了空文件(不存在的)的图标了?
解决方案 »
- 如何解决DLL里的invalid pointer operation问题?
- 如何用ADOQuery1连接MYSQL数据库
- DELPHI7很烦人的一个地方`~~
- 请问一下谁有比较的源码下载呀?
- 我知道事务的概念,也知道怎么写事务的代码,但我不知道什么时候该用事务??
- 如何用delphi进行邮件群发?给一下思路即可!
- 返回参数的类型用哪个函数?求教
- 怎样绘制一个渐变色的矩形区域,就象 win2000/98 的标题栏那样???UP有分!!
- 急!急!急!如何在WEBBROWSER中显示ASP网页
- 请问delphi xe 如何生成一个标准的 dll, 供 PHP调用?
- 看过SPCOMM的原码的朋友进来看看
- QuickReport的问题,我打印预览的时候都正常的,但是打印的时候怎么老是有一个字段打印不出来!急啊,,,,弟兄们救命!
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;