开机启动函数

最新推荐文章于 2024-10-06 21:41:19 发布

anzhenzha0580

最新推荐文章于 2024-10-06 21:41:19 发布

阅读量135

点赞数

文章标签：操作系统

原文链接：http://www.cnblogs.com/hu-ya/archive/2013/04/17/3026676.html

版权

//开机启动函数
function FirstRunSystem(bool: Boolean):Boolean;
var
      Reg   :   TRegistry;
begin
      Reg   :=   TRegistry.Create;
      Reg.RootKey   :=   HKEY_LOCAL_MACHINE;
      try
          Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False);
          if   bool   then
               Reg.WriteString(Application.Title,Application.ExeName)
          else
               Reg.DeleteValue(Application.Title);
      finally
          Reg.CloseKey;
          Reg.Free;
      end;
end;