请选择 进入手机版 | 继续访问电脑版

传奇一条龙,GM基地,传奇单机版,手游GM论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

飓风盾 SLK 夜游神会员
查看: 210|回复: 1

Delphi源码3D加速便捷打开关闭小工具代码分享

[复制链接]
  • TA的每日心情
    开心
    2019-11-14 21:12
  • 签到天数: 165 天

    [LV.7]常住居民III

    1626

    帖子

    225 小时

    在线时间

    3982

    金币

    管理员

    Rank: 9Rank: 9Rank: 9

    积分
    1851
    发表于 2018-12-3 00:39:54 | 显示全部楼层 |阅读模式
    Delphi源码3D加速便捷打开关闭小工具代码分享


    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,REGISTRY;

    type
      TForm1 = class(TForm)
        Label1: TLabel;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Reg:TRegistry;
    begin
    Reg:=TRegistry.Create;
    if Button1.Caption = '关闭3D加速  ' then begin
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\DirectDraw',True);
    Reg.WriteInteger('EmulationOnly',1);
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Wow6432Node\Microsoft\DirectDraw',True);
    Reg.WriteInteger('EmulationOnly',1);
    Button1.Caption:='开启3D加速  ';
    ShowMessage('已关闭3D加速');
    end else begin
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\DirectDraw',True);
    Reg.WriteInteger('EmulationOnly',0);
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Wow6432Node\Microsoft\DirectDraw',True);
    Reg.WriteInteger('EmulationOnly',0);
    Button1.Caption:='关闭3D加速  ';
    ShowMessage('已开启3D加速');
    end;
    Reg.CloseKey;
    end;
    end.



    游客,如果您要查看本帖隐藏内容请回复





    上一篇:Ei3.0火炬引擎Eiserver dededark反编译版
    下一篇:Ei3.0 Tools插件源码Delphi框架 - 逍遥共享版
    回复

    使用道具 举报

    该用户从未签到

    33

    帖子

    0 小时

    在线时间

    37

    金币

    Lv3~裁决之杖

    Rank: 2

    积分
    107
    发表于 2018-12-8 18:05:20 | 显示全部楼层
    Delphi源码3D加速便捷打开关闭小工具代码分享
    回复 支持 反对

    使用道具 举报

    QQ|Archiver|手机版|小黑屋|看版本库. ( 蜀ICP备18026109号-4 )

    Powered by Discuz! X3.4© 2001-2013 Comsenz Inc.