请教ExtractAssociatedIcon这个函数的用法，送上200分(200分)

Campo · 2001-09-04

HICON ExtractAssociatedIcon(     HINSTANCE hInst, // application instance handle     LPTSTR lpIconPath, // path and filename of file for which icon is wanted     LPWORD lpiIcon // pointer to icon index   &nbsp

; ExtractAssociatedIcon函数的各个参数的含义是什么？ 比如 HINSTANCE hInst, // application instance handle application instance handle是什么东西？ 这个函数有什么作用，如何得到图标索引的句柄？如何使用这个函数？ 能否举个实例？ 请各位大虾援手。

wjiachun · 2001-09-05

HICON ExtractAssociatedIcon(     HINSTANCE hInst, // 当前应用程序的实例句柄。     LPTSTR lpIconPath, // 指定一个文件名，准备从该文件中提取图标。                                //如果文件并非执行程序或DLL本身，但通过系统注册                        //表与一个可执行文件关联，就用这个字串装载可执行程序的名字     LPWORD lpiIcon // 在其中装载图标在可执行文件中的资源标识符   &nbsp

; 实例： 使用    ExtractAssociatedIcon函数得到ICON，再使用TImageList的AddIcon      Icon := TIcon.Create;      Icon.Handle := ExtractAssociatedIcon(HInstance, TempFile, 0);      ImageList1.AddIcon(Icon);

Campo · 2001-09-05

您所说的TempFile是什么文件呢，可以是任何文件或目录吗？ 得到的图标句柄是这个文件的图标还是这个资源文件里面的图标索引？ 不明白这些，我无法应用，请大虾继续赐教。

Campo · 2001-09-05

还有请问HINSTANCE hInst 这个参数如何赋值，在Delphi中我怎么试都不行

Temp · 2001-09-05

关注此问题，以前我也试过，不过没有成功。 请问ExtractAssociatedIcon(HInstance, TempFile, 0);这个函数到底怎么用呢？ Histance在实际程序中应该如何使用呢（可否给个小例子）？ 请wjiachun指教

Campo · 2001-09-06

最后一个问题，HInstance如何赋值，请大虾帮忙，200分马上送上!

wjiachun · 2001-09-06

1。TempFile是任意文件或文件夹 2。HInstance不要赋值：） 3。你不会忘了uses ShellAPI 吧？？ 实例一个，已经通过： procedure TForm1.Button1Click(Sender: TObject); var  Icon:TIcon;      h:HIcon;      IconIndex:word; begin     IconIndex:=0;     Icon := TIcon.Create;     h:= ExtractAssociatedIcon(HInstance, 'C:/', IconIndex);     icon.handle:=h;     DrawIcon(Form1.Canvas.Handle,10,10,h); end;

Campo · 2001-09-06

谢谢您的帮助，程序是通过了，但不能提取图标，我在您的程序 h:= ExtractAssociatedIcon(HInstance, 'C:/', IconIndex); icon.handle:=h; 之间插入 ShowMessage(IntToStr(h)); 显示h为0； 把路径‘C:/’该为某个.exe文件的路径都不行， 百思不得其解，请帮忙。

Temp · 2001-09-07

急切想知道答案，请大侠无论如何都要帮忙！

luyear · 2001-09-07

这个问题我问过了,看看下面的代码，var  h:hicon;  iconindex:word;  ShFileInfo: TSHFILEINFO; begin   iconindex:=0;   ShGetFileInfo(pchar(OpenFilen), 0, SHFileInfo, SizeOf(SHFileInfo),   SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);   h := SHFileInfo.hIcon;   Drawicon(form1.Canvas.handle ,0,0,h); end; 还有问题可以看看我的问题《如何讀取exe的圖標到speedbutton上（99分）》 http://www.delphibbs.com/delphibbs/dispq.asp?lid=583151

wjiachun · 2001-09-07

>>谢谢您的帮助，程序是通过了，但不能提取图标，我在您的程序 那没办法了，我这里显示图标了：） PWin98SE+Delphi5

Campo · 2001-09-08

谢谢wjiachun, luyear两位的帮助，您们的程序在win98能运行并提取图标， 但在我的win2000server就不行，图标Handle为0，别人的xp上也是如此， 难道是2000的图标机制和98不同？难道是2000的问题？ 郁闷，请各位大虾再次援手，彻底解决这个问题，愿意再加200分。

Campo · 2001-09-08

问题我已经解决，只要在ShGetFileInfo中多加一个参数SHGFI_ICON 就能成功地在2000获取图标，再次感谢luyear和wjiachun的帮助。

luyear · 2001-09-08

不用客气，还有一个函数可以取小图标呢？ 看看我的已答问题，哪个函数更好用！！！ 不信看看我写的一个免费软件： http://go7.163.com/luyear/delphi/toolsbar.exe

请教ExtractAssociatedIcon这个函数的用法，送上200分(200分)

Campo

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Campo

Unregistered / Unconfirmed

Campo

Unregistered / Unconfirmed

Temp

Unregistered / Unconfirmed

Campo

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Campo

Unregistered / Unconfirmed

Temp

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Campo

Unregistered / Unconfirmed

Campo

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

Similar threads