delphi 设置开机自动启动函数

有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考
 



procedure TMainForm.SetAutoRun(ok: boolean);
 var
    Reg:TRegistry;       //首先定义一个TRegistry类型的变量Reg
 begin
    Reg:=TRegistry.Create;
    try                           //创建一个新键
      Reg.RootKey:=HKEY_LOCAL_MACHINE;     //将根键设置为HKEY_LOCAL_MACHINE
      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打开一个键
      if ok then begin
         Reg.WriteString('SMS服务',ExpandFileName(ParamStr(0)));           //在Reg这个键中写入数据名称和数据数值
         ShowMessage('注册成功！'); 
     end
      else begin
         reg.DeleteValue('SMS服务');
         ShowMessage('删除成功！') 
     end;
      Reg.CloseKey;       //关闭键
    finally
      Reg.Free;
    end;
 end;
 



例子：
 
SetAutoRun(true);   //注册启动
 
SetAutoRun(false);   //删除启动