基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

黑客帝国文字雨DELPHI版，D3D特效

黑客帝国特效

  {  Application end  }
  if Key=VK_ESCAPE then
    Close;

  {  Screen mode change  }
  if (ssAlt in Shift) and (Key=VK_RETURN) then
  begin
    DXDraw1.Finalize;

    if doFullScreen in DXDraw1.Options then
    begin
     // RestoreWindow;

      DXDraw1.Cursor := crDefault;
      BorderStyle := bsSizeable;
      DXDraw1.Options := DXDraw1.Options - [doFullScreen];
    end else
    begin
    //  StoreWindow;

      DXDraw1.Cursor := crNone;
      BorderStyle := bsNone;
      DXDraw1.Options := DXDraw1.Options [doFullScreen];
    end;

    DXDraw1.Initialize;
  end;

.
├── Project1.cfg
├── Project1.dof
├── Project1.dpr
├── Project1.exe
├── Project1.res
├── Unit1.dcu
├── Unit1.ddp
├── Unit1.dfm
├── Unit1.pas
├── Unit1.~ddp
├── Unit1.~dfm
├── Unit1.~pas
└── 好例子网_d3dtest.rar

0 directories, 13 files