写ICON(50分)

我这里有一个ICON的图标,我想把他写到另一个程序里面去,这个程序不是自己的程序?<br>然后让这个程序的图标变成我刚才写进去的那个ICON

这个用ResHacker一类的软件改吧。非常简单。<br>首先用ResHacker打开你要修改的那个程序（注意假如那个是加过壳的你要脱壳先）。<br>然后选择Icon Group&gt;MAINIOCN.这样就找到你现在这个图标了。<br>然后在这个图标上面点右键，选替换图标，选择你自己的图标。最后保存，就OK了。<br><br>这个软件你可以去GOOGLE找。

jingtao 的站点上有这样的软件,找他要代码

我要是用别人的程序改的话我还上这儿来干嘛.....<br><br>我当然是自己写程序改.不要什么都用别人,那还要我们程序员干嘛.你们写的东西网上到处不是嘛..<br><br>那还用LINUX干嘛...WINDOW不就行了.

BeginUpdateResource<br>UpdateResource<br>EndUpdateResource <br><br>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/introductiontoresources/addingdeletingandreplacingresources.asp

好的,我先看看!<br><br> &nbsp;不知道能不能行的通!先谢谢楼上的兄弟!<br><br>另外我想跟&quot;redneck&quot;兄说一下.你以后不要这样答别人的贴.因为这样是在侮辱自己.切记!

楼主你丫有病吧？

楼主不需要动气。<br>要达到同一个目的有多个方法，不同的人选择不同的方法那很正常，人之常情。

帮顶！<br><br>╭=========================================╮<br><br> &nbsp; 80G海量源代码,控件，书籍全免费狂下不停！<br><br> &nbsp; http://www.source520.com<br> &nbsp;<br>╰=========================================╯

这个我是知道的!但我生气是有原因的.请听我细细道来.<br><br>我生气原因有五:<br><br> &nbsp;1.根椐分析.一般会写程序的,他的软件运用都不差,找软件这类的事应该是OK的<br><br> &nbsp;2.如果是在程序论坛里面发贴的话,当然是自己写程序.<br><br> &nbsp;3.论坛版面有限.他占了一个很大的版面.他那个版面的广告费就得好几块,如果算的话<br><br> &nbsp;4.而且他让楼主看到希望,里面终于有人回复了,可进来后楼主从头到尾的阳痿了<br><br> &nbsp;5.他的那些话在太多技术和程序论坛里出现过.看了就头痛<br><br>经楼主总结一下.生一下小小的气.希望他以后回答问题的时候不要这要.要不就不要说话.

你给我链接我看了一下.还可以.应该可以达到我想要的结果..<br><br> &nbsp;可是有一点..就是我没看过别人用以前函数写过..<br><br>所以我自己来的话问题有点大....<br><br>你如果有时间写一个发到我的邮箱里面来! &nbsp;谢谢!<br><br>uu8uu8@gmail.com

帮顶！<br><br>╭=========================================╮<br><br> &nbsp; 80G海量源代码,控件，书籍全免费狂下不停！<br><br> &nbsp; http://www.source520.com<br> &nbsp; <br>╰=========================================╯

用Image Editor打开这个程序的.res文件,把你想要copy的.ico文件copy到.res中,再编译,执行,试试

