鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

delphi设置开机自动启动函数

来源:互联网 作者:佚名 时间:2015-07-05 21:30
有些程序要设置为开机启动,所以自己写了个函数方便以后使用,供大家参考 procedure TMainForm.SetAuTorun(ok: boolean); var Reg:TRegistry;//首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try//创建一个新键 Reg.RootKey:=HKEY_LOCAL

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

    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);  //删除启动

网友评论
<