在delphi中怎样显示可执行文件的图标？(50分)

D

dmsm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #1

在delphi中怎样显示可执行文件的图标？<br>

 

W

wdl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #2

你没说明白

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #3

从资源文件中调用，然后显示在image中

 

运

运通

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #4

我想你问的是：这样得到系统中指定类型文件的图表（比如*.HTML文件的哪个IE<br>一样的图标）<br>不过，我也不会……

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-26

• #5

WINAPI，ExtractAssociatedIcon。。。<br><br>或者查找一下以前的帖子。。[]

 

Z

zhangmcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-27

• #6

用ExtractIcon()函数就可以得到程序进程的图标，<br>再用LoadImage()函数载入就可以了，具体的使用查一下帮助就可以了。

 

Z

zhangmcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #7

怎么还不给分

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #8

几行代码搞定！<br>procedure ShowFile(const FileName: TFileName);<br>var<br>&nbsp; Item: TListItem;<br>&nbsp; Icon: TIcon;<br>&nbsp; piIcon: word;<br>&nbsp; iIndex: integer;<br>begin<br>&nbsp; Icon := TIcon.Create;<br>&nbsp; Icon.Handle := ExtractAssociatedIcon(HInstance, pchar(FileName), piIcon);<br>&nbsp; iIndex := ImageListAttachment.AddIcon(Icon);<br>&nbsp; Icon.Free;<br>&nbsp; Item := ListViewAttachment.Items.add;<br>&nbsp; Item.Caption := FileName;<br>&nbsp; Item.ImageIndex := iIndex;<br>end;

 

李

李衍智

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-30

• #9

&nbsp; &nbsp; &nbsp;ShortCtrl1 = new TShortCtrl(this);<br>&nbsp; &nbsp; &nbsp; ShortName = Path + "//" + FileListBox1-&gt;Items-&gt;Strings;<br>&nbsp; &nbsp; &nbsp; ShortCtrl1-&gt;Load(ShortName);<br>&nbsp; &nbsp; &nbsp; MyShortCut.path = ShortCtrl1-&gt;Path;<br>&nbsp; &nbsp; &nbsp; MyShortCut.description = ShortCtrl1-&gt;Description;<br>&nbsp; &nbsp; &nbsp; MyShortCut.workdirectory = ShortCtrl1-&gt;WorkDirectoty;<br>&nbsp; &nbsp; &nbsp; MyShortCut.icon = ShortCtrl1-&gt;Icon;<br>