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 md5加密算法

Delphi settimer 功能：定时api

Delphi实现类似android锁屏的密码锁控件

Delphi 的内存操作函数(4): 清空与填充内存

Delphi中使用isuperobject解析json数据

Delphi 设置combobox组合框的高度方法总结

Delphi 判断上午还是下午

Delphi 10.3.2 社区版的安装

orangeui作者开源作品

Delphi和outputdebugstring

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

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