如:怎样提取*.jpg类型文件的图标?
extracticon()只能提取*.exe文件的图标。
extracticon()只能提取*.exe文件的图标。
解决方案 »
- Delphi Cxgrid如何有选择的导出到Excel
- 怎么取sqlserver 存储过程的返回值
- 这是HT9800称重仪表发送数据的格式.我用程序如何处理接受的数据.正确显示
- 插入Text类型数据出乱码问题
- 预览绘制好的图形时,改变显示比例后,原比例的图形仍然存在,怎么办?
- 请教诸位,哪儿有delphi 5.0下?给分!
- 我的电脑中Delphi60和BCB60不能和平共处了!
- 请教一个报表打印问题,我已经实现了分组打印,但是却不知道怎么让PageFooter部分显示各组的合计值,而不是所有页的总合计,请问该如何作
- 调查:软件测试在你的公司处于什么样的地位?
- 在动态库调用Datasnap函数,返回类型是TFDJSONDatasets报错The Input value is not a valid object
- 不好意思,再问一下,真的不明白,能详细一点吗?
- 怎样提取任意类型文件的图标?
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.picture.Icon.Handle := FileInfo.hIcon;
end;
end;
建议:
Icon:ticon;
filename:string;//你的文件
SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(TSHFileInfo),
SHGFI_ICON or SHGFI_LARGEICON);
Icon := TIcon.Create;
Icon.Handle:=FileInfo.hIcon;
Icon.SavetoFile('d:\ee.ico');