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在64位系统下读写注册表

相关推荐

评论
