delphi設置開機主動啟動函數詳細完成

delphi設置開機主動啟動函數詳細完成。本站提示廣大學習愛好者：（delphi設置開機主動啟動函數詳細完成）文章只能為提供參考，不一定能成為您想要的結果。以下是delphi設置開機主動啟動函數詳細完成正文

---

有些法式要設置為開機啟動，所以本身寫了個函數便利今後應用，供年夜家參考

procedure TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //起首界說一個TRegistry類型的變量Reg
begin
Reg:=TRegistry.Create;
try //創立一個新鍵
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這個鍵中寫入數據稱號和數據數值
ShowMessage('注冊勝利！');
end
else begin
reg.DeleteValue('SMS辦事');
ShowMessage('刪除勝利！')
end;
Reg.CloseKey; //封閉鍵
finally
Reg.Free;
end;
end;

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