学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

如何将自身加入启动项(delphi)

如何将自身加入启动项(delphi)

我写了个程序..可以下载指定文件并将指定路径的文件加入启动项
但是有个缺点.加入启动项的那个文件会自删除.那路径就不存在了!!当下次开机的时候.还怎么加入呢?

我就想到了把源程序加入启动项..开机就自动再下载运行...那该如何实现?  

PS:源程序的路径随时会变的...

TOP

// 设置开机自动运行注册表项 / 删除注册表项
procedure TForm1.SetAutoRun(ok : boolean );
var
    reg:TRegistry;
begin
    reg := getRegistry;
    try
        reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false);
        if ok then
            reg.WriteString('trayicon',application.ExeName)
        else
            reg.DeleteValue('trayicon');
    except
        on e:Exception do
        begin
            showmessage('设置失败!');
        end;
    end;
    reg.Free;
end;

TOP

哎 这样是不能过杀毒的主动防御呀
责人之心责己 宽己之心宽人

TOP

晕!你想干嘛呀?

TOP

发新话题