BCB程序开机自动运行启用与取消的代码例子

 

#include <Registry.hpp>

void  __fastcall   AutoRun( bool  pRun)
... {
  /**//******************************************************
  ** 函数名: AutoRun
  ** 输入: 是否设置自动运行
  ** 功能描述: 设置开机自动运行

  ******************************************************/

  TRegistry *Reg = new TRegistry();
  try
  ...{
    Reg->RootKey = HKEY_LOCAL_MACHINE;
    Reg->OpenKey("//SOFTWARE//Microsoft//Windows//CurrentVersion//Run//",false);

    if(!Reg->ValueExists("SndMonitor") && !pRun)
    ...{ //根据wwp3321 的意见补充上
      return;
    }


    if(Reg->ValueExists("SndMonitor") && !pRun)
    ...{
      Reg->DeleteValue("SndMonitor");
    }
    else
    ...{
      if(!Reg->ValueExists("SndMonitor") )
      ...{
        Reg->WriteString("SndMonitor",ExpandFileName(Application->ExeName));
      }
      else
      ...{
        if(Reg->ReadString("SndMonitor")!=ExpandFileName(Application->ExeName))
        ...{
          Reg->WriteString("SndMonitor",ExpandFileName(Application->ExeName));
        }
      }
    }

  }
  __finally
  ...{
    delete Reg;
  }
}

 

备注：SndMornitor 为 数值名称，WriteString写入的才是数值数据。