开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Pak.pas
资源名称：DarkMoon.rar　[点击查看]
上传用户：hndmjx
上传日期：2014-09-16
资源大小：3369k
文件大小：6k
源码类别：

Delphi控件源码

开发平台：

Delphi

Pak.pas：源码内容
  1. {
  2.    Copyright 2003-2004 by Sima Huapeng 
  3.    smhp@163.net
  4. }
  5. unit Pak;
  7. interface
  9. uses
  10.   Windows, Messages, SysUtils, Classes, Graphics, shellApi;
  12. type
  13.   TexePak = class(TComponent)
  14.   private
  15.     fSourceFile: string;
  16.     fDestFile: string;
  17.     fOutFile: String;
  18.     
  19.     procedure SetSourceFile(const Value: string);
  20.     procedure SetDestFile(const Value: string);
  21.     procedure SetOutFile(const Value: string);
  22.   protected
  24.   public
  25.     constructor Create(AOwner: TComponent); reintroduce;
  26.     destructor Destroy; override;
  28.     function ExchangeExeIcon:Boolean;
  30.     property SourceFile: string read fSourceFile write SetSourceFile;
  31.     property DestFile: string read fDestFile write SetDestFile;
  32.     property OutFile: string read fOutFile write SetOutFile;
  33.   published
  35.   end;
  37. implementation
  39. constructor TexePak.Create(AOwner: TComponent);
  40. begin
  41.    inherited Create(AOwner);
  42. end;
  44. destructor TexePak.Destroy;
  45. begin
  46.   inherited;
  47. end;
  49. function TexePak.ExchangeExeIcon():Boolean;
  50. const
  51.     readlen=10;                     //每次读取字节数，可改变
  52.     icolen=766;                     //32*32图标长度,根据研究前126为图标头,后640为图标数据
  53. var
  54.     i,j,itemp,nPos:int64;           // nPos为目的图标在目的文件的位置
  55.     ci,cj:array[0..readlen-1] of char;
  56.     bOK:boolean;
  57.     SourceIcon,DestIcon:TIcon;
  58.     SIconStream,s,sDest:TMemoryStream;
  59. begin
  60.     Result:=False;
  61.     bOK:=false;
  62.     if ExtractIcon(0,PChar(fSourceFile),UINT(-1))=0 then exit;
  63.     SourceIcon:=TIcon.Create;
  64.     try
  65.         try
  66.             SourceIcon.Handle:=ExtractIcon(0,PChar(fSourceFile),0);      //选择第一个图标
  67.             if ExtractIcon(0,PChar(fDestFile),UINT(-1))=0 then exit;
  68.             DestIcon:=TIcon.Create;
  69.             try
  70.                 DestIcon.Handle:=ExtractIcon(0,PChar(fDestFile),0);//选择第一个图标
  71.                 SIconStream:=TMemoryStream.Create;
  72.                 try
  73.                   DestIcon.SaveToStream(sIconStream);
  74.                   SDest:=TMemoryStream.Create;
  75.                   try
  76.                     sDest.LoadFromFile(fDestFile);
  77.                     i:=0;j:=0;   //以下程序查找目的图标在目的程序中的位置
  78.                     while  i<sDest.size do
  79.                     begin
  80.                          itemp:=i;
  81.                          j:=126;
  82.                          ci:='';cj:='';
  83.                          while (String(ci)=String(cj)) and (i<SDest.size) and (j<icolen) do
  84.                          begin
  85.                                   i:=i+readlen;
  86.                                   j:=j+readlen;
  87.                                   SDest.Position:=i;
  88.                                   SDest.read(ci,readlen);
  89.                                   SiconStream.Position:=j;
  90.                                   SiconStream.Read(cj,readlen);
  91.                          end;
  92.                          if j<icolen then
  93.                               i:=itemp+1  //&#27809;&#25214;&#21040;
  94.                          else
  95.                          begin
  96.                              nPos:=itemp;  //&#25214;&#21040;
  97.                              bOK:=true;
  98.                              break;
  99.                          end;
  100.                     end;
  101.                     if bOK=false then exit;//&#30446;&#26631;&#25991;&#20214;&#20108;&#36827;&#21046;&#30721;&#20013;&#26410;&#25214;&#21040;&#22270;&#26631;
  102.                     SIconStream.Clear;//&#23558;&#28304;&#31243;&#24207;&#22270;&#26631;&#23384;&#20837;
  103.                     SourceIcon.SaveToStream(SIconStream);
  104.                     SIconStream.position:=126;
  105.                     s:=TMemoryStream.Create;
  106.                     try
  107.                         sDest.Position:=0;
  108.                         s.CopyFrom(sDest,nPos);//&#23558;&#30446;&#30340;&#31243;&#24207;&#22270;&#26631;&#21069;&#25968;&#25454;&#25335;&#20837;
  109.                         s.CopyFrom(SIconStream,640); //&#23558;&#28304;&#31243;&#24207;&#22270;&#26631;&#25335;&#20837;
  110.                         if sDest.size>sDest.Position+640 then //&#23558;&#30446;&#30340;&#31243;&#24207;&#21097;&#20313;&#25968;&#25454;&#25335;&#20837;
  111.                         begin
  112.                              sDest.Position:=sDest.Position+640;
  113.                              s.CopyFrom(sDest,sDest.Size-sDest.Position);
  114.                         end;
  115.                         s.SaveToFile(fOutFile);   //&#25913;&#36896;&#22909;&#30340;&#31243;&#24207;&#23384;&#25918;&#22312;OutFile&#25991;&#20214;&#20013;
  116.                     finally
  117.                         S.Free;
  118.                     end;
  119.                   finally
  120.                     sDest.Free;
  121.                   end;
  122.                 finally
  123.                   SIconStream.Free;
  124.                 end;
  125.             finally
  126.                 DestIcon.Free;
  127.             end;
  128.         finally
  129.             SourceIcon.Free;
  130.         end;
  131.     except
  132.         Result:=False;
  133.         Exit;
  134.     end;
  135.     Result:=True;
  136. end;
  138. procedure TexePak.SetDestFile(const Value: string);
  139. begin
  140.   fDestFile := value;
  141. end;
  143. procedure TexePak.SetOutFile(const Value: string);
  144. begin
  145.   fOutFile := Value;
  146. end;
  148. procedure TexePak.SetSourceFile(const Value: string);
  149. begin
  150.   fSourceFile := Value;
  151. end;
  153. end.
  154.