如何将自身加入启动项(delphi)(页 1) - Delphi论坛

baiylhnh 发表于 2008-4-10 10:28

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

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

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

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

makebest 发表于 2008-4-10 22:54

// 设置开机自动运行注册表项 / 删除注册表项
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;

一刀客 发表于 2008-4-14 11:03

哎这样是不能过杀毒的主动防御呀

makebest 发表于 2008-4-14 20:31

晕！你想干嘛呀？

lisatisfy 发表于 2008-7-26 14:22

嘿嘿..做人要厚道哦
写木马是可以.但不能使坏哦

feng133413 发表于 2008-7-27 11:55

一看说的就是写下载者的自启动项了,这里不是研究过主动之类的地方了

页: [1]