为什么下面二段改ICON的代码都改不了。<br>我只是想把一个*.ICO写到一个EXE程序里面去，但为什么每次写的时候都写不进去。请教解答。谢谢！<br><br>var<br> &nbsp;Handle: THandle;<br> &nbsp;P: Pointer;<br> &nbsp;FileStrSize: Integer;<br> &nbsp;FileStr, FS: TFileStream;<br>begin<br> &nbsp;FileStr := TFileStream.Create(PChar(Edit1.Text), fmOpenRead);<br> &nbsp;FileStrSize := FileStr.Size;<br> &nbsp;GetMem(P, FileStrSize);<br> &nbsp;FileStr.Read(P^, FileStrSize);<br><br> &nbsp;Handle := BeginUpdateResource(PChar(Edit2.Text), false);<br> &nbsp;UpdateResource(Handle, RT_GROUP_ICON, 'MAINICON', &nbsp;LANG_SPANISH , p, FileStrSize);<br> &nbsp;EndUpdateResource(Handle, false);<br> &nbsp;FreeMem(P, FileStrSize);<br> &nbsp;FileStr.Free;<br>end;<br><br><br>var<br> &nbsp;Ico: TIcon;<br> &nbsp;Stream : TMemoryStream;<br> &nbsp;hInst: THandle;<br> &nbsp;ptr : Pointer;<br>begin<br> &nbsp;Ico:=TIcon.Create;<br> &nbsp;Ico.LoadFromFile(Edit1.Text);<br><br> &nbsp;Stream := TMemoryStream.Create;<br> &nbsp;Ico.SaveToStream(Stream);<br> &nbsp;Ico.Free;<br> &nbsp;getmem(ptr, Stream.size + 1); &nbsp; //函数是用来在堆中分配指定数量的内存的<br> &nbsp;try<br> &nbsp; &nbsp;Stream.Seek(soFromBeginning, 0);<br> &nbsp; &nbsp;Stream.read(ptr^, Stream.size);<br> &nbsp; &nbsp;hInst := BeginUpdateResource(Pchar(Edit2.Text), False);<br> &nbsp; &nbsp;if hInst &gt; 0 then<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;UpdateResource(hInst, RT_GROUP_ICON, 'MAINICON', 1031, ptr, Stream.size);<br> &nbsp; &nbsp; &nbsp;EndUpdateResource(hInst, False);<br> &nbsp; &nbsp; &nbsp;end;<br> &nbsp;finally<br> &nbsp; &nbsp;freemem (ptr, Stream.size + 1);<br> &nbsp; &nbsp;stream.Free;<br> &nbsp;end;<br>end;<br><br><br>以下是我又写的一个，但还是不能换*.ico &nbsp; 第当我换的时候程序的ico就没了，我的*.ico文件也没有写上去，请教高手。急。在线等待<br><br>var<br> &nbsp;Icon: TIcon;<br> &nbsp;Handle: THandle;<br> &nbsp;MemStream: TMemoryStream;<br>begin<br> &nbsp;Icon := TIcon.Create;<br> &nbsp;Icon.LoadFromFile(Edit1.Text);<br> &nbsp;MemStream := TMemoryStream.Create;<br> &nbsp;Icon.SaveToStream(MemStream);<br> &nbsp;Icon.Free;<br><br> &nbsp;Handle := BeginUpdateResource(Pchar(Edit2.Text), True);<br> &nbsp;UpdateResource(Handle, RT_ICON, MAKEINTRESOURCE(RT_ICON), 0, @Icon, MemStream.Size);<br> &nbsp;EndUpdateResource(Handle, False);<br> &nbsp;FreeResource(Handle);<br>end;

难到这里没一个有技术的人跟我讲一下吗.或者说有技术不想说的...<br>DFW这里是越来越冷了.

DFW这里是越来越冷了？？？？？？？？？？？？？ &nbsp;正是每一个人在得不到满意回答时都说：“DFW这里是越来越冷了” &nbsp;致使DFW越来越冷了

他真是越来越冷了..<br><br> &nbsp;是不是宝兰不行了..还是这些搞技术都没时间了..<br><br> &nbsp;我想可以宝兰给钱他们让他们在这里回答问题..<br><br> &nbsp;现在宝兰没钱了,那些版主都走了...所以就成了现在这个样了..

是你不行了的。<br>你知道PE文件格式么？<br>不知道原理，在这里到处咬人！！！！

我只能这样说:楼主,SB

dcsdcs,你知道个鸡巴...<br><br> &nbsp; 几个函数解决的问题还用得着了解PE吗?<br><br>你当老子没写过..... &nbsp;妈滴...<br><br>日B