 
procedure TMainForm.SetAutoRun(ok: boolean); 
var 
Reg:TRegistry; //首先定義一個(gè)TRegistry類型的變量Reg 
begin 
Reg:=TRegistry.Create; 
try //創(chuàng)建一個(gè)新鍵 
Reg.RootKey:=HKEY_LOCAL_MACHINE; //將根鍵設(shè)置為HKEY_LOCAL_MACHINE 
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打開一個(gè)鍵 
if ok then begin 
Reg.WriteString('SMS服務(wù)',ExpandFileName(ParamStr(0))); //在Reg這個(gè)鍵中寫入數(shù)據(jù)名稱和數(shù)據(jù)數(shù)值 
ShowMessage('注冊(cè)成功！'); 
end 
else begin 
reg.DeleteValue('SMS服務(wù)'); 
ShowMessage('刪除成功！') 
end; 
Reg.CloseKey; //關(guān)閉鍵 
finally 
Reg.Free; 
end; 
end; 

例子：
SetAutoRun(true); //注冊(cè)啟動(dòng)
SetAutoRun(false); //刪除啟動(dòng)

您可能感興趣的文章:

相關(guān)文章

delphi7連接mysql5的實(shí)現(xiàn)方法
這篇文章主要介紹了delphi7連接mysql5的實(shí)現(xiàn)方法,需要的朋友可以參考下
2014-07-07
Delphi創(chuàng)建開機(jī)啟動(dòng)項(xiàng)的方法示例
這篇文章主要介紹了Delphi創(chuàng)建開機(jī)啟動(dòng)項(xiàng)的方法,很有實(shí)用價(jià)值,需要的朋友可以參考下
2014-07-07
delphi建立、讀取、存貯INI文件的方法《二》
內(nèi)容：要利用.INI文件做程序有關(guān)數(shù)據(jù)的存儲(chǔ)工作，就需要能讀和寫.INI 文件，所以列了如下方法給大家參考：
2008-03-03
初探Delphi中的插件編程
前言我寫Delphi程序是從MIS系統(tǒng)入門的，開始嘗試子系統(tǒng)劃分的時(shí)候采用的是MDI窗體的結(jié)構(gòu)。隨著系統(tǒng)功能的擴(kuò)充，不斷有新的子系統(tǒng)加入系統(tǒng)中，單個(gè)工程會(huì)變得非常大，每次做一點(diǎn)修改都要重新編譯，單個(gè)工程的形式也不利于團(tuán)隊(duì)協(xié)作。為了提高工作效率，我希望利用DLL動(dòng)態(tài)鏈接庫(kù)的形式實(shí)現(xiàn)插件結(jié)構(gòu)的編程。
2008-03-03
delphi xe 可用的MD5算法
delphi xe 可用的MD5算法，需要的朋友可以參考一下
2013-04-04
Delphi 調(diào)用外部程序并阻塞到外部程序中
這篇文章主要介紹了Delphi 調(diào)用外部程序并阻塞到外部程序中的相關(guān)知識(shí)，本文給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值,需要的朋友可以參考下
2019-09-09
修改 Delphi 10.3.3 IDE 字體和字體大小
Delphi，是Windows平臺(tái)下著名的快速應(yīng)用程序開發(fā)工具(Rapid Application Development，簡(jiǎn)稱RAD)。這篇文章主要介紹了修改 Delphi 10.3.3 IDE 字體和字體大小,需要的朋友可以參考下
2019-11-11
delphi實(shí)現(xiàn)保存和讀取圖片的方法
這篇文章主要介紹了delphi實(shí)現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實(shí)現(xiàn)方法,是非常實(shí)用的技巧,需要的朋友可以參考下
2014-09-09
Delphi修改操作注冊(cè)表權(quán)限的代碼
Delphi修改操作注冊(cè)表權(quán)限的代碼，使用Delphi的朋友可以參考下。
2011-09-09
Delphi實(shí)現(xiàn)獲取句柄并發(fā)送消息的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)獲取句柄并發(fā)送消息的方法,需要的朋友可以參考下
2014-07-07