本实例实现的功能是能够从用户选择的可执行文件(后缀名为exe)中提取所有图标并且显示在窗体上. 在窗体中添加TImage 组件.TOpenDialog组件和TButton组件,TImage组件充当显示文件内图标的容器,TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框.添加组件后的窗体如图1所示. 图1 添加组件后的窗体 首先在窗体的uses段中添加ShellAPI,然后添加按钮响应代码如下: procedure TfrmMain.btnOpenClick(Se…

http://www.duote.com/tech/4/11797.html delphi编写提取exe文件的ICO图标 7.0分 出处:天下网吧 时间:2011-08-05 人气:2390 核心提示:会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标, 会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标,我们为什么不提取出来呢?下面教你怎么用delphi编程提取EXE文件的图标,并保存为ICO格式的. 代码如下: pr…

Delphi 在任务栏隐藏程序图标 方法一:1.修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;”2.在主窗体的 OnShow 事件中写下:ShowWindow(Application.Handle, SW_HIDE); 方法二:改变窗体样式 SetWindowLong(Self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); ------…

delphi 动态获取文件类型的图标.txt我不奢望什么,只希望你以后的女人一个不如一个.真怀念小时候啊,天热的时候我也可以像男人一样光膀子!在应用程序的编写中,组合框(ComboBox).列表框(ListBox).等常见的部件,通常不仅要用于显示文字,而且还要显示其与文字相关的图标.在一般的Windows应用程序中,这些图标的显示都要随列出的显示文本的变化而变化,例如在组合框中列出当前目录下的所有文件时,在组合框左边就显示与文件名相关联的图标,这就是所谓的动态图标.在 Delphi中使用动态图…

//uses ShellAPIprocedure TForm1.Button1Click(Sender: TObject);var IconIndex:Word; h:hICON;begin IconIndex:=0; h:=ExtractIcon(HInstance,pchar('c:\windows\notepad.exe'),IconIndex); DrawICon(Form1.canvas.Handle,200,100,h);end;//用控件ImageList保存提取的图标,并在Lis…

[前言] 业务需求将qt程序打包成win可执行文件.咱是做linux的,奈何用的麒麟系统,程序运行在win,好嘛,重新在win qtcreator编译后打包呗. [目标] 1.给qt程序添加一个图标. 2.qt程序打包. 3.将打包后的qt程序做成单个文件. [正文] 1.给qt程序添加一个图标: 首先确定程序可以正常编译,运行. 然后在项目代码目录下放一个xxx.ico文件,图片不要太大32*32刚好. 再然后打开项目的.pro文件,在里面加入RC_ICONS = xxx.ico. 最后编译程…

1.图标在Dev源码的存储路径: Sources D.x.u 15.1.3\DevExpress.Images\Images   2.引用DevExpress.Images.v15.1.dll文件,代码获取图标方法: ImageCollection imageCollection = new ImageCollection(); imageCollection.Images.Add(DevExpress.Images.ImageResourceCache.Default.GetImage("im…

    {------------------------------------------------------------------------------- @过程名: slpert -> TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述: @参数: FileExt, Filetype, FileDescription, MIMEType, ExecName: string @返回值: Boolean-------…

uses Windows;type TfrmLogin = class(TForm) end; implementation {$R *.dfm} procedure TfrmLogin.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW)); end;…

uses Windows; type TfrmLogin = class(TForm) end; implementation {$R *.dfm} procedure TfrmLogin.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW)); end; http://blog.csdn.net/yanj…