图标的提取?(100分)

Y

yz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #1

请问,如何判别一个文件是否含有图标及图标个数,并将其全部显示出来?
不胜感激!

 

P

popeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #2

demo目录下有一个例子程序: delphi5(delphi4)/demos/resxplor

 

C

cch_b

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #3

ExtractIconFromFile

 

K

kucio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-28

• #4

我记得“delphi深度历险”上有一个类似的源程序，你不妨去找找。

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-29

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
FileName: AnsiString;
begin
FileName := 'd:/temp/Project1.exe';
Image1.Picture.Icon.Handle :=
ExtractIcon(Hinstance, pchar(FileName), 0);
end;

 

段

段荣誉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-30

• #6

可以用一些工具，找站定下载。

 

Z

zcy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-30

• #7

GetMem(pStr,255);
aIcon:=TIcon.Create;
try
StrPCopy(pStr,fname);
count:=ExtractIcon(hInstance,pStr,-1);
//参数设为-1，可以取得文件中的ICON个数
for i:=0 to count-1 do begin
aIcon.Handle:=ExtractIcon(hInstance,pStr,i);
//参数设为几，可以取得文件中的第几个ICON
IconSmall.AddIcon(aIcon);
IconLarge.AddIcon(aIcon);
aListItem:=ListView2.Items.Add;
aListItem.Caption:='Icon'+IntToStr(i);
aListItem.ImageIndex:=i;
end;
finally
FreeMem(pStr,255);
aIcon.Free;
end;
这是以前我做的一个小程序，想要的话给我发信。

 

Y

yz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #8

接受答案了.