本文整理自网络,侵删。
分类: delphiHKEY_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);varReg:TRegistry;beginReg:=TRegistry.Create;tryReg.Access:=KEY_WOW64_64KEY or KEY_WRITE;Reg.RootKey:=HKEY_LOCAL_MACHINE;Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);beginReg.DeleteValue('kX Mixer'); //删除键值,取消开机自启动Reg.CloseKey;end;finallyReg.Free;end;end;
procedure TForm1.Button2Click(Sender: TObject);varReg:TRegistry;beginReg:=TRegistry.Create;tryReg.Access:=KEY_WOW64_64KEY or KEY_WRITE;Reg.RootKey:=HKEY_LOCAL_MACHINE;Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);beginReg.WriteString('kX Mixer','"C:\Program Files\kX Project\kxmixer.exe" --startup'); //添加键值,加入开机启动项Reg.CloseKey;end;finallyReg.Free;end;end;
end.
相关阅读 >>
Delphi 条件编译语法 $ifdef $else $endif
Delphi - 利用dll编程控制摄像头实现拍照、录制视频
Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态
更多相关阅读请进入《Delphi》频道 >>