delphi 设置自启动

function TfrmSysSet.GetAutoRun:string;
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);//打开一个键

    Result := Reg.ReadString('CMDataLoad'); //在Reg这个键中写入数据名称和数据数值

    Reg.CloseKey; //关闭键
  finally
    Reg.Free;
  end;
end;

procedure TfrmSysSet.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('CMDataLoad',ExpandFileName(ParamStr(0))); //在Reg这个键中写入数据名称和数据数值
      //ShowMessage('注册成功！');
    end
    else begin
      reg.DeleteValue('CMDataLoad');
      //ShowMessage('删除成功！')
    end;
      Reg.CloseKey; //关闭键
  finally
    Reg.Free;
  end;
end;