delphi 开机自动启动

Listest

于 2021-11-11 17:23:30 发布

阅读量1.2k

点赞数 1

分类专栏： delphi 文章标签： microsoft delphi

本文链接：https://blog.csdn.net/listest/article/details/121272294

版权

delphi 专栏收录该内容

18 篇文章 5 订阅

订阅专栏

"这段代码展示了如何使用TRegistry来管理Windows的启动项。当`isRun`为真时，它会在当前用户的`HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun`路径下注册应用的可执行名称，从而实现程序开机自启动。反之，如果`isRun`为假，它会删除该启动项，阻止程序开机启动。"

摘要由CSDN通过智能技术生成

procedure TfrmMain.SetAutoRun(isRun: Boolean);
var
  oAutoRunRegister: TRegistry;
begin
  oAutoRunRegister := TRegistry.Create;
  try
    oAutoRunRegister.RootKey := HKEY_CURRENT_USER;
    oAutoRunRegister.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
    if isRun then
    begin
      if not oAutoRunRegister.ValueExists('appEXEName') then
      begin

        oAutoRunRegister.WriteString('appEXEName' , Application.ExeName);
      end;
    end
    else
    begin
      if oAutoRunRegister.ValueExists('appEXEName') then
      begin

        oAutoRunRegister.DeleteValue('appEXEName');
      end;
    end;
  finally
    oAutoRunRegister.Free;

  end;
end;