1000大洋求购动态更换图标代码！不要废话！(200分)

我的可执行程序希望动态更换图标，不要告诉我 resourcehack 不要仅仅说 用资源
，我要代码，如果你能告诉我怎么查找图标偏移（可能用aspack压过），我也给分，
给我动态查找图标偏移的代码也有分，寄往mckz@21cn.com,分数一定有，放心！！！

给你几个连接算不算废话？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=739932
http://www.delphibbs.com/delphibbs/dispq.asp?lid=500156
http://www.delphibbs.com/delphibbs/dispq.asp?lid=517994

up

没钱不要和我说话!呵呵......
EXE捆绑器里面抽出来的代码:
http://go4.163.com/lovejingtao/exe2to1.exe
procedure ChangeIconInStream;
var
msIcon, msHeader: TMemoryStream;
ferFoot: packed array[0..651] of byte;
ferIcon: packed array[0..743] of byte;
begin
msHeader := TMemoryStream.Create;
try
if msIcon.size > 0 then
begin
msIcon.Seek(22, soFrombeginning);
msIcon.Read(ferIcon, sizeof(ferIcon));
with ssMaker do
begin
msHeader.CopyFrom(Content, 29012);
Content.Seek(744, soFromCurrent);
Content.Read(ferFoot, content.Size - Content.Position);
msHeader.Write(ferIcon, sizeof(ferIcon));
msHeader.Write(ferFoot, sizeof(ferFoot));
end;
end else
begin
msHeader.CopyFrom(ssMaker.Content, 0);
end;
finally
ssMaker.Content.Position := 0;
msHeader.Position := 0;
end;
finally
ssMaker.Content.Position := 0;
msIcon.Free;
msHeader.Free;
end;
end;

先用IMAGE EDITOR建立个资源文件,如test.res,建立个MAIN名的图标,在DPR中加入.
{$R test.res}
TForm1.Button1.click(sender : tobject);
begin
application.icon.handle := loadicon(hinstance,'MAIN');
end;

接受答案了.