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

例子：
SetAutoRun(true); //注冊啟動
SetAutoRun(false); //刪除啟動

您可能感興趣的文章:

相關(guān)文章

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