摘要： //开机启动函数function FirstRunSystem(bool: Boolean):Boolean;var Reg : TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; try Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False); if bool then Reg.WriteString(Application.Title,Application.ExeName) else Reg. 阅读全文