如何把EXE文件或DLL文件里的图标调出来(100分)

我想用DELPHI写一个程序，把EXE文件或DLL文件存放的图标调出来使用，
不知如何能做到，请各位大师指教。谢谢！

看看delphi's Demo
Resxplor
绝对对你有帮助

用API实现
use ShellAPI
Image1.Picture.Icon.Handle:=ExtractIcon(HInstance,pchar(Filename),index);

RealLearning:你以前实现过吗？

uses ShlObj;
function GetFileIcon(const AFileName:String; const ASmallIcon:Boolean): HICON;
var
Flag: Integer;
info: TShFileInfo;
begin
if ASmallIcon then
Flag:=(SHGFI_SMALLICON or SHGFI_ICON)
else
Flag:=(SHGFI_LARGEICON or SHGFI_ICON);
SHGetFileInfo(Pchar(AFileName),0,info,Sizeof(info),Flag);
Result:=info.hIcon;
end;