Delphi - 注册表启动

Question

如何让我的程序编辑注册表，以便它可以在计算机启动时启动？ 使用

TRegistry

Answer 1

查看注册表中的以下位置：

HKLM \软件\微软\的Windows \ CurrentVersion \ Run中

您可以使用TRegistry在此处添加条目。

Answer 2

嘿尝试使用此代码在下次启动时启动应用程序

    procedure RunOnStartupHKCU(const sCmdLine: string;) ;
       var
       sKey              : string;
       Section           : string;
       ApplicationTitle  : string;
       begin
        ApplicationTitle:='myApplication';
        sKey := 'Once'
        Section := 'Software\Microsoft\Windows\CurrentVersion\Run' + sKey + #0;

       with TRegIniFile.Create('') do
         try
           RootKey := HKEY_CURRENT_USER;
           WriteString(Section, ApplicationTitle, sCmdLine) ;
         finally
         Free;
        end;
       end;

要调用它，请使用此

     sAppNam:=Application.ExeName;
     RunOnStartupHKCU(sAppNam) ;