Delphi替换PE图标资源

program Project2;

uses
  Windows , Classes;

type
    icondirentry = packed record
       bwidth : Byte;     //该目录对应的资源的宽度
       bheight : Byte;   //该目录对应的资源的高度
       bcolorcount : Byte;    //该目录对应的资源的颜色总数，大于8的资源该值为零
       breserved : Byte; //保留
       wplanes : word; //指定的设备号，如无意外，该值总是为1
       wbitcount : word; //该目录对应的资源的位数（色深）
       dwbytesinres : Dword;   //该目录对应的资源占用的字节数
       dataoffset : Dword; //该目录对应的资源在文件中的位置（偏移量）
     end;

     iconheader = packed record
       idreserved : word; //保留
       idtype : word; //资源类型，图标文件为1，光标文件为2
       idcount : word; //该ico文件中共有几个图标，该值决定了icondirentry结构的数目，可见一个ico文件中可能包含几个图标的数据，替换到exe中要分别考虑。
     end;

var
   icofile : Tmemorystream;
   Uh : Cardinal;
   rdata : Pbyte;
   header : iconheader;
   Dgroup : array of icondirentry;
   i , besti , bestc , bestsize : integer;
   SourceIcon , TargetFile : String;
begin
   SourceIcon := 'C:/Program Files/58.ico'; //图标16x16规格
   TargetFile := 'C:/Program Files/1.exe';
   icofile := Tmemorystream . Create;
   icofile . LoadFromFile( Pchar( SourceIcon)); //SourceIcon可以换成ico文件的名称
   icofile . Position := 0;
   icofile . ReadBuffer( header , sizeof( header));
   setlength( Dgroup , header . idcount);   //空出一位，防止出错
   bestc := 0;
   bestsize := 0;
   for i := 0 to header . idcount - 1 do    //忽略空出的一位
   begin
       icofile . ReadBuffer( Dgroup [ i ] , Sizeof( Dgroup [ i ]));
       if Dgroup [ i ] . wbitcount > bestc then                  //找到最适合做主图标的图标数据
         if Dgroup [ i ] . bwidth >= bestsize then               //同上
         begin
             bestc := Dgroup [ i ] . wbitcount;
             bestsize := Dgroup [ i ] . bwidth;
             besti := i;
         end;
   end;
   icofile . Position := Dgroup [ besti ] . dataoffset;
   getmem( rdata , Dgroup [ besti ] . dwbytesinres);
   icofile . ReadBuffer( rdata ^, Dgroup [ besti ] . dwbytesinres);

   Uh := Beginupdateresource( Pchar( TargetFile) , false);
   updateresource( Uh , RT_ICON , pchar( chr( 6)) , 2052 , rdata , Dgroup [ besti ] . dwbytesinres); //替换6号位置
endupdateresource( Uh , false);

   icofile . Free;

end .