unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry;
type
TForm1 = class(TForm)
btnAddRun: TButton;
edtFilePath: TEdit;
dlgOpen1: TOpenDialog;
procedure btnAddRunClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnAddRunClick(Sender: TObject);
var
myreg:TRegistry;
begin
dlgOpen1.Execute;
myreg:=TRegistry.Create();
myreg.RootKey:=HKEY_LOCAL_MACHINE;//指定根键
myreg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);//打开一个键
myreg.WriteString('test',dlgOpen1.FileName);
myreg.CloseKey();
myreg.Free();
ShowMessage('设置成功');
end;
end.
注意事项:只能选择可执行程序,其他程序无效
Delphi 修改注册表使程序开机启动
最新推荐文章于 2020-06-11 22:00:46 发布