传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 737|回复: 3

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

[复制链接]

624

帖子

2145

钻石

1359

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
114 小时
发表于 2018-12-3 00:39:29 | 显示全部楼层 |阅读模式
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.


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


回复

使用道具 举报

17

帖子

52

钻石

18

积分

初级GM

Rank: 1

在线时间
1 小时
发表于 2020-3-20 18:14:55 | 显示全部楼层
瞧瞧,啥3D加速
回复

使用道具 举报

5

帖子

26

钻石

5

积分

初级GM

Rank: 1

在线时间
0 小时
发表于 2020-5-21 22:52:30 | 显示全部楼层
vvvvvvvvvvvvvvvv
回复

使用道具 举报

201

帖子

136

钻石

223

积分

中级GM

Rank: 2

在线时间
22 小时
发表于 2020-8-31 09:49:12 | 显示全部楼层
客户端和服务器C++工程使用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|八五GM论坛专业的传奇私服GM技术交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

|网站地图
快速回复 快速发帖 返回顶部 返回列表