var
FileName: AnsiString;
begin
if OpenDialog1.Execute then
FileName := OpenDialog1.FileName ;
img1.Picture.Icon.Handle :=
ExtractIcon(Hinstance, pchar(FileName), 0);
end;
zhangshengqi 博主文章分类:知识点积累 ©著作权
任务栏图标修改
简述在 Windows 中,文件查看有很多模式,比如:缩略图 16*16平铺 48*48图标 32*32列表 16*16分别对应了多个不同大小的图标
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M