delphi開機自啟動程式

2021-09-24 15:46:05 字數 910 閱讀 4767

1.首先引入registry,shellapi這2個單元

2.如下**是專案中的一段開機自啟動程式

procedure setautorun(ok:boolean);

varreg: tregistry;

ob:isuperobject;

begin

reg := tregistry.create;

tryob := so;

reg.rootkey := hkey_current_user; //將根鍵設定為 hkey_local_machine 許可權不夠用這個:hkey_current_user

reg.openkey('software\microsoft\windows\currentversion\run',true); //開啟乙個鍵

if ok then

begin

utils.msgbox('開啟開機自啟動成功','閘道器提示',utils.ok);

ob.b['auto'] := true;

mainframe.sysobject.s['auto'] := 'true'; //更新快取

endelse

begin

reg.deletevalue('充值閘道器');

utils.msgbox('關閉開機自啟動成功','閘道器提示',utils.ok);

ob.b['auto'] := false;

mainframe.sysobject.s['auto'] := 'false'; //更新快取

end;

finally

utils.writeconfig(ob);

reg.closekey;

reg.free;

end;

end;

開機自啟動程式

昨天做了個brew開機自啟動的demo,在此記下該程式的要點。brew平台可以做到開機就自啟動brew 應用,這需要在mif中做如下設定 增加乙個notification aeeclsid shell 設定notififer aeeclsid shell 設定mask nmask shell ini...

linux ubuntu 程式開機自啟動

編輯rc local.service檔案sudo vi lib systemd system rc local.service 在檔案的最後新增 install wantedby multi user.target alias rc local.service儲存並退出。轉到rc local.ser...

ROS程式開機自啟動

1.概述 寫了這麼多ros的launch指令碼,怎麼才能開機就啟動呢,本文介紹1種方法,使用ros的 robot upstart包,下面以pibot bringuppackage的 bringup.launch 演示 2.robot upstart包 2.1 安裝 使用pibot install r...