Delphi-注册表启动

Question

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

TRegistry

Answer 1

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

HKLM \\软件\\ Microsoft \\ 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) ;