delphi設置開機自動啟動函數(shù)具體實現(xiàn)
更新時間：2013年06月05日 17:52:25 作者：
有些程序要設置為開機啟動，所以自己寫了個函數(shù)方便以后使用，實現(xiàn)比較簡單，感興趣的朋友可以參考下哈
有些程序要設置為開機啟動，所以自己寫了個函數(shù)方便以后使用，供大家參考
procedure TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //首先定義一個TRegistry類型的變量Reg
begin
Reg:=TRegistry.Create;
try //創(chuàng)建一個新鍵
Reg.RootKey:=HKEY_LOCAL_MACHINE; //將根鍵設置為HKEY_LOCAL_MACHINE
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打開一個鍵
if ok then begin
Reg.WriteString('SMS服務',ExpandFileName(ParamStr(0))); //在Reg這個鍵中寫入數(shù)據(jù)名稱和數(shù)據(jù)數(shù)值
ShowMessage('注冊成功！');
end
else begin
reg.DeleteValue('SMS服務');
ShowMessage('刪除成功！')
end;
Reg.CloseKey; //關閉鍵
finally
Reg.Free;
end;
end;
例子：
SetAutoRun(true); //注冊啟動
SetAutoRun(false); //刪除啟動
復制代碼 代碼如下:
procedure TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //首先定義一個TRegistry類型的變量Reg
begin
Reg:=TRegistry.Create;
try //創(chuàng)建一個新鍵
Reg.RootKey:=HKEY_LOCAL_MACHINE; //將根鍵設置為HKEY_LOCAL_MACHINE
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打開一個鍵
if ok then begin
Reg.WriteString('SMS服務',ExpandFileName(ParamStr(0))); //在Reg這個鍵中寫入數(shù)據(jù)名稱和數(shù)據(jù)數(shù)值
ShowMessage('注冊成功！');
end
else begin
reg.DeleteValue('SMS服務');
ShowMessage('刪除成功！')
end;
Reg.CloseKey; //關閉鍵
finally
Reg.Free;
end;
end;
例子：
SetAutoRun(true); //注冊啟動
SetAutoRun(false); //刪除啟動
相關文章
這篇文章主要介紹了delphi7連接mysql5的實現(xiàn)方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi創(chuàng)建開機啟動項的方法,很有實用價值,需要的朋友可以參考下2014-07-07
內容： 要利用.INI文件做程序有關數(shù)據(jù)的存儲工作，就需要能讀和寫.INI 文件，所以列了如下方法給大家參考：2008-03-03
前言我寫Delphi程序是從MIS系統(tǒng)入門的，開始嘗試子系統(tǒng)劃分的時候采用的是MDI窗體的結構。隨著系統(tǒng)功能的擴充，不斷有新的子系統(tǒng)加入系統(tǒng)中，單個工程會變得非常大，每次做一點修改都要重新編譯，單個工程的形式也不利于團隊協(xié)作。為了提高工作效率，我希望利用DLL動態(tài)鏈接庫的形式實現(xiàn)插件結構的編程。2008-03-03
delphi xe 可用的MD5算法，需要的朋友可以參考一下2013-04-04
這篇文章主要介紹了Delphi 調用外部程序并阻塞到外部程序中的相關知識，本文給大家介紹的非常詳細，具有一定的參考借鑒價值,需要的朋友可以參考下2019-09-09
Delphi，是Windows平臺下著名的快速應用程序開發(fā)工具(Rapid Application Development，簡稱RAD)。這篇文章主要介紹了修改 Delphi 10.3.3 IDE 字體和字體大小,需要的朋友可以參考下2019-11-11
這篇文章主要介紹了delphi實現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實現(xiàn)方法,是非常實用的技巧,需要的朋友可以參考下2014-09-09
Delphi修改操作注冊表權限的代碼，使用Delphi的朋友可以參考下。2011-09-09
Delphi實現(xiàn)獲取句柄并發(fā)送消息的方法
這篇文章主要介紹了Delphi實現(xiàn)獲取句柄并發(fā)送消息的方法,需要的朋友可以參考下2014-07-07