怎么给dll加上图标(50分)

我的应用程序要调用一个Dll<br>这么样可以让Dll的Ico图标和Exe的图标一样

吧调用它的应用程序的HANDLE传给它就可以吧....

好像不行的

那样没做过，不过可以给你个相关的例子：<br><br>Uses ShellApi;<br><br>function GetFileIcon(const Filename: string;<br> &nbsp;SmallIcon: Boolean=true): HICON;<br>var<br> &nbsp;info: TSHFILEINFO;<br> &nbsp;Flag: Integer;<br> &nbsp;Icon: TICON;<br>begin<br> &nbsp;result := 0;<br> &nbsp;if Not FileExiSts(FileName) then<br> &nbsp; &nbsp;Exit;<br> &nbsp;Icon := TIcon.Create;<br> &nbsp;Try<br> &nbsp; &nbsp;if SmallIcon then<br> &nbsp; &nbsp; &nbsp;Flag := (SHGFI_SMALLICON or SHGFI_ICON)<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp;Flag := (SHGFI_LARGEICON or SHGFI_ICON);<br> &nbsp; &nbsp;SHGetFileInfo(Pchar(Filename), 0, info, Sizeof(info), Flag);<br> &nbsp; &nbsp;Result := info.hIcon;<br> &nbsp; &nbsp;Icon.Handle := Result;<br> &nbsp;Except<br> &nbsp;end;<br>end;

你那个函数怎么用阿

这个函数返回的是文件FileName的图标，没考虑文件有多个图标的情况<br><br>//比如将应用程序的图标显示到Image1上<br>Image1.picture.Icon.Handle := GetFileIcon(Application.ExeName, False);

好了<br>分数就给你了

接受答案了.