delphi在64位系统下读写注册表

本文整理自网络，侵删。

 
delphi在64位系统下读写注册表
分类： delphi
HKEY_LOCAL_MACHINE写这个主键下的项，在64位系统下可能会重定向，所以构造时要加KEY_WOW64_64KEY
  reg := TRegistry.Create(KEY_ALL_ACCESS or KEY_WOW64_64KEY);

  reg.RootKey := HKEY_LOCAL_MACHINE;


//下面是使用范例，设置开机启动，删除开机启动
 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    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;
try
Reg.Access:=KEY_WOW64_64KEY or KEY_WRITE;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
begin
Reg.DeleteValue('kX Mixer'); //删除键值，取消开机自启动
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.Access:=KEY_WOW64_64KEY or KEY_WRITE;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
begin
Reg.WriteString('kX Mixer','"C:\Program Files\kX Project\kxmixer.exe" --startup');  //添加键值，加入开机启动项
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

end.
 

相关阅读 >>

Delphi 输入法设置(imemode与imename)

Delphi idhttp控件的防止异常的处理

Delphi xe8 支持md5

Delphi 如何得到 winrar 处理解压缩文件的返回值 ？

Delphi xe android]获取屏幕的物理分辨率

Delphi xe7中获得os平台和版本

Delphi case 语句中使用字符串

Delphi idftp

Delphi 获取动态创建的image与scrollbox的相对位置

Delphi 学习 sql 语句 - insert、update、delete

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi在64位系统下读写注册表