怎样在自己的程序里面放进不同的图标?就像ACDSee一样,可执行文件里面有很多可供快捷方式选择的图标。。。(0分)

  • 主题发起人 主题发起人 stanely
  • 开始时间 开始时间
S

stanely

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在自己的程序里面放进不同的图标?就像ACDSee一样,可执行文件里面有很多可供快捷方式选择的图标。。。
 
关注![:)]
 
利用TImages来存放多个图标,
 
你也可以使用資源文件
 
TImage好像不行
TImageList也不行
 
用资源文件吧,图标不大
 
这是一个提取图标,并放在listview里,listview+imagelist
procedure TForm1.Button4Click(Sender: TObject);
var
count:integer;
i:integer;
myicon:ticon;
myimage:timage;
begin
if op3.execute then
begin
Count:=ExtractIcon(hinstance,PChar(op3.FileName),$FFFFFFFF);
label3.caption:='图标个数:'+inttostr(count);
imagelist1.Clear;
listview1.Clear;
FOR I:=0 TO COUNT-1 do
begin
myicon:=ticon.Create;
myicon.Handle:=extracticon(hinstance,pchar(op3.FileName),i);
imagelist1.AddIcon(myicon); //imagelist这里加
listview1.Items.Add;
listview1.Items.ImageIndex:=i;//listview里加
myicon.Free;
end;
end;
end;
 
写一个资源的动态链接库,从中选取。
 
建立资源文件,编译后会有的。
 
用资源文件,好象是在.res的文件里
 
以前见过个控件,不过名字忘了:P
 
使用brcc32
1. 建立一个rc脚本文本 iconres.rc
内容为:
icon1 ICON file1.ico
icon2 ICON file2.ico
2. 编译资源脚本
brcc32 iconres.rc
生成iconres.res文件
3. 加入delphi
在.pas文件中{$R *.DFM}后增建一行
{$R *.res}
或者{$R iconres.res},随你的意
4. 编译程序
现在应该可以看到图标了
 
http://go4.163.com/lovejingtao/myres.htm
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
948
DelphiTeacher的专栏
D
D
回复
0
查看
885
DelphiTeacher的专栏
D
后退
顶部