引入 Registry?

procedure SetAutoRun(ok: boolean); varReg:TRegistry; //首先定義一個TRegistry類型的變量Reg beginReg:=TRegistry.Create;try //創建一個新鍵Reg.RootKey:=HKEY_LOCAL_MACHINE; //將根鍵設置為HKEY_LOCAL_MACHINEReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打開一個鍵if ok then beginReg.WriteString('SMS服務',ExpandFileName(ParamStr(0))); //在Reg這個鍵中寫入數據名稱和數據數值ShowMessage('注冊成功！');endelse beginreg.DeleteValue('SMS服務');ShowMessage('刪除成功！')end;Reg.CloseKey; //關閉鍵finallyReg.Free;end; end;

總結

以上是生活随笔為你收集整理的设置开机自启动函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。