delphi設(shè)置開機自動啟動函數(shù)具體實現(xiàn)
更新時間：2013年06月05日 17:52:25 作者：
有些程序要設(shè)置為開機啟動，所以自己寫了個函數(shù)方便以后使用，實現(xiàn)比較簡單，感興趣的朋友可以參考下哈
有些程序要設(shè)置為開機啟動，所以自己寫了個函數(shù)方便以后使用，供大家參考
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); //刪除啟動
復(fù)制代碼 代碼如下:
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); //刪除啟動
您可能感興趣的文章:
- 一個簡單的花指令偽裝器-Delphi版木馬彩衣
- Delphi實現(xiàn)窗口文字淡入淡出漸變效果的方法
- Delphi實現(xiàn)限定軟件使用時間的方法
- Delphi實現(xiàn)圖像文本旋轉(zhuǎn)特效完整實例代碼
- Delphi實現(xiàn)圖片滾動切換的完整實例代碼
- Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例
- Delphi中對時間操作方法匯總
- delphi7連接mysql5的實現(xiàn)方法
- Delphi隱藏TPageControl的標(biāo)簽實例介紹
- DELPHI7.0 獲取硬盤、CPU、網(wǎng)卡序列號的代碼
- Delphi實現(xiàn)木馬自我拷貝方法
相關(guān)文章
Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例
這篇文章主要介紹了Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫點的方法,需要的朋友可以參考下2014-07-07
Delphi實現(xiàn)窗體感知鼠標(biāo)滑過并自動隱藏與顯示窗口的方法
這篇文章主要介紹了Delphi實現(xiàn)窗體感知鼠標(biāo)滑過并自動隱藏與顯示窗口的方法,涉及Delphi操作窗口及鼠標(biāo)事件的技巧,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了Delphi 常見文件處理及注冊表文件的使用實例的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
為什么繼續(xù)選擇DELPHI(即將逝去的Delphi前景在何方)
已經(jīng)鉆DELPHI很深了，當(dāng)然現(xiàn)在DELPHI是過了最輝煌的時代。但為什么要繼續(xù)下去，而不轉(zhuǎn)向其它的?這是不是死腦筋2018-02-02
Delphi實現(xiàn)判斷網(wǎng)址是否存在及是否可以打開的方法
這篇文章主要介紹了Delphi實現(xiàn)判斷網(wǎng)址是否存在及是否可以打開的方法,需要的朋友可以參考下2014-07-07
這篇文章主要給大家介紹了關(guān)于springboot如何完美通過token獲取用戶信息的相關(guān)資料, Token是在服務(wù)端產(chǎn)生的,如果前端使用用戶名/密碼向服務(wù)端請求認(rèn)證,服務(wù)端認(rèn)證成功,那么在服務(wù)端會返回Token給前端,需要的朋友可以參考下2023-12-12
這篇文章主要介紹了Delphi實現(xiàn)碰撞球體完整實例代碼,通過該實例,讀者可以完整的了解一個Delphi項目的創(chuàng)建過程,加深對Delphi運行原理的了解,需要的朋友可以參考下2014-07-07
Delphi實例演示Rect、Bounds生成TRect的區(qū)別
這篇文章主要介紹了Delphi實例演示Rect、Bounds生成TRect的區(qū)別,需要的朋友可以參考下2014-07-07
DELPHI7.0 獲取硬盤、CPU、網(wǎng)卡序列號的代碼
DELPHI7.0 獲取硬盤、CPU、網(wǎng)卡序列號的代碼，使用DELPHI編程的朋友可以參考下。2011-09-09